B 1 

CZUOAGO UDA FNTR DATA FILE MACRO V04.00 23-AU6-82 14:32:58 
TABLE OF CONTENTS 

1- 3 USER DOCUMENTATION 

CZUDAGO UDA FHTR DATA FILE MACRO V04.00 23-AU6-82 H:32:58 PAGE 1 

1 .TITlE CZUDAGU UDA FNTR DATA FILE 

3 .SBTTL USER DOCUMENTATION 

6 .REM " 

7 

8 

10 IDENTIFICATION 

11 

13 PRODUCT CODE: AC-T355A-MC 

15 PRODUCT NAME: CZUDGAO UDA FMTR DATA FILE 
16 

17 PRODUCT DATE: 27-AU6-82 
18 

19 MAINTAINER: DIAGNOSTIC ENGINEERING 

21 AUTHOR: MATT TEDONE 

22 
23 
24 
25 

27 THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 

28 NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 

29 EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO 

30 RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 

32 NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY OF 

33 SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS 

34 AFFILIATED COMPANIES. 

36 COPYRIGHT (C) 1982 BY DIGITAL EQUIPMENT CORPORATION 

38 THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION: 

AO DIGITAL PDP UNIBUS MASSBUS 

41 DEC DECUS DECTAPE 

42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 

5« 
55 

56 000001 .END 



CZUOAGO UOA FMTR DATA FILE MACRO V04.00 23-AUG-82 14:32:58 PAGE 1 
SYMBOL TABLE 



. ABS. 000000 000 
000000 001 
ERRORS DETECTED: 0 

VIRTUAL HENCRY USED: 8192 WORDS ( 32 PAGES) 
DYNAMIC MEMORY AVAILABLE FOR 72 PAGES 
,B : ZUDGA0«B : ZUDGAO . TTL 



UOAF52 - UDA-52 FORMATTER 
TABLE OF CONTENTS 
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80- 
81- 
88- 
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94- 
96- 



MCALLS 
EQUATES 

DATA STRUCTURES 

MATH SUBROUTINES 

SDI SUBROUTINES 

OVERLAY PROCESSING ROUTINES 

MISCELLANEOUS COMMON ROUTINES 

DUP DM<->HOST STARTUP OVERLAY 

INITIALIZATION OVERLAY (G1) 

DBN/XB^• FORMAT OVERLAY (F1) 

DBN/X6N TRACK FORMAT OVERLAY (G7} 

LBN FORMrHTING OVERLAY (F2) 

LBN FORMAT IMAGE SETUP OVERLAY (F8> 

L/R6N COMPUTE OVERLAY (G8) 

FCT DOWN-LINE LOAD OVERLAY (F3) 

RCT UPDATE OVERLAY (F4) 

RCT READ OVERLAY (HI) 

FCT->RCT CONVERSION OVERLAY (F5) 

RCT INITIALIZE OVERLAY (F7) 

FCT READ OVERLAY (F6) 

GET FCT BLOCK FOR D/XBN FORMAT (G2) 

GET FCT BLOCK FOR LBN FORM/T (63) 

RCT CLEANUP OVERLAY (G4) 

FINAL CHECK OVERLAY (H2) 

FCT WRITE OVERLAY (F9) 

PBN->D,X,L.RBN CONVERSION OVERLAY (G5) 

ERROR MESSAGE OVERLAY (66) 
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D 1 



.TITLE U0AF52 - UOA-52 FORMATTER 
.IDENT /03.01/ 
.NLIST BEX 



COPYRIGHT (C) 1980,1981 «1982 
DIGITAL EQUIPMENT CORPORATION, NAYNARD, MASS. 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USL ONLY ON A 
SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION 
OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY OTHER 
COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE 
TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE 
WHO AGREES TO THESE LICENSE TERMS. TITLE TO AND OWNERSHIP OF 
THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DIGITAL. 

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. 

DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF 
ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 

VERSION 01 .00 

N. A. PARENTI 16>MAY*^0 

MODIFIED BY: 

VERSION 02.00 

M. A. PARENTI 09-DEC-80 

NEW on INSTRUCTIONS (MEM -> MEM) 
CODE OPTIMIZATION 

31-WAR-81 
M. A. PARENTI 

ADDED DOUBLE WORD ADDRESSING FOR OVERLAY ADDRESSES 

21-APR-81 

H. A. PARENTI 

FIX GROUP OFFSET CALCULATION 

23-APR-81 

H. A. PARENTI 
FIX ZERO GROUP PROBLEM 



24-APR-81 

M. A. PARENTI 
FIX LBN GROUP PROBLEM 
FIX RECAL WAIT PROBLEM 
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58 
59 
60 
61 
62 
63 
6A 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 



05-HAY-81 

N. A. PARENTI 

FIX SIZE PROBLEM FOR RA81 

13-«Ay-81 

N. A. PARENTI 

ADD LIMITED DdP FUNCTIONALITY 

15-MAY-81 

M. A. PARENTI 

FIX SUBUNIT MASK PROBLEM 

15-MAV-81 

M. A. PARENTI 

ONLY WRITE NON-PAD BLOCKS OF FCT 

15-MAY-81 

M. A. PARENTI 

FIX COMPUTATION OF NON-PAD FCT BLOCKS 

15-MAY-81 

M. A. PARENTI 

FIX BLOCK ZERO FCT PROBLEM 

28-flAV-81 

N. A. PARENTI 

FIX SUBUNIT PROBLEMS 

yRITE ONLY NON-PAD BLOCKS OF RCT 

01-JUN-81 

M. A. PARENTI 

FIX DOUBLE COMPARE PROBLEM 



08-JUN-81 

M. A. PARENTI 

FIX EXISTING FCT FORMAT PROBLEM 



17-JUN-81 

M. A. PARENTI 

FIX SUBUNIT WRITE PROTECT PROBLEM 

17-JUN-81 

M. A. PARENTI 

ADD STATUS UPDATES AT VARIOUS PLACES 

22-JUN-81 

M. A. PARENTI 

FIX RBN STARTING BITS PROBLEM 

22-JUN-81 

M. A. PARENTI 

FIX NON-PAD RCT INITIALIZE PROBLEM 
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SEQ 5 



115 

116 

117 

118 

119 

120 

121 

122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 

161 

162 

163 

164 

165 

166 

167 

168 

169 

170 

171 



06-JUL-81 

n. A. PARENT I 

FIX STATISTICS COUNT OF BAD BLOCKS TO NOT INCLUDE RBN 

18-AUG-81 

N. A. PARENT I 

FIX CLEARING OF ECC THRESHOLD 

16-SEP-81 

M. A. PARENTI 

KLUDGE RECIR AND LAST BITS FOR UDA BUG 

6-0CT-81 

N. A. PARENTI 

FIX JUSTIFICATION ON RESPONSES 

19- 0CT-81 

n. A. PARENTI 

FIX ECC CHECKING AND MINOR FIXES TO QUESTIONS 

13-NOV-81 

N. A. PARENTI 

FIX CONVERSION BLOCK, CLEANUP COUNT 
CHECK FOR NO CORRECTION IF 0 THRESHOLD 

20- N0V-81 

n. A. PARENTI 

FIX PR08LEH WITH BAD RBN WHEN PRIMARY IN FCT 

ADD HEAD VERIFICATION ROUTINE AND HAKE FINAL CHECK 

ROUTINES A SEPARATE OVERLAY 

25-JAN-82 

N. A. PARENTI 

CHECK FOR VALID NUMERICS IN USER RESPONSES 

CHECK FOR UNIBUS ERRORS 

MODIFY LONG TIMEOUT 

CHECK FOR VALID STATUS IN 6ETUNT 

09-FE8-82 

M. A. PARENTI 

FIX VAX DATE ROUTINE 

18-FEB-82 

H. A. PARENTI 

CHANGE RETRY RECOVERY ON NON-CHECK PASS READS/WRITES TO NOT 
ISSUE A RECAL/RESEEK SEQUENCE AFTER RECOVERY LEVEL 0 

1(H>IAR-82 

M. A. PARENTI 

CONVERT TO U0A52 XFC'S AND MAKE 512/S76 

24-flAR-82 

M. A. PARENTI 

FIX PCON OFFSET PROBLEM 

FIX BAD RBN WITH PRIMARY IN FCT PROBLEM 
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172 
173 
17A 
175 
176 
177 
178 
179 



15-JUN-82 

n. A. PARENTI 

FIX RBN START BITS FOR PRIMARY 
FIX RCTTOT DECREMENT 



UDA52 DISK FORMATTER 



SEO 6 



H 1 
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"CALLS 

1 .S8TTL WALLS 



3 .MCALL D«CO0E,OHEN0,DHOVLr 

? -fiCALL J2P.BR.BEQ.CALL.BPL.BCC.BNE,B«I,RETURN 

' .nCALL onooT 
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EQUATES 



1 
2 
3 
A 
5 
6 
7 
8 
9 
10 
11 
12 
13 
U 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



000000 



000000 
000001 
000002 
000003 



000000 
000001 
000006 
000002 
000003 
000004 
000005 
000000 
000400 
000440 
000401 



000000 
000001 
000002 
000003 



000000 
000001 
000002 
000003 
000004 
000005 
000006 



.SBTTL EQUATES 
EQUATES 



CONDITIONAL FLAGS 



PROD = 
.•DEBUG = 



0 
0 



OFFSETS FOR FORMAT TRACK TABLE 



FT.BUF = 

FT. LOW - 

FT.HI = 

FT. FLA = 



0. 
1. 
2. 
3. 



OFFSETS FOR READ/WRITE BUFFERS 

RW.STAT = 0. 

RW.ERl = 1. 

RU.DUn - 6. 

RU.BUF = 2. 

RU.LOU = 3. 

RU.HI = 4. 

Ru.cm = 5. 

RU.DAT a 0. 

RW.EDC = 256. 

RU.E76 = 288. 

RU.ER2 - 257. 



.•PRODUCTION (1> 

;N0T PRODUCTION (0) 

:IF DEFINED THEN DEBUG NODE 



;BUFFER POINTER OFFSET 
;LOU ORDER HEADER OFFSET 
;HI ORDER HEADER OFFSET 
;FLAG WORD 



STATUS (12-15), NEXT BUFR PTR (0-14) 
ALSO USED AS ECC ERROR INDICATOR 
POINTER TO DUHHY SDI CONTROL BLOCK 
POINTER TO DATA BUFFER 
1ST HEADER WORD (LO ORDER LBN) 
2ND HEADER WORD (HI ORDER LBN) 
SDI RT cm (8-15), HEAD ADDR (0-7) 
1ST WORD OF 256 WORD DATA BUFFER 
EDC FOR 512 MODE 
EDC FOR 576 NODE 
1ST ECC RESIDUE 



OFFSETS FOR CHECK PASS READ CONNANDS 



RB.LOW 
RB.HI 

RB.cm 

RB.in 



BREAK 

FORMAT 

READ 

WRITE 

SEND 

RCV 

C«PDAT 



= 0. 
* 1. 

2. 

3. 

XFC DEFINITION EQUATES 

0. 
1. 
2. 
3. 

= 4. 
5. 
6. 



:L0W ORDER BLOCK NUNBER 
.-HIGH ORDER BLOCK NUMBER 
.•READ COMMAND AND TRACK NUMBER 
.•IMAGE COUNTER 



.■BREAKPOINT XFC CODE 
.•FORMAT TRACK XFC CODE 
.•READ N SECTORS XFC CODE 
.WRITE N SECTORS XFC CODE 
;SEND SDI COMMAND XFC CODE 
.•RECEIVE SDI MESSAGE XFC CODE 
.♦COMPARE DATA PATTERN XFC CODE 
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EQUATES 



58 
59 
60 

61 
62 

63 
6A 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 



000007 
000010 
000011 
000012 
000013 
000014 
000015 
000016 
000017 
000020 
000021 
000022 



000000 
000001 
000001 
000001 
000001 
000002 
000002 
000007 
000011 
000015 
000000 
000002 
000003 
000002 
000003 
000001 
000011 
000015 
000004 
000021 
000022 
000012 
000016 
000002 
000003 
000010 
000014 
000020 
000005 
000005 



000001 
000002 
000004 
000010 
000020 
000040 
000100 



STATUS = 


y 
f . 


ECHO = 


a 

0. 


DINIT = 


n 

y. 


SIP = 


1U. 


URcAD = 


11. 
12. 


UURITE = 


err — 


IT 

1 Jm 


NAINTR = 


14. 


HAINTU - 


15. 


CVT = 


16. 


DONE - 


17. 


UPDATE = 


18. 



GET CHARACTERISTICS OFFSETS 



SHORTO = 




FRCPY ss 


1 . 


RTRY = 


1 . 


LONuTO = 


1 . 


CCD! T — 


1 . 


cRRSYn = 


C. 


cRCV 


Cm 


ntVacL - 


7 

f 


nccci 0 — 


Q 


DFFS76 = 


13. 


rvi ou — 
U T Lon — 


u. 


STLSN = 


1: 


STRBN = 




STXBN = 


2. 


STDBN = 


3. 


STCYL = 


1. 


LBNT12 = 


9. 


LBNT76 = 


13. 


RBNTRK = 


4. 


XBNCYL = 


17. 


DBNCYL = 


18. 


LBNH12 = 


10. 


LBNH76 = 


14. 


6RPCYL = 


2. 


TRK6RP = 


3. 


FCTS2 = 


8. 


RCTS12 = 


12. 


RCTS76 = 


16. 


DATA - 


5. 


HEAD - 


5. 



BIT DEFINITIONS 



BJTO - 000001 

BIT1 - 000002 

BIT2 ^ 000004 

BIT3 - 000010 

BIT4 r 000020 

BITS r 000040 

BiT6 = 000100 



RETURN DRIVE STATUS XFC CODE 

ECHO DATA TO DRIVE XFC CODE 

DRIVE INITIALIZE XFC CODE 

WAIT FOR SECTOR/INDEX PULSE XFC CODE 

READ UNIBUS MEMORY XFC CODE 

WRITE UNIBUS MEMORY XFC CODE 

DO ECC ON BUFFER XFC CODE 

SEND MAI NT READ DATA XFC CODE 

RECEIVE MAINT WRITE DATA XFC CODE 

CONVERT TO PHYSICAL ADDRESS XFC CODE 

TERMINATE DM PROGRAM XFC CODE 

UPDATE DUP PROGRESS INDICATOR XFC 



SHORT TIME OUT 
NUMBER OF F/RCT COPIES 
NUMBER OF RETRIES 
LONG TIMEOUT 

SS BIT (SECTOR SIZES ALLOWABLE) 

NUMBER OF ALLOWABLE ECC ERRORS 

ERROR RECOVERY LEVELS SUPPORTED 

REVS/SECOND 

GROUP OFFSET 512 BYTE 

GROUP OFFSET 576 BYTE 

CYLINDERS IN LBN AREA 

HIGH ORDER STARTING LBN 

HIGH ORDER STARTING RBN 

HIGH ORDER STARTING XBN 

HIGH ORDER STARTING D6N 

HIGH ORDER STARTING CYLINDER 

NUMBER OF L6NS PER TRACK (512) 

NUMBER OF LBNS PER TRACK (576) 

NUMBER OF RBNS PER TRACK 

NUMBER OF CYLINDERS IN XBN AREA 

NUMBER OF CYLINDERS IN DBN AREA 

NUMBER OF LBN'S IN HOST AREA (512) 

NUMBER OF LBN'S IN HOST AREA (576) 

GROUPS/CYLINDER 

TRACKS/GROUP 

FCT SIZE IN SECTORS 

RCT SIZE IN LBN'S (512) 

RCT SIZE IN LBN'S (576) 

DATA PREAMBLE SIZE 

HEADER PREAMBLE SIZE 
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115 

116 

117 

118 

119 

120 

121 

122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 

161 

162 

163 

164 

165 

166 

167 

168 

169 

170 

171 



000200 
000400 
001000 
002000 
004000 
010000 
020000 
040000 
100000 



177400 
000377 
177700 
177600 
007777 
177760 
170377 
007777 
000004 
000010 
000200 
000400 
100000 



000175 



000000 
060000 
030000 
110000 
050000 
170000 
140000 
120000 
100000 
010000 



000000 
020000 
030000 
040000 
100000 



100000 



BIT7 s 000200 

BITS - 000400 

BIT9 = 001000 

BIT 10 = 002000 

BIT11 = 004000 

BIT12 = 010000 

BIT13 = 020000 

BIT14 s 040000 

BIT15 = 100000 



RANDOM DEFINITIONS 



HIBYTE = 177400 

LOBYTE = 000377 

HI2BYTE = 177700 

HIIBYTE = 177600 

LO = 007777 

FCLR = 177760 

STCLR = 170377 

BUFMSK = 007777 

VLD = BIT2 

VLD1 = BIT3 

PARITY = BIT7 

PARITl = BIT8 

SS = BITIS 



UNSEC = 000175 

; HEADER CODES 

HD.LBN = 000000 

HD.RBN = 060000 

HD.REV = 030000 

HD.BAD = 110000 

HD.PRV = 050000 

HD.CLR = 170000 

HD.DBN = 140000 

HD.X6N - 120000 

PRMY - BIT15 

FBDHD = BIT12 

9 

: RCT HEADER CODES 

RC.FRE - 000000 

RC.PRV - 020000 

RC.SND - 030000 

RC.UNU = 040000 

RC.NUL s 100000 

• 

: DRIVE STATUS BITS 

RWRDY - BITIS 



HIGH BYTE MASK 

LOU BYTE MASK 

HIGH BYTE PIUS 2 BITS 

HIGH BYTE PLUS 1 BIT 

ALL BUT HEADER CODE 

CLEAR FOR FRCPY 

CLEAR FOR STARTING BITS 

BUFFER CLEAR MASK 

STATUS VALID BITd^VALID) 

STATUS VALID BITCUVALID) 

STATUS PARITY BIT(1=PARITY ERROR) 

REAL TIME ERROR (I^ERROR) 

SECTOR SIZE BIT (0=512 ONLY, 1=51 2/576) 



.-UNSUCCESSFUL COMPLETION 



GOOD LBN 

GOOD RBN, PERHAPS UNUSED 
REVECTORED LBN 
BAD BLOCK 

PRIMARY REVECTORED BLOCK 
CLEAR HDR CODE 
GOOD OBN 
GOOD XBN 

PRIMARY BIT IN FCT 
BAD HEADER CODE IN FCT 



FREE REPLACEMENT BLOCK 
PRIMARY REVECTOR 
SECONDARY REVECTOR 
BAD REPLACEMENT BLOCK 
NULL (FILL) BLOCK 



;READ/URITE READY BIT POSITION 
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Bin 

BITO 



SEo n 



EQUATES 






172 


000002 


ATTN 


173 


000001 


RCVRDY 


174 






175 






176 






177 






178 






179 


AAAAA4 

000001 


C T Al 1 

ST.RU 


180 


AAAA A A 

000002 


ST. PS 


4 04 

181 


AAAA/ A 

000040 


f« Y AA 

ST.DR 


4 

182 


4 7AAAA 

1 70000 


C T ■ lA 

ST. UP 


4 A9 

183 


A AAA A A 

000020 


ST.SR 


4 

184 


AA4 AAA 

001000 


f» V AA 

ST.DB 


•IOC 

185 


AAAAAA 

002000 


ST.FO 


4 

186 


AAAAA/ 

000004 


ST. IN 


187 


AAAA4 A 

000010 


ST. WE 


4 OO 

188 


AAAA^A 

000020 


Ap 

ST. DP 


4 OA 

189 


A AA 

000374 


r* T PA A 

ST. ERR 


4 

190 


A A A A A A 

000002 


ST.ERB 


4 n4 

191 






192 






4 AT 

193 






194 






4 Af 

195 




• 


4 A^ 

196 


AAAA A7 

000023 


OVCNT 


4 A'^ 

197 


A AAAA7 

000003 


OVLEN 


4 AA 

198 


AAAAAA 

000000 


I P ft! 

LEN 


4 A A 

199 


A A AAA 4 

000001 


HSTLO 


A A 

200 


AAAAAA 

000002 


HSTHI 


201 


000000 


FT 


202 


AAAAA7 

000003 


F2 


^A7 

203 


AAAAAA 

000006 


F3 


^Ay 

204 


AAAAI i 

00001 1 


p y 


205 


AAAA1 y 

000014 


F5 


^AZ 

206 


AAAA4 7 

000017 


F6 


^A'7 

207 


AAAA^^ 

000022 


Fr 


^AO 

208 


AAAA1C 

000025 


Fo 


^AA 

209 


AAAA7A 

000030 


FV 


210 


AAAA7T 

000033 


G2 


211 


000036 


G3 


212 


AAA A/ 1 

000041 


G4 


213 


AAAA/ y 

000044 


G5 


214 


AAAAy 7 

000047 


G7 


215 


AAAAO 

000052 


Go 


216 


AAAACC 

000055 


HI 


217 


AAAAZ.A 

000060 


61 


218 


AAA A^ T 

000063 


G6 


21V 


000066 


H2 


220 






1 

221 












223 












225 


000001 


FCTAVL 


226 


000010 


DBN 


227 


000100 


REVSCT 


228 


001000 


PRIM 



.-ATTENTION 
.•RECEIVER READY 



GET STATUS BIT MASKS 



BITO 
BIT1 
BITS 

BIT12*BIT13*BIT14*BIT15 

BIT4 

BIT9 

BIT10 

BIT2 

BIT3 

BIT4 

000374 

2. 



OVERLAY TABLE OFFSETS 



19. 

3 

0 

1 

2 

0 

3 

6. 

9. 

12. 

15. 

18. 

21. 

24. 

27. 

30. 

33. 

36. 

39. 

42. 

45. 

48. 

51. 

54. 



FLAG EQUATES 



RUN/STOP SWITCH I^IN 

PORT SWITCH 1:IN 

DIAGNOSTIC REQUESTED I^YES 

URI7E PROTECT SWITCH SU:OJ l-IN 

SPINDLE READY 1=YES 

DIAG CYL ACCESS ENABLED IsYES 

FORMAT CYL ACCESS ENABLED I^YES 

DRIVE INITIALIZED 1«YES 

WRITE ERROR (WRITE LOCKED) 

DIAG FAILED - CANNOT DRIVE CLEAR 

COMBINED CLFARABLE ERRORS BITS SET 

ERROR BYTE OFFSET (3RD WORD) 



NUMBER OF OVERLAYS 

LENGTH OF 1 OVERLAY BLOCK 

WORD COUNT OF OVERLAY 

LOW ORDER UNI6US ADDRESS 

HI ORDER UNIBUS ADDRESS 

OFFSET INTO TABLE 

SECOND OVERLAY OFFSET INTO TABLE 

THIRD OVERLAY OFFSET INTO TABLE 

FOURTH OVERLAY OFFSET INTO TABLE 

FIFTH OVERLAY OFFSET INTO TABLE 

SIXTH OVERLAY OFFSET INTO TABLE 

SEVENTH OVERLAY OFFSET INTO TABLE 

EIGTH OVERLAY 

NINTH OVERLAY 

ELEVENTH OVERLAY 

TWELVTH OVERLAY 

THIRTEENTH OVERLAY 

FOURTEENTH OVERLAY 

SIXTEENTH CVERLAY 

SEVENTEENTH OVERLAY 

NINETEENTH OVERLAY 

TENTH OVERLAY 



BlTO 
BIT3 
BIT6 
BIT9 



•FCT AVAILABLE 
.•FORMAT DBN AREA 
;REVECTOR FLAG 
.•PRIMARY FOUND FLAG 



N 1 
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BIT1 

BIT4 

BITS 

6IT2 

BIT7 

BITS 

BIT10 

BIT11 

BIT13 

SITU 

BIT12 

BIT15 



EQUATES 






229 


0C0002 


FCTEMT 


230 


000020 


G06AD 


231 


000040 


RCINIT 


232 


000004 


FCTBAD 


233 


000200 


MANU 


234 


000400 


DLL 


235 


002000 


BSTGS 


236 


004000 


NDLL 


237 


020000 


INIRCT 


238 


040000 


FINI 


239 


010000 


CHRDNE 


240 


100000 


RTY 


241 






242 






243 






244 






245 






246 


000001 


UP 


247 


000002 


RTYON 


248 


000004 


RPRIM 


249 


000010 


ERDN 


250 


000020 


DEAD 


251 


000040 


BDHD 


252 


000100 


RCINDN 


253 


000200 


OUESDN 


254 


000400 


FLIPON 


255 


001000 


REPEAT 


256 


002000 


6TFLA6 


257 


004000 


STFLA6 


258 


010000 


BDTST 


259 


020000 


MODE 


260 


040000 


FPRIM 


261 






262 






263 






264 






265 


000000 


VI 


266 


000002 


V2 


267 


000004 


V3 


268 


ooooos 


V4 


269 


000006 


CYL 


270 


000010 


6RP 


271 


000011 


TRK 


272 


000012 


STSC 


273 


000013 


INDSEC 


274 






275 






276 






277 






278 






279 


000016 


DMBUFL 


280 






281 






282 






283 






284 






^85 







FLA61 EQUATES 



BITO 

BIT1 

BIT2 

BIT3 

BIT4 

BIT5 

BIT6 

81 T7 

BIT8 

BIT9 

BIT10 

BIT11 

BIT12 

B1T13 

BIT14 



PHYSICAL CONVERSION XFC Bl 

0 

2 

4. 

5. 

6. 

8. 

9. 

10. 

11. 



DM6UF OFFSETS 



14. 



FCT BLOCK OFFSETS 



I 



FCT EMPTY FLAG 
DO BEST GUESS IF FCT BAD 
RCT LAST BLOCK FIXED UP 
FCT FOUND BAD (FOR STATS) 
MANUFACTURING FORMAT 
DOWN-LINE LOAD FLAG 
BEST GUESS FORMAT 
ONLY WRITE FCT SCRATCH 
INIT RCT FLAG 
FORMAT FINISHED FLAG 
CHARACTERISTICS DONE FLAG 
RETRY FLAG 



WRITE PROTECT FLAG 
RETRY DO.VF ON THIS SECTOR 
FLAG FOR PRIMARY GOOD EDC 
FLAG FOR ERROR EXIT TRY 
HOST GONE FLAC 

BAD HEADER ON CHECK PASS READ 

RCT INIT DONE (WITH ONE FULL PAD BLK) 

STARTUP QUESTIONS FINISHED 

FLIP FLAG FOR CONVERSIONS 

REPEAr QUESTION FLAG FOR STARTUP 

FLA^ FOR GETB MACRO 

FLA3 r-OR STOB MACRO 

FLAG FOR TEST OF BAD HEADER IN VERHD 

FORMAT MODE (0-512,1=576) 

PRIMARY IN FCT 



EQUATES 

: CYLINDER PARAMETER 
.•BLOCK NUMBER PARAMETER 
;BLOCKS PER TRACK PARAMETER 
;ONLY FOR RBN*S 
;Cri INDER RETURNED 
.•GROUP HETURNED 
.•TRACK RETUNniC? 
.•STARTING SECTOR hCTURNED 
; SECTOR FROM INDEX 



.•BUFFER LENGTH 



N 1 



UDAF52 - 
EQUATES 

286 

287 

288 

289 

290 

291 

292 

293 

29A 

295 

296 

297 

298 

299 

300 

301 

302 

303 

m 

305 
306 
307 
308 
309 
310 
311 

31 S 
3'. A 
315 
316 
317 
318 
319 
320 
321 
322 
323 
32A 
3<I5 
326 
327 
328 
329 
330 
331 
332 
333 
33A 
335 
336 
337 
338 
339 
3A0 
5*1 
3^2 
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000002 
000001 
000016 
000020 
000012 
000025 
100000 



000000 



000006 
000011 
OOOOOA 
000002 
OOOOOA 
013A00 
122A00 
100000 
010000 
000200 
OOOAOO 
OOOAAO 
000003 
100000 
100000 
OAOOOO 
126736 
07A161 
100000 
000010 
001362 
OOOOAO 
0200A0 



000000 
000000 



010000 
010A55 
011132 



FSER 

INST = 

C512 

C576 

FDAT = 
FCTFL6 = 
NOFCT = 



RSER 



TUOB 

THREB 

RDLEN 

ERLEN 

REVLEN 

RWCND 

URCND 

RDCND 

ECCF 

RBNRPT 

SECSI6 

SECSI8 

INLEN 

BD 

LAST 

RECIR 

M512 

M576 

TinVAL 

HAXTRY 

DUPOVL 

LOBL 

BLANUD 



NASK 
UiD 



BUF7 
BUF2 
BUF5 



2 
1 

1A. 
16. 
10. 
21. 
BIT15 



RCT BLOCK OFFSETS 



niSC DEFINITIONS 



6. 
9. 
A. 
2. 
A. 

013A00 

122A00 

100000 

BIT12 

128. 

256. 

?88. 

3. 

BIT15 

BIT15 

BIT1A 

126736 

07A161 

32768. 

8. 

OVE.NN-2 

OOOAO 

200A0 



STATUS OFFSETS 



0 
0 



BUFFER DEFINITIONS 
BUFFERS ARE 301 WORDS LONG 

010000 
= BUFU301. 
BUF2*301. 



SERIAL NUMBER 

FORMATTIN INSTANCE NUMBER 

COUNT OF USED 512 ENTRIES IN FCT 

COUNT OF USED 576 ENTRIES IN FCT 

MOST RECENT FORMAT DATE 

FCT FLAG FOR GOOD/BAD FCT 

FLAG - 0 - FCT GOOD 

1 - FCT KNOW BAD 



.•SERIAL NUMBER OFFSET 



LENGTH OF 2 IMAGE ENTRIES 
LENGTH OF 3 IMAGE ENTRIES 
LENGTH OF CHECK PASS READ BLOCK 
LENGTH OF REVECTOR TABLE ENTRY 
LENGTH OF SECONDARY TABLE 
SDI READ COMMAND 
SDI WRITE COMMAND 
SIGNAL TO XFC NO MORE BLOCKS 
ECC ERROR BIT 

NUMBER OF RBN COPIES IN REVECTOR 
SECTOR SIZE IN WORDS FOR 512 BYTE 
SECTOR SIZE IN WORDS FOR S76 BYTE 
LENGTH OF IMAGE BLOCK 
BAD FLAG IN IMAGE BUFFER 
LAST FLAG IN IMAGE BUFFER 
RECIRCULATE IN FORMAT IMAGE BUFFER 
FCT MODE INDICATOR FOR 512 
FCT MODE INDICATOR FOR 576 
TIMER LOOP VALUE 

FINAL SECONDARY WRITE RETRY LIMIT 
OVERLAY STARTING ADDRESS FROM DUP 
BLANK IN LOW ORDER BYTE 
WORD WITH 2 ASCII BLANKS 



:SUBUNIT OFFSET MASK 
;UNIT NUMBER OFFSET 



.•BUFFER 1 
.•BUFFER 2 
.•BUFFER 3 



B 2 





IIDA-S? FORMAT TFR DMArR 1(04 01 


23-AU6-82 13: 


14:22 PAGF 














011607 


iki ICZ 




Dw* 1 • 




w 1 ceo** 


Dl IC C 

BUr 3 




BUF44'301 




01 30?? 


BUFO 




BUFS>3S0 


346 


01 3477 


BUr r 




BUF64-301 

DW> W * WW 1 • 


J** f 


014154 


Dl IC O 




D11C74.7Q1 

Dwr • ' WW 1 • 




014631 


Dl ICO 




BUF84^301 


349 


01 S306 


Dl IC 1 A 

BUr 7U 




RMF94.301 

DUr y ■ VW 1 m 




015763 


BUr 1 1 




BUF10>301. 


351 


016747 


enr\T 
aUDI 




BUF1 1*500. 


352 




9 






353 




i 


BUFFER ASSIGNMENTS 


354 










355 

J J J 


010000 

W 1 WWW 


NUBUr 




our 1 


356 


010455 

W 1 w~ ^ ^ 


DDMDI IC 
rBNBUr 




Dur c 


357 


01 1 1 32 

will 


uDBLK 




BUF3 


358 


011607 


rnnaUr 




BUF4 


359 


012264 

W 1 C»bW~ 


DCUDI IC 

RcvpUr 




BUF5 


360 


01 3022 


mnDi IC 




BUF6 


361 


013477 


DTTQI IC 

NL lour 




BUF7 


362 


014154 


DD&lOl IC 

KBnoUr 




BUF8 


363 


014631 


pm CT 
BDLS 1 




BUF9 


364 


01 5306 

w ■ ^www 


fl DIIC 

LLBUr 




BUF10 


365 


01 5763 

V 1 ^ « WW 


I MARC 




BUF11 


366 










367 










368 










369 










370 










371 


037777 


BMAX 




37777 


572 










373 










374 











BUFFER 4 
BUFFER 5 
BUFFER 6 
BUFFER 7 
BUFFER 8 
BUFFER 9 
BUFFER 10 
BUFFER 11 
START OF 00 T 



READ/WRITE BUFFER 

BUFFER OF BAD PBN'S 

DATA FOR GOOD SECTOR 

DATA PATTERN FOR PRIMARY REVECTOR 

SECONDARY REVECTOR BUFFER 

READ COPWAND BUFFERS 

RCT BLOCK BUFFER 

RBN FORMAT BUFFER 

HEAD VERIFICATION BUFFER 

USED IN FINAL CLEANUP 

FORMAT IMAGE BUFFER 

BUFFER EXCESS AFTER FORMAT IMAGE 

IS USED TO HOLD BLOCKS TO BE 

REVECTORED. MAX BLOCKS BEFORE 

REVECTOR ROUTINE IS CALLED VARIES 

WITH THE SIZE OF THE FORMAT BUFFER AREA 

MAX BUFFER ADDRESS 



C 2 
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SEO IS 



000000 
001364 
001365 



1 
2 
3 
4 
5 
6 
7 

9 
10 

11 001367 

12 001370 

13 001371 

14 001372 
15 

16 
17 
18 
19 

20 001373 

21 001373 

22 001374 

23 001375 

24 001376 

25 001377 

26 001400 
27 

28 
29 

30 001401 

31 001402 

32 001403 

33 001404 

34 001405 

35 001405 

36 001407 

37 001410 

38 001410 
39 

40 
41 
42 
43 

44 001412 

45 001413 
46 

47 
48 

49 001414 

50 001420 

51 001424 

52 001430 

53 001434 

54 001440 

55 001444 

56 001450 

57 001454 



000000 



000000 
000000 
000000 
000000 



100000 
000000 
000000 
000000 
000000 
000000 



000200 
001520 
000000 
000000 



000000 



000000 
000000 



ENTRY: 



UN. ERR 
UN.ERT 
UN.ERI 
UN.SEK 



URBLK: 
RDBLK: 



HSI i.^: 

DDUWfY; 

TE«P2: 
NULPC: 

OFFSET: 
TEHP: 



.SBTTL DATA STRUCTURES 

DHCODE UDAFPf.0, 1364,13,255. 
.WORD 0 
JHP START 

DATA STRUCTURES 

RETRY COUNTERS 

.WORD 0 

.WORD 0 

.WORD 0 

.WORD 0 



READ CONNAND BLOCK 



;DMODT ADDRESS 

;JUMP TO START LOCATION 



UNSUCCESSFUL CMD RETRY CNTR 
TRANSMISSION ERROR RETRY CNTR 
INITLI2ATI0N ERROR RETRY CNTR 
SEEK RETRY COUNT 



.yORD 
.WORD 
.UORD 
.WORD 
.WORD 
.WORD 



100000 

0 

0 

0 

0 

0 



STATUS POINTER 
POINTER TO DATA BUFFER 
FIRST UORD or EXPECTED HDR 
SECOND UORD 
REAL-TINE SDI COWIANO 
POINTER TO SDI BLOCK 



DUmv DOUBLE UORDS AND DUHNV SDI COMMAND 

.UORD 200 

.UORD SCR-5 

.UORD 0 

.UORD 0 



.BLKU 
.UORD 



2 
0 



.BLKU 2 



0 
0 





CURRENT 


UNIT: 


.UORD 


UNNO: 


.UORD 




MESSAGE 


CR.GST: 


MSG 


CR.GCR: 


MSG 


CR.GSR: 


MSG 


CR.DIS: 


MSG 


CR.RUN: 


MSG 


CR.ACC: 


MSG 


CR.CLR: 


MSG 


CR. SEK: 


MSG 


CR.RCL: 


MSG 



TABLES 

GST,1.ST,7 

GCRJ.CR.11. 

6SR,2,SCR.19. 

DIS,2,ST,6 

RUN,1,ST,6 

ACC,3-ST.6 

DCLR,2,ST,6 

ISEEK,6.ST,6 

IRECALJ,ST,6 



.•HEADER CMP LIMIT 
;P0INTEfi TO SUBUMIT CHAR 
.-DUMMY DOUBLE UORD FOR ONE 
;BYTE OPERAND CONVERSION 
.-ALSO USE AS TEMP 
.MULTIPLICATION BUFFER 
.-RESERVED LOCATION (A^7) 
.-FOR EASIER REFERENCE 
.-USED FOR COMPUTATIONS 



.-SDI INTERCONNECT 
.-UNIT NUMBER ENTERED 



GET STATUS 

GET CHARACTERISTICS 

GET SUBUNIT CHARACTERISTICS 

UNLOAD DRIVE 

LOAD DRIVE 

SET FORMAT ACCESS 

DRIVE CLEAR 

SEEK 

RECALIBRATE 



D 2 
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)o 


oui«»ou 




LK.CKV* 


MSG 


ERECOV, 2, ST. 6 


CO 


UU i*iO*i 






MSG 


ONLINE. 2, ST,6 


OU 
iLI 
Ol 






• 

• 


MESSAGES AND CONHANDS 


Oc 
AT 




UUhhUU 




.WORD 


000011*256. 


1.1 

OM 


nAi A71 






.WORD 


000207*256. 


iLC 
07 


UUlMf « 




uan* 


.WORD 


00210*256. 


00 


/VII A7'X 


nnnnnn 




.WORD 


0 


Of 


r\t\^L7L 

WW 1 Hf •» 


1 n^nnn 


Df S* 
1/1 d • 


.WORD 


000204*256. 


OO 




wwvWwW 




.WORD 


0 


Ot 


UU 1 <• f o 


WOWV 


OHM- 


.WORD 


000014*256. 


7n 

IM 


rtrti A77 
UUlHf f 


inn^nn 

IUUhUU 


Arr • 


.WORD 


000201*256. 


r 1 


UV 1 jW 


nn'^noA 

UUJUUO 




.WORD 


3006 


75 




nn94nn 


l/LLn • 


.WORD 


000005*256. 


7'» 


UU 1 JVC 


nnnT74 

UUw J f H 




.WORD 


374 


7A 


t\M COT 




ST- 


.BLKW 


7 


7C 


Uw 1 2 1 c 




Ln • 


•dlkw 


11. 


7A 


Uv 1 jCj 




dun « 


.BLKW 


19. 


77 




nnsnnn 




.WORD 


000012*256. 


711 


OAI CC1 
Uw 1 J J 1 


nnnnnn 




.WORD 


0 


79 


001552 


000000 




.WORD 


0 


80 


001553 


000000 




.WORD 


0 


81 


001 5SA 


107000 


IRECAL: 


.WORD 


000216*256. 


82 


001555 


003000 


ERECOV: 


.WORD 


000006*256. 




UU 1 3 JO 


WWvV 




.WORD 


0 


0*i 


Uw 1 33f 


inc^nn 

1 U?<tUU 


OMI I MF • 


.WORD 


000213*256. 


oj 
RA 


nni SAO 


000377 

WvvJf f 




.WORD 


377 


OO 

A? 

Of 

Aft 






a 
# 


DISK LOCATION POINTERS 


OO 

AO 

Ot 


nnis/^i 


000000 
wwwwww 




.WORD 


0 


on 


nni ^k? 

1 ^0£ 


nOonon 

wwwwww 




.WORD 


0 


01 


nni ^k"^ 

WW 1 ^O J 


000000 
wwwwww 




.WORD 


0 


09 


nnis/t^ 


000000 
wwwwww 




.WORD 


0 


▼J 


001 S/^S 

WW 1 J%JJ 


000000 
wwwwww 


ruPTRK * 


.WORD 


0 


0^ 


001 SAA 

WW 1 ^QQ 


000000 
wwwwww 




.WORD 


0 


OS 


001 SA7 

WW 1 JVi 


000000 
wwwwww 




.WORD 


0 


▼o 


001 S70 

WW 1 ^ f w 


000000 
wwwwww 




.WORD 


0 


97 


001571 


000000 

WWW 




.WORD 


0 


Q8 

TO 


00157? 


000000 

vvv vw 




.WORD 


0 


99 


001573 


000000 




.WORD 


0 


100 


001574 


000000 
www 


STASEC: 


.WORD 


0 


101 

1 V 1 


001575 


000000 
www 




.WORD 


0 


107 


VV 1 ^ r u 


000000 

WvWv 


MOI Dfifkl* 


.WORD 


0 


10^ 


001 S 77 

VV 1 J f r 


000000 
www 




.WORD 


0 


10A 


001^00 
vv > uw 


000000 

vWWv 


HOLRBN ■ 


.WORD 


0 


10S 


001 A01 

VV 1 WW 1 


000000 
www 




.WORD 


0 


10A 

1 I/O 


0011^0? 

VV 1 wVC 


000000 
www 


HOLDPN • 


.WORD 


0 


107 


OOII^O*^ 

VV 1 OVtJ 


000000 
www 




.WORD 


0 


108 


001604 


000000 


CYLNUN: 


.WORD 


0 


109 


001605 


000000 




.WORD 


0 


110 


001606 


000000 


SECTRK: 


.WORD 


0 


111 


001607 


000000 




.WORD 


0 


112 


001610 


000000 


SECT76: 


.WORD 


0 


113 


001611 


000000 




.WORD 


0 


1U 


001612 


000000 


SECT12: 


.WORD 


0 



SEQ 16 



.•ERROR RECOVERY COIWAND 
.•ONLINE COMMAND 



GET STATUS COMMAND 

GET CHARACTERISTICS 

GET SUBUNIT CHARACTERISTICS 

SUBUNIT MASK 

UNLOAD DRIVE 

NO SPIN DOWN MODIFIER 

INITIATE LOAD 

ACCESS DIAG AND FMT CYL 

MASK BYTE/MODE BYTE 

DRIVE CLEAR 

BITS TO CLEAR 

STATUS MESSAGE BUFFER 

CHARACTERISTICS MESSAGE BUFF 

SUBUNIT CHARACTERISTICS BUFF 

INITIATE SEEK 



INITIATE RECAL 
ERROR RECOVERY COMMAND 
RECOVERY LEVEL 
ONLINE COMMAND 
COMMAND TIMEOUT (SECS) 



.•CURRENT R8N 
• 

•CURRENT PBN 

•CURRENT TRACK 
.•CURRENT BLOCK NUMBER 

.FOR RCT INIT 

•CURRENT XBN NUMBER 

.•FOR HEAD VERIFICATION ROUTINE 

•BLOCK NUMBER OF FIRST BLOCK ON CYL 
• •• 

:BLOCK HUM OF FIRST RBN ON CYLINDER 

.•PBN OF FIRST SECOTR ON TRACK 

: CURRENT CYLINDER NUMBER 

; SECTORS/TRACK (CURRENT VALUE) 

•SECTORS/TRACK 576 
. •• 

•SECTORS/TRACK 512 



E 2 
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115 001613 


000000 




.WORD 


0 


116 001614 


000000 


SECTCY 


: .WORD 


A 

0 


117 001615 


000000 




.WORD 


0 


118 001616 




LBNLBN 


■ .BLKU 


A 

2 


119 001620 




RBNLBN 


.BLKU 


A 

2 


120 001622 




XBNSEC 


.BLKU 


A 

2 


121 001624 




TRKCVL 


.BLKU 


A 

2 


122 001626 




LBNCYL 


.BLKU 


2 


123 001630 




LBNPCV 


' .BLKU 


*\ 
c 


124 001632 




RBNPCY 


.BLKU 


A 

2 


125 001634 


A A AAA A 

000000 


REVRBN 


' .UORD 


A 

0 


126 001635 


000000 




.UORD 


A 

0 


127 001636 


AAA AAA 

000000 


CUROVL 


> .UORD 


A 

0 


128 001637 




HGHPBN 


.BLKU 


A 

2 


129 










« 9A 

130 










4 94 

131 










4 V% 

132 






STACK 




4 W 

133 










134 










135 










136 001641 






.8LKU 


31. 


137 001700 


000000 


STACK: 


.UORD 


0 


4 A A 4 *BA4 

138 001701 


A A A A A A 

000000 


STCKSV: .WORD 


0 


139 










140 




• 






141 






MISC 


DEFINI 


142 




• 
• 
• 






14? 

^ S i AA4 

144 001702 


AA AAAA 

000000 


FLAG: 


.UORD 


0 


4 y f AA4 

145 001703 


A AAAAA 

000000 


f LAG1 : 


.UORD 


A 

0 


4 / ^ AA4 

146 001704 


AAAAAA 

000000 


ERF LAG: .WORD 


A 

0 


4 4 9 AA4 "VAf 

147 001705 


AAAAAA 

000000 


URFLG: 


.UORD 


A 

0 


4 / a AA4 

148 001706 


AAAAAA 

000000 


6ADPBN: .WORD 


A 

0 


4 y A AA4 9A9 

149 001707 


AAAAAA 

000000 


ERRBUF 


; .UORD 


A 

0 


4 PA AA4 94 A 

150 001710 


000000 


EN/X: 


.U9RD 


A 

0 












4 f ^ AA4 94 4 

152 001711 


AAAAAA 

000000 


ERR: 


.UORD 


A 

0 


4C7 /\A4 94 ^ 

153 001712 


AAAAAA 

000000 


HOLD: 


.UORD 


A 

0 


4 Cy 74 9 

l5A 001713 


AAAAAA 

000000 




.UORD 


A 

0 


155 00l7i4 


Ay\AAAA 

000000 


EIMAGE 


- .UORD 


A 

0 


4 A/\4 74 C 

156 001715 


AAAAAA 

000000 


STARIT 


.UORD 


A 

0 


4C7 AA474^ 

157 001716 


000000 


SKPCMT. 


.UORD 


A 

0 


4fA yvA4 74 9 

158 001717 


AAy\AAA 

000000 


TBLK: 


.UORD 


A 

0 


159 










4 X A 

160 










^^4 AA4 7^A 

i61 001720 




RCTT07. 






4X'^ AA4 9^A 

162 001720 


AAy 7A/ 

004704 


CUTOF : 


.UORD 


2500. 


4^7 AAt9^4 

163 001721 


AAAAAA 

000000 




.UORD 


A 

0 


4 Xy 70^ 

164 001722 


AAAAAA 

000000 


FCNT: 


.UORD 


A 

0 


105 WifCJ 




FCTSUB. 


.BLKU 


c 


166 001725 




FCTFUT: 


.6LKU 


2 


167 001727 




RCTFUl! 


.BLKU 


2 


168 001731 


C 00000 


FCTCPY! 


.UORD 


0 


169 001732 


000000 


NEXT1 : 


.UORD 


0 


170 001733 


000105 


INI: 


.UORD 


69. 


171 001734 


000400 


CNT: 


.UORD 


SECSI6 



SEO 17 



SECTORS/CYLINDER 

LBN'S IN LBN AREA 
RBN'S IN LBN AREA 
SECTORS IN LBN AREA 
TRACKS/CYLINDER 
NUMBER OF LBN CYLINDERS 
LBN'S/ CYLINDER 
RBN'S/CYLINDER 
REVECTORED RBN NUMBER 

CURRENT OVERLAY 
HIGHEST PBN IN LBN AREA 



.•STACK 

;TOP OF STACK 
.'STACK PTR TEMP SAVE 



FLAG UORD 

FLAG UORD 

RE-FORMAT FLAG 

RCT URAP FLAG 

POINTER TO P8NTAB ENTRY 

POINTER TO BEGINNING OF REVECTOR BUFFER 

MAX NUMBER OF REVECTORS BEFORE 

RCT UPDATE ROUTINE IS CALLED 

NUMBER OF SECTORS IN ERAOR 

DOUBLE UORD TEMP STORAGE 

ADDRESS OF END IMAGE BLOCK 
STARTING ADDRES OF THIS PASS 
OFFSET FOR FIRST READ CHECK 
INTERLEAVE 
6 - BI -LEAVE 
9 - TRI-LEAVE 

ALSO RCT TOTAL HOLDING AREA 
SECT/SECOND CUTOFF 
DOUBLE UORD 

COUNT OF USED FCT ENTRIES FOR FORMATTING 

SIZE OF FCT SUBTABLE 

SIZE OF ONE FCT COPY 

SIZE OF ONE RCT COPY 

NUMBER OF FCT COPIES 

MUTLI-COPY COUNTER 

INITIAL VALUE FOR EDC 

COUNT FOR EDC 



F 2 
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172 

'•73 

17A 

175 

176 

177 

178 

179 

180 

181 

182 

183 

184 

185 

186 

187 

188 

199 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 

201 

202 

203 

204 

205 

206 

207 

208 

209 

210 

211 

212 

213 

214 

215 

216 

217 

218 

219 

220 

221 

222 

223 

224 

225 

226 

227 

228 



001735 
001736 
001737 
001740 
001741 
001742 
001743 
001744 
001745 
001746 
001747 
001750 



001766 
001772 
001776 
001777 
002000 
002001 
002002 
002003 
002004 
002005 
002006 
002007 
002010 
002011 
002012 



002013 
002014 
002015 
002016 
002017 
002020 
002021 
002022 
002023 
002024 
002025 
002026 
002027 
002030 
002031 
002032 
002033 
002034 
002035 
002036 



0001 Oo 
002000 
000000 
000000 
000000 
000000 
000001 
000000 
000000 
000000 
000000 
000016 



000000 
000000 
000000 
000000 
000000 
060001 
000000 
000000 
000000 
000000 
000000 
000000 
000000 



001231 
015156 
000000 
001660 
020714 
000000 
000465 
027330 
000000 
000776 
030502 
000000 
001411 
033512 
000000 
000407 
040056 
000000 
000551 
036534 



LTO: 

STO: 

ERPNT : 

BUFPNT 

REVCNT 

FCTPTR 

FCTCNT 

FCTNPD: 
RCTLBN: 
NNCNT: 
OMBUF : 



DATE: 
SERNUM 
FCTREV 
LBNBAD 
RCTBAD 
OBBAD 
XBBAD 
FCnSG 
IMSTAR: 
HPREA: 
DPRE A.- 
ST. LBN: 
ST.RBN: 
ST.XBM: 
ST. DSN: 



OVLTBL: 



.UORO 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.REPT 
.WORD 
.ENDM 
.BLKU 
.BLKU 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.VORD 
.yORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



100 

1024. 

0 

0 

0 

0 

1 

0 

0 

0 

0 

14. 
0 

4 
4 
0 
0 
0 
0 
0 

60001 

0 

0 

0 

0 

0 

0 

0 



S£0 



LONG TIMEOUT 

SHORT TIHEOUT ('N HILLESECS) 
REVECTOR LIST POINTER 
BUFFER POINTER FOR FCT READ 
REVECTOR COUNT 

POINT TO CURRENT LOCATION IN FCT LBOKC 
CURRENT FCT BLOCK 

NON-PAD FCT BLOCKS 
LBN'S IN RCT 
USED FCT ENTRIES 
MAINTENANCE BUFFER 
MAKE SURE IT IS 0 

DATE BUFFER 
SERIAL NUMBER 

FCT ENTRIES AT CERTAIN POINTS 
TOTAL REVECTORED LBN'S 
TOTAL BAD RCT BLOCKS 
TOTAL D6N BAD BLOCKS 
TOTAL LBN BAD BLOCKS 
DUP CODE 

POINTER TO START OF IMAGE 
HEADER PREAMBLE LENGTH 
DATA PREAMBLE LENGTH 
STARTING LBN BITS 
STARTING RBN BITS 
STARTING XBN BITS 
STARTING DBN BITS 



OVERLAY POINTERS 
NOTE: 



WHEN ADDING AN ENTRY TO THIS TABLE EQUATE 
OVCNT MUST BE INCREMENTED 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
U9RD 
.WORD 
.WORD 
.WORD 
.WORD 



0VL.F1 
0VS.F1 
0 

0VL.F2 
0VS.F2 
0 

0VL.F3 
0VS.F5 
0 

0VL.F4 
0VS.F4 
0 

0VL.F5 
0VS.F5 
0 

0VL.F6 
0VS.F6 

0 

0VL.F7 
0VS.F7 



LENGTH OF FIRST OVERLAY 
LOU ORDER HOST ADDRESS 
HIGH ORDER HOST ADDRESS 
LENGTH OF SECOND OVERLAY 
LOW ORDER HOST ADDRESS 
HIGH ORDER HOST ADDRESS 
LENGTH OF THIRD OVERLAY 
LOU ORDER HOST ADDRESS 
HIGH ORDER HOST ADDRESS 
LENGTH OF FOURTH OVERLAY 
LOU ORDER HOST ADDRESS 
HIGH ORDER HOST ADDRESS 
LENGTH OF FIFTH OVERLAY 
LOU ORDER HOST ADDRESS 
HIGH ORDER HOST ADDRESS 
LENGTH OF SIXTH OVERLAY 
LOU ORDER HOST ADDRESS 
HIGH ORDER HOST ADDRESS 
LENGTH OF SEVENTH OVERLAY 
LOU ORDER HOST ADDRESS 
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229 002037 


000000 


.WORD 


0 


230 002040 


000725 


.UORO 


0VL.F8 


231 0020A1 


024454 


.WORD 


0VS.F8 


232 002042 


£^£\ A A A A 

000000 


.WORD 


0 


233 002043 


000234 


.WORD 


0VL.F9 


254 002044 


051676 


.WORD 


0VS.F9 


235 002045 


A AAA A A 

000000 


.WORD 


0 


236 002046 


A AAAf 9 

000053 


.WORD 


0VL.G2 


AA*1A^ ** 

237 002047 


A^ 4 A*V/ 

041074 


.WORD 


0VS.G2 


238 002050 


AAAAAA 

000000 


.WORD 


0 


239 002051 


i%AAVA^ 

000307 


.UORO 


0VL.63 


240 002052 


A« m 

041222 


.WORD 


OVS.03 


4 AA^Af V 

241 002053 


AAAAAA 

000000 


.uOrd 


0 


A AAAA^^ 

242 002054 


AAA4 t 

002142 


.WORD 


0VI..G4 


^£ 9 AA^APP 

243 002055 


A^ '^A / A 

042040 


.UORD 


0Vi.G4 


244 002056 


AAAAAA 

000000 


.UORD 


0 


245 002057 


AAA^ ^ A 

000460 


.UORD 


Aft J I A P 

0VL.G5 


246 002060 


052366 


.UORD 


0VS.G5 


247 002061 


000000 


.UORD 


0 


^/ O AA^A^ ^ 

248 002062 


AAA/ 

000426 


.UORD 


0VL.G7 


AA^A^ Y 

249 002063 


A4 / A 

01 7640 


.WORD 


0VS.G7 


A AA*%A^ / 

250 002064 


AAAAAA 

000000 


.UORD 


0 


AA^A^ P 

251 002065 


AAA / A4 

000401 


.UORD 


0VL.G8 


^ AA^A^ ^ 

252 002066 


A^^ 

026326 


.UORD 


0VS.G8 


AA^A^ 7 

253 002067 


AAAAAA 

000000 


.UORD 


0 


AA^A^A 

254 002070 


AAA/ A^ 

000406 


.UORD 


OVL.Hl 


'tec AA'^A^I 

255 002071 


032476 


.UORO 


0VS.H1 


256 002072 


AAAAAA 

000000 


.UORD 


0 


257 002073 


001531 


.UORD 


Akll A4 

0VL.G1 


258 002074 


011674 


.UORD 


OVS.GI 


259 002073 


AAAAAA 

000000 


.UORD 


A 

0 


cOU UUcUrO 




• WIND 


nut im 


261 002077 


053526 


.UORD 


0VS.G6 


262 002100 


000000 


.UORD 


0 


263 002101 

264 002102 

265 002103 


001555 


.UORD 


0VL.H2 


046344 


.UORD 


0VS.H2 


000000 


.UORD 


0 


266 002104 




OVLBLK: .BLKU 


4 



HIGH ORDER HOST ADDRESS 
LENGTH OF EIGHTH OVERLAY 
LOU ORDER HOST ADDRESS 
HIGH ORDER HOST ADDRESS 
LENGTH OF NINTH OVERLAY 
LOU ORDER HOST ADDRESS 
HIGH ORDER HOST ADDRESS 
LENGTH OF TENTH 0 ERLAY 
LOU ORDER HOST AI/ORESS 
HIGH ORDER HOST ADDRESS 
LENGTH OF ELEVENTH OVERLAY 
LOU ORDER HOST ADDRESS 
HIGH ORDER HOST ADDRESS 
LENGTH OF TUELFTH OVERLAY 
LOU ORDER HOST ADDRESS 
HIGH ORDER HOST ADDRESS 
LENGTH OF THIRTEENTH OVERLAY 
LOU ORDER HOST ADDRESS 
HIGH ORDER HOST ADDRESS 
LENGTH OF FOURTEENTH OVERLAY 
LOU ORDER HOST ADDRESS 
HIGH ORDER HOST ADDRESS 
LENGTH OF FIFTEENTH OVERLAY 
LOU ORDER HOST ADDRESS 
HIGH ORDER HOST ADDRESS 
LENGTH OF SIXTEENTH OVERLAY 
LOU ORDER HOST ADDRESS 
HIGH ORDER HOST ADDRESS 
LENGTH OF SEVENTEENTH OVERLAY 
LOU ORDER HOST ADDRESS 
HIGH ORD: R HOST ADDRESS 
LENGTH OF EIGHTEENTH OVERLAY 
LOU ORDER HOST ADDRESS 
HIGH ORDER HOST ADDRESS 
LENGTH OF NINETEENTH OVERLAY 
LOU ORDER HOST ADDRESS 
HIGH ORDER HOST ADDRESS 
fOR BUFFER OVERLAYS 
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1 
2 
3 
4 

6 002110 
7 
8 
9 
10 

11 002124 

12 002125 

13 002126 

14 002127 

15 002130 

16 002131 
17 

18 

19 002132 

20 002133 

21 002134 

22 002135 
23 

24 
25 
26 

27 002136 

28 002137 

29 002140 

30 002141 

31 002142 

32 002143 

33 002144 

34 002145 

35 002146 

36 002147 

37 002150 

38 002151 

39 Oroi52 

40 00^153 

41 002154 

42 002155 

43 002156 

44 002157 

45 002157 

46 002160 

47 002161 

48 002162 

49 002163 

50 002164 

51 002165 

52 002166 

53 002167 

54 002170 

55 002171 



000377 
010001 
155555 
133333 
066666 
177777 



030206 
147571 
111014 
066763 



000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000001 
000000 
000002 
000000 
000000 
000000 

000000 
000000 
000000 
000000 
000000 
000000 
000005 
000000 

oooooo 

000000 

oooooo 



CONVERSION BUFFEP 



CONBLK: .BLKU 12. 



COMPARE DATA XFC ( 



NUM: 


.WORD 


255. 


CBUF: 


.UORD 


RDBUF^I 


FWRD: 


.UORD 


155555 


SURD: 


.UORD 


133333 


TURD: 


.UORD 


066666 


DURD: 

* 


.UORD 


177777 


EDC: 


.UORD 


30206 


BADEDC: 


.UORD 


147571 


E0C76: 


.UORD 


111014 


BADE76: 


.UORD 


066763 





COUNTERS 


ERRCNT: .UORD 


0 


SECCNT 


: .UORD 


0 


N: 


.UORD 


0 


N1: 


.UORD 


0 


NNI: 


.UORD 


0 


CNTCYL: .UORD 


0 




.UORD 


0 


HD.CUR 


: .UORD 


0 


CURGRP 


; .UORD 


0 


GRPCNT 


: .UORD 


0 


TRKCNT 


: .UORD 


0 


ONE: 


.UORD 


1 




.UORD 


0 


TUOC: 


.UORD 


2 




.UORD 


0 


SNDCNT 


.UORD 


0 


RTYCNT 


- .UORD 


0 


CURPNT 






UPDPNT 


■ .UORD 


0 


TOTRCT 


.UORD 


0 




.UORD 


0 


RCTCNT 


.UORD 


0 


PCNT: 


.UORD 


0 


COUNT: 


.UORD 


0 


RETRY: 


.UORD 


5 


RECOV: 


.UORD 


0 


TMPTRY: .UORD 


0 


RECTMP: .UORD 


0 


SECSIZ: 


.UORD 


0 



^•CONVERSION BUFFER 



NUMBER OF UORDS IN PATTERN 
BUFFER TO COMPARE (NOT FIRST UORD) 
FIRST UORD OF PATTERM 
SECOND UORD OF PATTERN 
THIRD UORD OF PATTERi^ 
DIAGNOSTIC UORD(FIRST IN SECTOR) 



EDC FOR ABOVE DATA PATTERN 
FORCED ERROR EDC FOR ABOVE 
EDC FOR 576 DATA PATTERN 
FORCED ERROR EDC fOfi ABOVE 



FOR TESTING VERIFICATION 
SECTOR COUNT 

NUMBER OF ORIGINAL CHECK PASS READ 

NUMBER OF ERROR READS 

DITTO 

NUMBER OF CYLINDERS TO rORMAT 

CURRENT HEADER 
CURRENT GROUP 
NUMBER OF GROUPS TO DO 
NUMBER OF TRACKS TO DO 
UORD CONSTANT OF 1 
DOUBLE UORD 
UORD CONSTANT OF 2 
DOUBLE UORD 

COUNT OF SECONDARY RE VECTORS 
COUNT OF SECTORS RETRYED 
POINT FOR HEAD VERIFICATION 
POINTER FOR RCT UPDATE 
TOTAL LBN'S IN RCT'S 

CURRENT RCT BLOCK 
PBN BLOCK COUNTER 
COUNT FOR XBN DLL 
RETRIES FROM SDI 

RECOVERY LEVELS SUPPORTE BY DRIVER 
TEMP FOR RETRY COUNT 
TEMP FOR ERROR RECOVERY LEVEL 
CURRENT SECTOR SIZE 



I z 



UDAFS2 - U0A>S2 FORMATTER DNACR X04.01 23-AUG-82 13:14:22 PAGE 7 
HATH SUBROUTINES 



1 




2 




3 




it 




5 




6 




7 




8 




9 




10 




11 




12 




13 




14 




15 




16 




17 




18 




19 002172 




20 002173 




21 002174 


104235 


22 002175 


104131 


23 002176 


105245 


24 002177 




25 002201 


115401 


26 002202 


105141 


27 002203 


100141 


28 002204 


100445 


29 002205 




30 002206 




31 002207 


117403 


32 002210 




33 





OAOD: 



.SBTTL MATH SUBROUTINES 

SUBROUTINES 

DOUBLE ADO ROUTINE 
INPUT PARAMETERS 

R3 CONTAINS POINTER TO OPERAND 1 

R4 CONTAINS POINTER TO OPERAND 2 

OUTPUT PARAMETER 



R4 



PUSH 
PUSH 
MOV 
NOV 
ADD 
BCC 
INC 

DADD1 : ADD 
MOV 
NOV 
POP 
POP 
DEC 

RETURN 



CONTAINS THE RESULT 

R5 
R1 

(R3)*,R5 

(R3),R1 

(R4)«.R5 

DAD01 

R1 

(R4),R1 

R'i,(R4) 

R5.-(R4) 

R1 

R5 

R3 



SAVE A SCRATCH REGISTER 

SAVE ANOTHER 

GET LOU ORDER OPERAND 

GET HIGH ORDER OPERAND 

ADD LOU ORDER OPERAND 

BRANCH IF NO CARRY 

ADD ONE TO HIGH IF CARRY 

ADD OP 2 

SAVE HIGH ORDER 

SAVE LOU OPDER 

RESTORE R1 

RESTORE R5 

RESTORE R3 



J 2 
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SEO 22 



1 



4 
5 
6 

7 
8 

9 
10 
11 
12 
13 
U 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 



002212 



DSUB: 



002212 

002214 104245 

002215 104141 

002216 107135 
002217 

002221 117401 

002222 107631 000001 

002224 100141 

002225 100445 
002226 
002230 



10$: 



DOUBLE PRECISION FIXED POINT SUBTRACT ROUTINE 
INPUTS : 

R3 - POINTER TO OPERAND 1 (SUBTRAHEND) 
R4 ^ POINTER TO OPERAND 2 (MINUEND) 

OUTPUT: 

R4 » POINTER TO RESULT WHERE (R4) s (RA) - (R3) 



PUSH 

NOV 

MOV 

SUB 

BCC 

DEC 

SUB 

MOV 

MOV 

POP 

RETURN 



R1,R5 

(R4)*,R5 

(R4),R1 

(R3)«R5 

10$ 

R1 

1(R3).R1 
R1,(R4) 
R5«-(R4) 
RS«R1 



SAVE REGISTERS 

GET LO ORDER MINUEND 

GET HI ORDER MINUEND 

SUBTRACT LOU ORDER OPERANDS 

POSITIVE RESULT 

BORROW FROn HI ORDER OPERAND 

SUBTRACT HI ORDER OPERANDS 

STORE HI ORDER RESULT 

STORE LO ORDER RESULT 

RESTORE REGISTERS 



K 2 
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SEO 23 



1 002232 



8 
9 
10 
11 
12 
13 
H 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
25 
26 
27 



OMUL: 



002232 

002234 10^137 
002235 

002237 100147 
002240 100647 000001 
002242 

002244 104140 001405 5$: 
002246 104640 000001 001406 
002251 104203 001405 
002253 117407 10$: 
002254 
002256 
002260 
002262 
00226'. 



20$: 



DOUBLE PRECISION FIXED POINT MULTIPLY ROUTINE 
INPUTS * 

R3 » POINTER TO MULTIPLIER (SINGLE PRECISION) 
R4 c POINTER TO MULTIPLICANT (DOUBLE PRECISION) 



OUTPUT: 



R4 s POINTER TO RESULT UHERE (R4) - (R4) * (R3) 



PUSH 

MOV 

BNE 

MOV 

MOV 

BR 

MOV 

MOV 

MOV 

DEC 

BEQ 

CALL 

BR 

POP 

RETURN 



R0,R3 

(R3),R0 

5$ 

R0,(R4) 

R0.1(R4) 

20i 

(R4),MULPC 

1(R4),HULPCM 

#MULPC,R3 

RO 

20$ 

DADD 

10$ 

R3,R0 



SAVE RO ft R3 
GET MULTIPLIER 
MULTIPLIER NOT = 0 
LOAD LO ORDER RESULT 
LOAD HI ORDER RESULT 
RETURN 

COPY MULTIPlICANT FOR DADD 



ADJUST MULTIPLIER FOR •I 
MULTIPLIER - 0, EXIT 
PERFORM ITERATIVE ADDS 



RESTORE RO t R3 
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1 

2 
5 


002266 






4 
5 
6 








7 








8 








9 








10 








11 








12 








13 








14 








15 








16 








17 


002266 






18 


002272 


114007 




19 


002273 


114001 




20 


002274 


104132 




21 


002275 


104645 


000001 


22 


002277 






23 


002301 


104145 




24 


002302 


106052 




25 


002303 






26 


002305 






27 


002307 






28 


00231 1 


105207 


000001 


29 


002313 






30 


002315 


115401 




31 


002316 






32 


002320 


104145 




33 


002321 


100147 




34 


002322 


100641 


000001 


35 


002324 


100135 




36 


002325 






37 


002331 






38 









DDIV: 



10$: 
15$: 
20$: 

30$: 



DOUBLE PRECISION FIXED POINT DIVIDE 
INPUTS * 

R3 = POINTER TO DIVISOR (SINGLE PRECISION) 

HIGH ORDER WORD MUST BE ZERO 
R4 = POINTER TO DIVIDENT (DOUBLE PRECISION) 

OUTPUT: 

R3 = POINTER TO REMAINDER 
R4 - POINTER TO QUOTIENT 

NOTE - THE CASES WHERE EITHER THE DIVISOR OR DIVIOENT ARE ZERO, 
ARE NOT CONSIDERED IN THIS ROUTINE. 



PUSH 


R0,R1,R2,R5 I 


SAVE REGISTERS 


CLR 


RO 


CLP LO ORDER QUOTIENT REG 


CLR 


R1 


CLR HI ORDER QUOTIENT REG 


MOV 


(R3),R2 


■ GET DIVISOR 


MOV 


1(R4),RS 


; GET HI ORDER DIVIDENT 


BNE 


20$ 


• DIVISOR NOT - 0 


MOV 


(R4).R5 
R5,R2 


; GET LO ORDER DIVIDENT 


CMP 


; IS DIVIDENT < DIVISOR ? 


BCC 


20$ 


; NO. CONTINUE 


BR 


30$ 


; YES, STOP 


CALL 


DSUB 


; SYNTHESIZE DIVIDE 


ADD 


«1.R0 


r INCR LO ORDER QUOTIENT 


BCC 


loi 


; DID NOT OVERFLOW 


INC 


R1 


; ADJUST HI ORDER QUOTIENT 


BR 


10$ 




NOV 


(R4),R5 


; GET REMAINDER 


NOV 


R0,(R4) 


; LOAD LO ORDER QUOTIENT 


NOV 


R1,1(R4) 


; LOAD HI ORLER QUOTIENT 


NOV 


R5«(R3) 


; LOAD REMAINDER 


POP 


R5,R2,R1,R0 


; RESTORE REGISTERS 


RETURN 





M 2 
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MATH SUBROUTINES 



1 




2 




3 








5 




6 




7 




8 




9 




10 




11 




12 




13 




U 


002333 


15 


002334 


16 


002335 


17 


002336 


18 


002340 


19 


002342 


20 


002344 


21 


002346 


22 


002347 


23 


002350 


24 


002352 


25 


002354 


56 


002355 


2r 


002356 


28 


00?360 


29 


002362 


30 


002363 


31 


002365 


32 


002366 


33 


002367 


34 


002370 


35 


002372 


36 


002373 


37 


002375 



DCNP: 



104141 

104647 000001 
106637 000001 



106204 000000 

106204 077777 
106131 

106044 
106131 



DCNP4: 



DCNP2: 



DCMP1 : 



DCNP3: 



DOUBLE COMPARE 
INPUT PARAMETERS 

R3 CONTAINS A POINTER TO THE FIRST OPERAND 

R4 CONATINS A POINTER TO THE ''^COND OPERAND 

OUTPUT PARAMETERS 

THE FLAGS ARE SET AS IF A SINGLE PRECISSION "CMP" HAD OCCURED 



PUSH 

PUSH 

MOV 

MOV 

CMP 

BEQ 

BCC 

POP 

POP 

CMP 

RETURN 
POP 
POP 
CMP 

RETURN 

CMP 

BNE 

POP 

POP 

CMP 

RETURN 
CMP 
BCC 
BR 



RO 
R1 

(R4)«R1 

1(R4},R0 

1(R3)«R0 

DCMP1 

DCMP2 

R1 

RO 

»0,R4 

R1 
RO 

#077777, R4 

(R3).R1 
DCMP3 
R1 
RO 

R4,R4 

(R3).R1 

DCMP2 

DCNP4 



SAVE RO FOR USE AS SCRATCH 
SAVE R1 FOR USE AS SCRATCH 
GET LOy ORDER DEST OPERAND 
GET HIGH ORDER DEST OPERAND 
DO ACTUAL HIGH ORDER TEST 
60 DO ADDITIONAL TESTING 
SRC HI, CLEAN UP AND RTN 
RESTORE R1 
RESTORE RO 

SET CONDITION CODES - SRC LSS 
AND RETURN 
RESTORE R1 
RESTORE RO 

SET CONDITION CODES - DST LSS 
AND RETURN 
TEST LOU ORDER 
BRANCH IF NOT EQUAL 
RESTORE R1 
RESTORE RO 

SET CONDITION CODES - EQUAL 
AND RETURN 
COMPARE AGAIN 
BRANCH ON SRC HI 
BRANCH ON SRC LOU 
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SDI SUBROUTINES 



1 

2 
3 
k 
5 
6 
7 
8 
9 
10 








11 








12 


002377 






13 


002A00 






K 


002A01 


10A203 


001A1A 


15 


002A03 






16 


002A05 


10A207 


001503 


17 


002A07 


10A673 


000002 


18 


002A11 


103203 


177A20 


19 


002A13 


115003 




20 


002A1A 






21 


002A16 


10A030 


001502 


22 


002A20 






23 


002A22 


10A205 


001504 


2A 


002A2A 


10A253 




25 


002A25 


10A202 


000001 


26 


002A27 


102203 


OOOOAO 


27 


002A31 






28 


002A33 


115A02 




29 


002A3A 


102203 


000001 


30 


002A36 






31 


002AA0 


10A202 


OOOOOA 


32 


002AA2 


102203 


000002 


33 


002AAA 






3A 


002AA6 


10A032 




35 


002AA7 


110702 




36 


002AS0 


102302 


00U73 


37 


002A52 






38 


002A5A 


1uA202 


000003 


39 


002A56 


102200 


000001 


AO 


002A61 






A1 


002A63 


101200 


000001 


A2 


002A66 






A3 


002A70 






AA 


002A72 


102203 


000020 


A5 


002A7A 






A6 


002A76 






A7 


002500 






A8 


002502 


102203 


002000 


A9 


00250A 






50 


0025C6 






51 


002510 






52 


002512 


102203 


001000 


55 


00251 A 






5A 


002516 






55 


002520 






56 


002522 


10A153 




57 


002523 


102203 


000010 





.SBTTL 


SOI SUBROUTINES 




GET STATUS 












nDiuc CTATiie Ann 






Ai DPAnv Dcrpfucn 

ALNCAUT NCLCIVCU 


CSTATS: 


Dl ICU 


OX 




Dl ICU 


DC 
N J 


STATST: 


nuw 






CALL 


TAi V 
1 ALK 






irCT DO 




nuv 


CT CDDfOn\ 07 




Df r 

DlL 


ifCT nC^UlDVTC 




1 O 1 


ux 

n J 




DtU 


d 1 1 




nuv 


dx nri daI 




TAI 1 
LALL 


ri FAD 
LLCAK 


STSK1 : 


Mnu 

nuv 


irCTAl DC 




Mnu 

nuv 






Mnu 

nuv 


ill D9 




Df T 






one 


o 1 ~n 1 L 




iMr 


nc 
















rlvV 


#A R? 




BIT 


ifCT PS Pi 




Ob W 


STPNIC 

i9 1 r PVl b 




NOV 


R3 R2 






R2 




BIT 


GSR^I R2 




BEO 


SRCK 






#3 R2 

w ^ 0 nb 




BIT 


#UP FLA61 




BNE 


STPNIC 




BIS 

Ol W 


#yP FLAGi 




CALL 


ACCESS 




BR 


STATST 


SRCK: 


AIT 


#ST SR R^ 




Dflb 


STFORM 




CALL 


LOAD 




JMP 


STATST 


STFORM: 


BIT 


#ST.F0.R3 




BNE 


STDIAG 




CALL 


ACCESS 




JMP 


STATST 


STDIA6: 


BIT 


fST.DB,R3 




BNE 


STULK 




CALL 


ACCESS 




JMP 


STATST 


STULK: 


nov 


(R5),R3 




BIT 


fST.UE.R3 



SEQ 26 



UDAF 
NISC 



CHARACTERISTICS 



PUSH R3 
PUSH R5 

POINT TO GET STATUS TABLE 
GET STATUS 

POINT TO SUBUNIT CHARACTERISTICS 

GET ERROR BYTE 

CLEAR HIGH BYTE AND DF BIT 

ANY NEED TO ISSUE DRIVE CLEAR ? 

NOPE - SKIP IT 

STORE MASK IN DRIVE CLR CCMHANO 

DO A DRIVE CLEAR 

POINT TO FIRST WORD OF STATUS 

GET FIRST UORD OF STATUS 

ERROR SUBCODE IN CASE 

IS DRIVE IN DIAGNOSTIC REQUEST PWDE 

YES« UE LOSE 

ERROR SUBCODE 2 

IS RUN STOP SWITCH OUT 

YES, LOSE AGAIN 

SUBCODE 

PORT SWITCH OUT ? 

YES - DIE PAINFULLY 

GET STATUS NODE BYTE 

SWITCH WRITE PROTECT TO LOW BYTE 

THIS SUBUNIT WRITE PROTECTED ? 

IF NOT CHECK IF SPINNING 

IN CASE IT*S FATAL 

BEEN HERE ONCE ? 

YUP - GIVE UP 

SET BEEN HERE FLAG 

TRY TO RESET IT 

AND SEE IF IT WORKED 

IS PACK SPINNI.^G? 

YES, TEST FOR FORMAT ENABLE 

NO, SPIN PACK 

SEE IF ANYTHING CHANGED 

IS FORMATTING ENABLED? 

YES, TEST FOR DIAG ACCESS 

NO, SET UP DIAG/FORH ACCESS 

SEE IF ANYTHING CHANGED 

IS DIAG CYL ACCESS ALLOWED 

YES, CHECK FOR ERRORS 

NO, SET UP 01 AG/FORM ACCESS 

SEE IF ANYTHING CHANGED 

GET SECOND STATUS WORD 

ANY WRITE ENABLE ERRORS 



B 
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58 002525 

59 002527 

60 002531 

61 002S33 

62 002556 
53 002540 

64 002 542 

65 002544 

66 002546 

67 002550 

68 002553 

69 002554 

70 002555 

71 002557 

72 002561 



102200 010000 001702 CHAR: 
104203 001420 



104203 001424 

101200 010000 001702 



104201 000001 



STSKP: 



STPNIC: 



BEQ 

CALL 

BR 

BIT 

BNE 

nov 

CALL 

NOV 

CALL 

BIS 

POP 

POP 

RETURN 

MOV 

CALL 



CHAR 

ACCESS 

STATST 

#CHR0NE,FLAG 
STSKP 

#CR.GCR,R3 
TALK 

#CR.GSR,R3 
TALK 

#CHRDNE,FLA6 

RS 

R3 

#1,R1 
ERRNNT 



HO, GET CHARACTERISTICS 
TRY ENABLING LOGICAL WRITE 
AND CHECK WORLD AGAIN 
CHARCTERISTICS ALREADY RECEIVED 
YUP - NO NEED TO GET AGAIN 
POINT TO GET CHAR CHD TABLE 
GET CHARACTERISTICS 
GET SUBUNIT CHARACTERISTICS 
GET THEM 

SET CHAR DONE BIT 
RESTORE RS 
RESTORE R3 
RETURN TO CALLER 
INDICATE STATUS FAILURE 
SEND ERROR MSG AND QUIT 



C 3 



UDAFS2 - UDA>S2 FORMATTER DMACR X04.01 23-AUG-82 13:U:22 PAGE 13 
SOI SUBROUTINES 



1 

2 

3 
/ 

H 

c 

O 
7 

f 

a 
O 

Q 

in 

1U 








1 1 








1c 








1 i 


nn5CAY 






1 /. 

1 H 










UUc30> 


M\Lt>AX 


000001 


ID 


nn5CA7 

Uvc50r 






1 f 


nA5C7n 






ID 


nA5<71 
UUc5r 1 


1 0A 7/15 


001 A1 5 
UU 1*1 Ic 


10 


UUc5' J 


OAOAOA 




jn 
cU 




1 1 <ooi 

1 1 5UU1 




51 


UUc5' 5 






55 
cc 


ftA5^77 
UUc5r f 


1 1 5*tUU 


001770 


07 
eJ 


WcOUl 


10A501 


000005 


5/. 


UUcDUj 






5C 


UUcOU5 


105500 


100000 


5A 
CO 


UvcO lU 






57 


An5iL1 5 


1 1 AOOO 


001 770 


511 
CO 


nn5Ai A 

UUcO !*• 


10A571 




5Q 


UUcO 1 5 


10A177 




3U 


UUcOlO 


lv*t JVC 


001A15 
UU 1 *• 1 c 


Vl 

J 1 




OAOon^ 

UOUUw? 




»5 


nA5A51 
UvcOc I 


1 1 ^001 






0/1505 






XL 


WCDc*> 


11CA00 
1 1 


001 7A7 
UU 1 JOr 


TC 

J5 


AA5A5A 

UvcOcO 


1 0A 501 


OOOOOA 


jO 








■»7 
jf 


nA5AX5 


1 wOcUf 


0001 7C 
UUU 1 1 J 


jO 


on5A^ 






XQ 




IICZOA 
1 1 jHW 


001 


•lU 


UVCO**v 


10^901 


OOOOAX 




nA5A^5 
UvcOtc 










105500 
1 wCCvv 




LX 








LL 


Uvc05 1 


1 1A0AA 
1 l*iUVw 


0O1Tl^7 


L^ 


WCOjj 






Lti. 








L7 








Z.R 




11A005 




LQ 


WcOOV 








nA5A/;9 


105500 

1 UCCW 


1 00000 


51 


002665 






52 


002667 


101200 


100000 


53 


002672 


104060 


001701 


54 


00267A 






55 


002676 


104306 


001701 


56 


002700 


106300 


002165 


57 


002703 







001702 



TALK ROUTINE 

INPUT PARAMETERS 

R2 CONTAINS PORT NUHBEf 

1)3 CONTAINS A POINTER 1 

OUTPUT PARAMETERS 



001702 



001702 
001702 

001370 



TALK: 


PUSH 


R3 




PUSH 


R4 


L00P1 : 


NOV 


1(SP),R3 




nov 


(R3)^«R0 




NOV 


(R3)*,R1 




NOV 


UNIT,R2 




XFC 


SEND 




TST 


R1 




BEO 


NSGI 




JNC 


UN.ERT 




NOV 


#2,R1 




BR 


TCLEAR 


nSGI : 


BIT 


*RTY-FLA6 




BNE 


L00P2 




CLR 


UN.ERT 


L00P2: 


NOV 


(R3)*,R1 




NOV 


(R3>,R0 




NOV 


UNIT.R2 




XFC 


RCV 




TST 


R1 




BEQ 


TALKON 




INC 


UN. ERR 




NOV 


#4,R1 




BR 


TCLEAR 


TALKDN: 


CNP 


fUNSECRO 




BNE 


TALKRT 




INC 


UN.ERR 




NOV 


f3.R1 




BR 


TCLEAR 


TALKRT: 


BIT 


#RTY,FLA6 




BNE 


TALKP 




CLR 


UN.ERR 


TALKP: 


POP 


R4 




POP 


R3 




RETURN 




ERRT: 


aR 


R2 




CALL 


ERRNNT 


TCLEAR: 


BIT 


fRTY.FLAG 




BNE 


TALK IP 




BIS 


fRTY.FLAG 




NOV 


SP.STCKSV 




BR 


TALIP1 


TALK IP: 


NOV 


STCKSV,SP 


TALIP1 : 


CNP 


RETRY.UN.ERT 




BNI 


ERRT 



A CONNAND/RESPONSE ADDRESS/SIZE TABLE 



RESTORE R3 FOR RETRIES 

GET COWIAND ADDRESS 

GET CONNAND SIZE 

NAKF SURE HAVE INTERCONNECT 

SEND GET STATUS CONNAND 

SUCESSFUL? 

YES, BRANCH 

INCREMENT ERROR COUNT 

ERROR NUNBER IN CASE 

DO RECOVERY 

IN A RETRY ? 

YES - DON'T CLEAR COUNTER 
FOR RESET 

POINT TO RCV BUFFER 

SET SIZE OF REPLY 

NAKE SURE HAVE INTERCONNECT 

RCV REPLY TO GET STATUS 

SUCESSFUL? 

YES, CHECK STATUS 

INCRENENT ERROR COUNT 

ERROR CODE IN CASE 

DO RECOVERY 

WAS CMD UNSUCESSFUL? 

YES, DONE 

INCREMENT ERROR COUNT 
ERROR CODE IN CASE 
NO, TRY AGAIN 
IN A RETRY ? 
YUP - SKIP CLEAR 
CLEAR FOR REST 
RESTORE R4 
RESTORE R3 

CLEAR SUBCODE 
ERROR EXIT 
IN A RETRY "* 

YUP - SKIP FLAG SET AND STACK SAVE 
SET FLAG 

SAVE STACK POINTER 
SKIP RETRY HANDLING 
RESTORE STACK POINTER 
DONE RETRIES ? 
YUP - CAN IT 



0 3 
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58 


002705 


4 A^ YAA 

106300 


AA ^4 ^ C 

002165 


59 


002710 






60 


002712 


4 A / 9A^ 

104302 


AA4 / 4 ^ 

001412 


61 


0027K 


A^ AA4 4 

060011 




62 


002715 






63 


002717 






6A 


002721 






65 


002723 






66 


002725 






67 


A^^7^7 

002727 






68 


002731 


1 A'^lAi 

102201 


AAAAA1 
000001 


69 


AA')77T 

002733 






70 


002735 
002737 


1 A/ "^Al 


AAAA^y 

OOOOc^ 


71 


11/ AA^ 

114002 




72 


002740 






73 


002742 






7h 


A/\^7/ # 

002744 


1 A7 AA 

103200 


f A A A A A 

100000 


75 


A/\^7y 7 






76 








77 








78 








79 


AA'^7C1 

002751 






80 


002752 


1 A/ 'tA V 

104203 


AA1 y cy 

001454 


81 


002754 






82 








83 








8A 








85 


002756 






86 


002757 


4 « y AAA 

114000 


AA1 771 

001 3r1 


87 


002761 


1 A/ OAY 

104203 


AA1 / V£ 

001434 


88 


002763 






89 


002764 


i Ay 1 T7 
10413r 




90 


002765 


1U4C>31 


AAAAAI 
000001 


91 


002f 6r 


1 A/ TAO 

1U43U2 


AA1/ 1 O 

001412 


92 


AA0771 
002^^1 


/w AAA/ 

060004 




93 


AA0770 
0027 fd 


« 4 CAA1 

115001 




94 


AA077T 






OC 


AA977C 

OOcf f 5 


1 1 CZ AA 

1 1 54U0 


AAI 771 

0013r 1 


TO 


AA0777 

002r f 1 


1 AZ.TnA 

106300 


AA01XC 

002105 


07 
Tf 


AATAAO 

UU.)UUc 






OS 


AA1AAZ 
UU3UU4 






oo 


UU31AIO 


11 /.AAA 

114000 


AAI 771 

001 3r1 


100 


AATA1 A 


1 A/ TAZ 

104304 


AA1 77C 

001 r35 


1 A1 

101 


AAYA1 O 

003012 


1 Ay ZT1 
1 04631 


AAAAAO 

000002 


1 AO 

102 


U03U14 


104o3r 


AAAAA7 

000003 


1 AT 

103 


AATAI L. 


1 A/ TA9 

104302 


AA1/.1 3 

001412 


1 A/ 

IOh 


AA1AOA 

003020 


AX AAA C 

060005 




1 AC 

105 


AATA01 


1 1 CAA1 

115001 




100 


00j022 






1 A7 


00jU24 


1 1 7£ l\L 

1 1 f404 




lUO 








109 


003027 






110 


003031 






111 


003032 






112 


003033 






113 


003035 


104201 


000003 


IK 


003037 


114002 





TERR: 



001702 



RECAL: 



LOAD: 



001371 



L0A03: 



CMP 


RETRY, UK .ERR 


SHI 


ERRT 


NOV 


UNIT.Rc 


XFC 


DINIT 


CALL 


STATVL 


6NE 


TERR 


CALL 


T ff MP A 

TINER 


CALL 


T ff HC A 

TlncR 


CALL 


CT A Till 

STATVL 


BNc 


TCfiB 

TCnR 


BIT 


JIA/*tJAAW A1 

fRCVRDY«Rl 


BNE 


TATTN1 


mv 


#20.,R1 


CLR 


R2 


CALL 


ERRHNT 


CALL 


6STATS 


BIC 


fRTY.FLAG 


BR 


LOOPl 


RECAL ROUTINE 


PUSH 


R3 


NOV 


#CR.RCL.R3 


JHP 


LOADS 


LOAD ROUTINE 


PUSH 


R3 


CLR 


UN.ERI 


NOV 


fCR.RUN,R3 


PUSH 


R4 


NOV 


(R3),R0 


NOV 


1(R3),R1 


NOV 


UNIT,R2 


XFC 


SEND 


TST 


R1 


BEO 


L0A02 


INC 


UN.ERI 


CNP 


RETRY ,UN.ERI 


BNI 


LOADER 


BR 


LOADS 


CLR 


UN.ERI 


NOV 


LT0,R4 


NOV 


2(R3),R1 


NOV 


3(R3),R0 


NOV 


UNIT«R2 


XFC 


RCV 


TST 


R1 


BEO 


L0AD4 


DEC 


R4 


BNE 


L0AD3 


BR 


LOADER 


POP 


R4 


POP 


R3 


RETURN 




NOV 


#3,R1 


CLR 


R2 



SEQ 29 



;OVER THE LIMIT ? 
;YUP 

:GET UNIT 

;INIT THE DRIVE 

;TST DRIVER STATUS VALIDITY 

;IF NOT ZERO - NO GOOD 

;UAIT ANOTHER 2 SECONDS 

:T0 NAKE SURE DRIVER HAS ENOUGH TINE 

;GET VALID STATUS AGAIN 

;IF NO GOOD - ERROR 

;IS RECEIVER READY SET 

;YES - ALL SET 

:SET ERROR CODE 

.CLEAR SUBCODE 

;DIE PEACEFULLY 

;GET STATUS AND CLEAR ERRORS 

.CLEAR RETRY FLAG 
.-AND TRY AGAIN 



'SAVE R3 

•POINT TO RECAL TA6LE 
;SEND CND VIA LOAD ROUTINE 



SAVE R3 
FOR INir 

POINT TO LOAD DRIVE TABLE 
SAVE R4 

GETCONNAND ADDRESS 

GET CONNAND SIZE 

GET INTERCONNECT 

ISSUE GET STATUS CONNAND 

SUCCESSFUL ? 

YUP - SKIP RETRY 

INC COUNT 

DONE ALL RETIES ? 

YUP 

FOR ERROR CLEAR 

LONG TINEOUT VALUE (SECONDS) 

GET RECEIVE BUFFRE 

GET BUFFER LENGTH 

GET INTERCONNECT 

RECEIVE SDI RESPONSE 

SUCCESSFUL ? 

YUP - SKIP RETRY 

DECREMENT COUNTER 

LOOP TILL DONE 

IF NOT DONE YET - THEN ERROR 

RESTORE R4 

RESTORE R3 

RETURN TO CALLER 

ERROR CODE 

CLEAR SUBCODE 
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1 i C AAVAy A 

115 003040 






116 












i i D 

1 18 






1 1 O AATAy *> 

119 0030h<: 






i ^A AAYAy T 

\cQ 003043 


1 A/ 

1 04203 


AA1 J J f\ 

001440 


icl 003C*5 












1 OY AATACA 

1c3 003030 






1 0/ 






1 oc 

IC J 






1 oz. 






1 '37 AA7ACO 

fcf 003052 






l£tS 003033 


1 0h£03 


nm / / / 

001 H^H 








lYn AATnc7 
l3U 0030) r 






1 Ti nntni.n 
1 31 0U30O0 






13c 






1 55 






1 3<» 






1 33 00300e 






136 003063 






13f 00306«> 


10h30c 


AA 1 / 1 O 

001412 


13(3 0U3066 


1 A/ OAT 

10*c03 


AA1 y CA 

001*30 


1 AAlA7n 

13V 0030 rO 






IhO 0030rc 


1 n/ xt\x 
1 Oh 303 


nm 7TA. 
001 r 30 


1/1 nntny/ 
inl 0030rH 






Ihc w5Uro 






t**5 (/U310U 


lUecUl 


OUOOOc 


W5lVC 






IXC AA71AZ 




1 AAAnn 
1 UOOOU 


1h6 UU3iUO 




1A7 /wsiin 
UU311U 


1 1 7A AT 

1 1 f hU3 




1Z0 AATI 11 
1*0 003111 






1AO n/ITIIT 
Imt UU3I 13 


in/, on? 


AAAOZn 


13v 0U3113 


1 1 ?z,n7 
1 1 ftUf 




131 J03116 






1 JC W5 1 cv 






133 UU3lcc 


1 i/,nni 




13*1 UU3l£3 






ICC nnzisc 

133 UU3lc3 






1 30 Wj 1 cO 






13r UU3lcf 






1 30 W5 1 3 1 






■ 37 (AI3133 


1 1 c/.nn 

1 1 3hUU 


nm T75 


lOU UU3I33 


inx tnn 
1U63(Al 


nnoi AC 
UUC103 


1A1 n/ITIAH 
1 0 f W3 ! mU 






lOc W51HC 






1 03 UU3 1 HM 






10*1 0U3l«i0 






0031 SO 


104201 


1 77775 


166 003152 






167 






163 






169 






170 003154 






171 003155 


104203 


001430 



ACCESS: 



CLEAR: 



SEEK: 
SEEKO: 

SEEK1 : 



SEEK7: 



SEEK6: 
SEEK4: 



SEEKS: 
SEEK2: 



SEEK3: 



6l$C0N: 



CALL 



ERRMNT 



ACCESS ROUTINE 



PUSH 
MOV 
CALL 
POP 

RETURN 



R3 

#CR.ACC,R3 

TALK 

R3 



CLEAR ROUTINE 



PUSH 

NOV 

CALL 

POP 

RETURN 



R3 

#CR.CLR,R3 

TALK 

R3 



SEEK ROUTINE 



PUSH 
PUSH 

nov 
nov 

CALL 

NOV 

CALL 

BNE 

BIT 

BNE 

BIT 

BME 

DEC 

BEQ 

NOV 

DEC 

BNE 

BR 

CLR 

CLR 

POP 

POP 

RETURN 

CALL 

INC 

CNP 

BEQ 

CALL 

CALL 

BR 

NOV 

BR 



R3 
RO 

UNIT.R2 

«CR.SEK,R3 

TALK 

STO.Ri 

STATVL 

SEEKS 

#ATTN,R< 

SEEK2 

#RURDY,R1 

SEEK6 

R3 

SEEKS 
#160. «R0 
RO 

SEEK7 
SEEKI 
R1 

UN.SEK 

RO 

R3 

INITPT 

UN.SEK 

RETRy,UN.SEK 

SEEK3 

6STATS 

RECAL 

SEEKO 

#-3,R1 

SEEK4 



UNLOAD ROUTINE 



PUSH 
NOV 



R3 

fCR.DIS,R3 



;OIE 



SAVE R3 

POINT TO ACCESS TABLE 
SEND ACCESS CND 
RESTORE R3 
RETURN TO CALLER 



'SAVE R3 

•POINT TO CLEAR TABLE 
:SEND CLEAR CND 
; RESTORE R3 
; RETURN TO CALLER 



SAVE R3 
SAVE RO 

NAKE SURE HAVE UNIT 

POINT TO SEEK TABLE 

SEND SEEK CONNANO 

SHORT TINEOUT 

CHECK FOR STATUS VALIDITY 

IF NOT ZERO - DIE 

ANY PROBLENS 

YES, BRANCH 

NO, DONE? 

ALL DONE 

DECRENENT COUNTER 

IF ZERO THEN DEAD 

INS DELAY 

DECRENENT COUNTER 

DELAY LOOP 

TRY AGAIN 

CLEAR ERROR FLAG 

FOR RESET 

YES, RESTORE RO 

RESTORE R3 

RETURN TO CALLER 

INIT THE DRIVE 

INCRENENT RETRY COUNTER 

HAVE VE DONE ALL RETRIES? 

YES. PANIC 

PANIC AND CALL GET STATUS 

RECAL DRIVE 

AND TRY AGAIN 

SET ERROR CODE 

RESTORE REGS AND RETURN 



'SAVE R3 

•DISCONNECT WITH 



F 3 
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172 00515/ 




173 003161 




If* 003162 




1 fo 




1 ft 




Iff 




1^8 003 i6s 




1 f ▼ 003163 


1 ^A7 


loO 00316' 




181 0031 r1 




ISO nmi 70 
18c 0031 




183 




1 a/ 
18m 




1o7 




166 0031 fH 




1B7 AATI 7C 

18r 0031 '5 




1 68 0031 f r 


1 A/ OAV 

104c0h 


4 BO AAIOAI 

18V 003c0i 


1 AZ OA7 
1 0%4:03 


IW 003c03 


1 r\Li\/ 5 
1 OhOhc 


1 7l U03cUh 


AAAA1 1 
00001 1 


IVc 003c0) 


1 AA5A7 


173 003£0r 




iVh 003e11 




IOC n/iTDiT 
17> U03c13 


117/ A7 


ItO 003c I h 




IVr 003el6 


1 A05A1 


lOB nnTOon 
178 003cc0 




177 UU3ce£ 


1 1 A5AZ 


cUU UU3cc3 


1 1 7Z.A^ 
1 1 rHU3 


cUi UU3ccn 




CKlC wicco 




cU3 UU3c3U 




cUh Wicjl 




cU3 




cUO 




cvf 




cUe 






1 AA XA5 
IUh jUc 


clU UUJcJ3 


AAAA1 1 
VOVU 1 1 


911 HA'OTA 
el 1 UU3c30 


in/.5A7 












1 1 fHMf 


?15 001?4S 




216 003247 


102201 


217 003251 




218 003253 




219 003255 


104201 


220 003257 


1U002 


221 003260 





00U64 



ONLIN: 



000001 
000004 



066540 



000001 



INITIT: 

INIT5: 
ATTN1 : 

AOUT: 



001412 
066540 

000001 
000024 



INITPT: 
INITPIs 



CAl L 


TALK 


POP 


R3 


RETURN 




ONLINE 


ROUTINE 


PUSH 


R3 


nov 


fCR.0NL,R3 


CALL 


TALK 


POP 


R3 


RETURN 




INITIALIZE ROUTINE 


PUSH 


R1 


PUSH 


R3«R4 


NOV 


f1,R4 


NOV 


#4«R3 


NOV 


R4,R2 


XFC 


DINIT 


NOV 


#28000., RO 


CALL 


STATVL 


BNE 


AOUT 


DEC 


RO 


BEQ 


AOUT 


BIT 


»RCVR0Y,R1 


BEQ 


ATTN1 


ROL 


R4 


DEC 


R3 


BNE 


INIT5 


POP 


R4.R3 


POP 


R1 


RETURN 





INIT GIVEN PORT 



INI TDD: 



NOV 

XFC 

NOV 

CALL 

BNE 

DEC 

BEQ 

BIT 

BEQ 

RETURN 
NOV 
CLR 
CALL 



UNIT,R2 
DINIT 

#28000., RO 
STATVL 
INITDD 
RO 

INITDD 

#RCVRDY,R1 

INITP1 

#20., R1 
R2 

ERRNNT 



.•SEND UNLOAD CND 
; RE STORE R3 
.-RETURN TO CALLER 



SAVE R3 

ONLINE CONMAND 
BRING DRIVE ONLINE 
RESTORE R3 
RETURN TO CALLER 



SAVE R1 

SAVE R3 AND R4 
START WITH PORT 0 
INIT PORT COUNTER 
SET UP INTERCONNECT 
INIT DRIVE 

TINER (APPROX 2 SECS) 

CHECK STATUS VALIDITf 

IF NOT ZERO - NO GOOD 

DEC COUNT 

IF ZERO THEN DEAD 

IS RECECIVER READY SET ? 

NO, TRY AGAIN 

NEXT PORT 

DECREMENT COUNTER 

IF NOT DONE DO NEXT PORT 

RESTORE R3 AND R4 

RESTORE R1 

AND RETURN TO CALLER 



GET PORT NUMBER 

DO THE INIT 

1 SECOND TIMER 

VALIDATE STATUS 

DEAD IF NOT VALID 

DECREMETN COUTNER 

DEAD IF COUNT EXPIRED 

DONE INIT ? 

NOPE - KEEP TRYING 

EXIT 

ERROR CODE 
NO SUBCODE 
ERROR EXIT 
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7 
2 
3 

5 
6 
7 

8 003262 

9 00326A 
10 003265 
n 003267 

12 003271 

13 003272 

14 003274 

15 003276 

16 003277 

17 003301 

18 003304 

19 003306 

20 003310 
21 

22 
23 

24 003312 

25 003313 
26 

27 
28 

29 003316 

30 003320 



104204 002013 
105014 

104203 004014 
115007 

114C00 001367 



NEXT: 
NEXTS: 



106300 002165 001367 OERR: 
115400 001367 



104012 0ERR2: 
101200 000020 001703 



104201 000005 



UERR: 



.SBTTL OVERLAY PROCESSING ROUTINES 

OVERLAY PROCESSING ROUTINES 
R1 - OFFSET INTO TABLE 

NEXT CALLS OVERLAY FOR NEXT CODE OVERLAY 



NOV #0VLTBL,R4 

ADD R1,R4 

NOV #START,R3 

CALL OVRLAY 

TST RO 

BNE OERR 

CLR UN. ERR 

POP R1 

BR START 

CNP RETRY«UN.ERR 

BEQ 0ERR2 

INC UN.ERR 

BR NEXTS 

DEAD HOST EXIT FOR ALL ROUTINES 



GET POINTER TO OVERLAY TABLE 

INDEX INTO TABLE 

UDA ADDRESS TO LOAD AT 

CALL ROUTINE TO DO OVERLAY 

CHECKSUM O.K. ?? 

YES - RETRY IF POSSIBLE 

CLEAR ERROR COUNT 

POP CURRENT RETURN ADDRESS 

GO TO OVERLAY 

DONE ALL RETRIES ? 

YUP 

INC ERROR AND 
TRY AGAIN 



NOV 
BIS 



R1,R2 

#DEA0,FLA61 



;6ET ERROR CODE FROM XFC 
; INDICATE HOST GONE 



UNIBUS ERROR EXIT FOR ALL ROUTINES 



NOV 
CALL 



#S«R1 
ERRNNT 



;SET UNIBUS I/O ERROR 
.•ERROR RETURN 
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SEQ 33 



1 

I 

4 
5 
6 
7 
8 
9 

11 003324 

12 00332S 

13 003327 

14 003330 

15 003332 

16 003334 

17 003335 

18 003337 

19 003341 

20 003343 

21 003345 

22 003347 

23 003350 

24 003352 

25 003353 
26 

27 

28 003355 

29 003356 

30 003360 

31 003362 

32 003363 

33 003365 

34 003367 

35 003370 

36 003372 

37 003374 

38 003376 

39 003400 

40 003403 

41 003405 

42 003407 



104204 
105014 
104203 

115007 



114000 
104203 
100463 
104203 
100463 



002013 
004014 



001367 
003355 

004014 



PALPI : 



PALP2: 



104010 001636 

104204 002013 
105014 

104203 004014 
115007 

106300 002165 001367 

115400 001367 



PAGER: 



PALP4: 



PALP3: 
PAERR: 



PAGE BRINGS IN AN OVERLAY ANO CALLS IT 
UPON RETURN OF THE OVERLAY PAGE BRINGS IN 
THE PREVIOUS OVERLAY AND BEGINS EXECUTION 
AT THE POINT THE CALL TO PAGE WAS MADE 



R1 - OVERLAY TO BE BROUGHT IN 



PUSH 

NOV 

ADD 

nov 

CALL 

TST 

BEQ 

CALL 

BR 

CLR 

nov 

MOV 

nov 
nov 

RETURN 



POP 

nov 
nov 

ADD 

nov 

CALL 

TST 

BEQ 

CALL 

BR 

RETURN 

cnp 

BEQ 
INC 

RETURN 



R3 

#0VLTBL,R4 

R1,R4 

#START,R3 

OVRLAY 

RO 

PALP2 
PAERR 
PALPI 
UN. ERR 
#PAGER«R3 
R3,-<SP) 
f START, R3 
R3.-<SP) 



R1 

RI.CUROVL 

#0VLTBL,R4 

RUR4 

#START,R3 

OVRLAY 

RO 

PALP3 
PAERR 
PALP4 

RETRY«UN.ERR 

0ERR2 

UN.ERR 



PUSH FOR LATER RETURN 

POINT TO OVERLAY TABLE 

POINT TO ENTRY FOR NEU OVERLAY 

POINT TO UDA LOAD ADDRESS 

BRING IN NEU OVERLAY 

EDC O.K. ? 

YUP 

CALL ERROR HANDLER 

TRY AGAIN 

CLEAR ERROR COUNT 

ADDRESS FOR OVERLAY TO RETURN TO 

PUSH ON STACK 

STARTING ADDRESS OF NEU OVERLAY 
PUSH ON STACK FOR "CALL" 
"CALL" OVERLAY 

NEXT ADDRESS ON STACK IS RETURN 

ADDRESS TO PAGE 

POP OLD OVERLAY NUMBER 

HAKE IT CURRENT 

POINT TO OVERLAY TABLE 

POINT TO OLD OVERLAY BLOCK 

POINT TO UDA LOAD ADDRESS 

BRING IT IN 

EDC O.K. ? 

YUP 

ERROR HANDLER 
TRY AGAIN 

RETURN TO ADDRESS PAGE CALLED FROR 
DONE ALL RETRIES ? 

YUP - EXIT UITH DEAD HOST UNI3US ErtR 
INC ERROR COUNT 
RETliRN AND TRY AGAIN 
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SEO 34 



UU 
OU 



1 
2 
3 
4 
5 
6 
7 
8 
9 
TO 
11 
12 
II 
H 
15 

18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 



003411 
003413 
003415 
0C3417 
003420 
003421 
003423 



003425 
003427 
003431 
003432 
003433 
003435 



003437 
003441 
003443 
003444 
003445 
003447 



104647 
104641 
10<>642 
060013 
115001 



104207 
104201 
060016 
115001 



104207 
104201 
060017 
115001 



000001 
000002 
000000 



OVERLAY ROUTINE 

ISSUES UNIBUS READ TO GET OVERLAY 
R3 -> UDA ADDRESS TO LOAD 



OVRLAY: 



NOV 
NOV 
NOV 
XFC 
TST 
BNE 

RETURN 



HSTLO(R4),R0 

HSTHI(R4),R1 

LEN(R4),R2 

UREAD 

R1 

UERR 



001750 
000016 



SEND NAINTENANCE READ CONNAND 



SNOMNT: NOV 
NOV 
XFC 
TST 
BNE 

RETURN 



jTDNBUF.RO 
«DN6UFL,R1 
NAINTR 
R1 

UERR 



RECEIVE NAINTENANCE WRITE DATA 



001750 
000016 



ftCVNNT: NOV 
NOV 
XFC 
TST 
BNE 

RETURN 



fDNBUF,RO 
«DNBUFL,R1 
NAINTW 
R1 

UERR 



LOW ORDER UNIBUS ADDRESS 

HI ORDER UNIBUS ADDRESS 

WORD COUNT TO OVERLAY 

ISSUE UNIBUS READ 

ANY UNIBUS PROBLENS ? 

YUP - EXIT WITH UNIBUS ERROR 

RETURN TO CALLING ROUTINE 



;POINT TO BUFFER 

; LENGTH 

.■ISSUE CONNAND 

;ANY UNIBUS PROBLENS ? 

:YUP • EXIT WITH UNIBUS ERROR 



;P0INT TO BUFFER 

;SIZE OF BUFFER 

.•RECEIVE NAINT WRITE DATA 

;ANY UNIBUS PROBLENS ? 

;YUP - EXIT WITH UNIBUS ERROR 
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1 

2 






3 






4 






5 
6 






7 






8 


003451 


102200 


9 


003454 




10 


003456 


101200 


11 


003461 


10*207 


12 


003463 


100171 


13 


003464 


100672 


14 


003466 


104201 


15 


003470 


16 


003472 




17 


003474 


114007 


18 


003475 


102200 


19 


003500 




20 


003502 


115407 


21 


003503 


060021 


22 






23 






24 






25 


003504 


104300 


26 


003507 


104203 


27 


003511 




28 


003513 





000010 001703 

000010 001703 
001750 

0C0001 
000063 



000020 001703 



.SBTTL MISCELLANEOUS CONWW ROUT 



ERROR RETURN TO HOST 



ERRHNT: 


BIT 


«ERDN,FLAG1 




BNE 


ALLOVR 




Bis 


#ERDN,FLAG1 






#DNBUF,RO 




nov 


R1«(R0) 




MOV 


R2,1(R0) 




MOV 


#66, R1 




CALL 


PACE 




CALL 


D I SCON 


ALLOVR: 


CLR 


RO 




BIT 


fOEAO.FLAGI 




BEQ 


ALL0V1 




INC 


RO 


ALL0V1 : 


XFC 


DONE 



ERROR RETRY SEQUENCER 



002170 001556 
001460 



IrRHND: NOV 
MOV 
CALL 
RETURN 



RECTNP.ERECOV^I 

#CR.ERV,R3 

TALK 



TRIED TO QUIT YET ? 
YUP - DISCON FAILED 
SET FLAG 

POINT TO MAINT BUFFER 
PUT ERROR NUMBER IN MSG 
PUT IN ERROR SUBCODE 
ERROR MESSAGE OVERLAY 
BRING IT IM 

DISCONNECT/SPINDOWN DRIVE 

IN CASE O.K 

DIE OR JUST QUIT ? 

JUST QUIT 

MAKE NON ZERO 

EXIT DM MODE 



STORE LEVEL IN COMMAND 
POIT TO COMMAND 
DO ERROR RECOVERY 
RETURN 
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COMPUTE EDC 
R2 -> BUFFER 

RO = BUFFER SIZE IN UORDS 



1 

2 






3 












5 






6 






7 


003515 




8 


003520 

003522 


10A303 


9 


10A22A 


10 


003523 




11 


003527 


105203 


12 


003531 


110203 


13 


003532 




U 


00353A 


115A03 


15 


003535 


117A07 


16 


003536 




17 


0035A0 




18 


0035A3 




19 






20 






21 






22 






23 






2A 






25 


0O35A5 




26 


003SA6 


10A203 


27 


003550 


10A011 


28 


003551 


10A011 


29 


003552 


10A011 


30 


003553 


10A011 


31 


00355A 


117A03 


32 


003555 




33 


003557 




3A 


003560 




35 






36 






37 






38 






39 






AO 






A1 


003562 




A2 


003563 


10A205 


A3 


003565 


060007 


AA 


003566 


117A05 


A5 


003567 




A6 


003571 


102201 


A7 


003573 




A8 


003575 


102201 


A9 


003577 




50 


003601 




51 


003602 


106011 


52 


003603 




53 


003605 




5A 


003606 


106201 


55 


003610 





001733 
000000 



CEOC: PUSH 
NOV 

EAGAIN: MOV 
XOR 
ADD 
ROL 
BCC 
INC 

NOCRY: DEC 
BNE 
POP 

RETURN 



100000 



TIMER: 
TIMLP: 



077777 

OOOOOA 
OOOAOO 

^77777 



R2,RA.R5 

1NI,R3 

(R2)^,RA 

RA,R3 

#0.R3 

R3 

NOCRY 

R3 

RO 

EAGAIN 
R5,RA,R2 



ONE SECOND DELAY ROUTINE 



PUSH 

MOV 

MOV 

MOV 

MOV 

MOV 

DEC 

BNE 

POP 

RETURN 



R3 

#TIMVAL«R3 

R1,R1 

R1,R1 

RKRI 

R1,R1 

R3 

TIMLP 
R3 



VALIDATE XFC STATUS RESPONSE 



STATVL: PUSH 
MOV 

STATRE: XFC 
DEC 
BEO 
BIT 
BEO 
BIT 
BNE 
POP 
CMP 

STATRT: RETURN 
STATFR: POP 

CMP 

BR 



R5 

#77777. R5 

STATUS 

R5 

STATFR 

#VLD,R1 

STATFR 

fPARITI.RI 

STATRE 

R5 

R1,R1 

R5 

#177777,R1 
STATRT 



.•INITIAL VALUE (69) 
.•MOVE A WORD INTO RA 
;XOR INTO EDC 
.•CLEAR CARRY 
.•CIRCLE LEFT 
;IF NO CARRY SKIP 
.•INCREMENT IF CARRY 
.•DECREMENT COUNTER 
: IF NOT 0 DO NEXT WORD 

.•R3 = EDC 



•SAVE R3 

•LOOP COUNTER (32768) 

.•DELAY 

.DELAY 

.•DELAY 

.•DELAY 

;DECRMENT COUNTER 
.-LOOP TILL DONE 
.•RESTORE R3 
;RETUR TO CALLER 



SAVE R5 

COUNTER (1 SECOND) 

GET DRIVE STATUS 

INCREMENT COUNTER 

IF ZERO - NO GOOD 

LOU VALID BIT GOOD ? 

NO DRIVE CLOCK - STATUS BAD 

PARITY ERROR ? 

YES - RETRY 

RESTORE R5 

SET COND CODE EQ ZERO 

RETURN 

RESTORE R5 

MAKE SURE NOT EQUAL 

RETURN 
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1 
2 
3 
A 
5 
6 
7 



003612 
00361A 
0036K 



8 003620 

9 003621 

10 003625 

11 003625 

12 003616 

13 003631 
U 00363A 

15 003637 

16 003642 

17 0036^5 

18 003647 

19 003651 

20 003653 

21 003655 

22 003660 

23 003662 

24 003663 

25 003665 

26 003667 

27 003671 

28 003673 

29 003675 



104207 
104641 
100671 
104143 
100673 
104201 
060020 
10<.670 
104670 
104670 
104670 
102200 

104671 
106010 

101200 

115001 



: 04201 
104207 
104672 



002110 
000001 
000003 

000002 
001525 

000011 
000006 
000007 
000010 
020000 

000004 
001612 



001565 
001551 
001552 
001553 
001703 



100000 001552 



000012 
002110 
000006 



CONVERT BLOCK NUMBER TO PHYSICAL 
R4 -> BLOCK NUMBER 



CVTSK: MOV «CONBLK,RO 

MOV 1(R4),Rl 

NOV R1,V2^1(R0) 

MOV <R4)-R3 

nov R3,V2(R0) 

MOV «SCR,R1 

XfC CVT 

MOV TRK(RO),CURTRK 

MOV CYL(R0),ISEEK*1 

MOV CYL*1(R0),ISEEK<-2 

MOV GRP(R0),ISEEK^3 

BIT »M0DE,FLAG1 

BEQ IS 

MOV V3(R0),R1 

CMP R1,SECT12 

BEQ 1$ 

BIS «SS,ISEEK^2 

1$: CALL SEEK 

TST R1 

6NE CVTERR 
RETURN 

CVTERR: MOV #10., R1 

MOV fCONBLK.RO 

MOV CYL(R0),R2 

CALL ERRMNT 



ADDRESS AND SEEK 



POINT AT CONVERT BLOCK 

GET HIGH ORDER 

STORE IT 

GET LOW ORDER 

STORE IT 

POINT TO SUBUNIT CHARACTERISTICS 

CONVERT IT 

GET TRACK NUMBER 

LOU ORDER XYLINDER 

HIGH ORDER CYLINDR 

GROUP NUMBER 

WHAT MODE ARE WE !N 

512 - SEEK BIT O.K. 

GET VARIABLE 3 

IF EQ TO SECT12 THEN D/XBN 

AND SEEK BIT O.K. (512) 

ELSE L/RBN - SET 576 BIT 

DO SEEK 

ANY ERROR ? 

YUP ERROR 

SEEK ERROR 
CONVERT BLOCK 
CYLINDER FAILED ON 
ERROR RETURN 
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SEO 38 



UDA 
OUP 



1 
2 
3 

5 
6 

7 003677 

8 003700 

9 003702 

10 00370A 

11 003706 

12 003710 

13 003712 
U 003715 

15 003717 

16 003721 

17 003723 

18 003725 

19 003727 

20 003731 

21 003733 

22 003735 

23 003737 
2A 0037A1 

25 003743 

26 003745 

27 003747 

28 003751 

29 003753 

30 003755 

31 003760 

32 003761 



COMPUTE PRIMARY RBN FOR GIVEN LBN 
RO -> CHARACTERISTICS BLOCK 
R4 -> LBN 

RBN - (QUO(CURBN-STLBN)/LBNTRK)*RBNTRK 



104140 001410 

104642 000001 

104204 001410 

107302 002007 

100642 000001 

102200 020000 001703 

104673 000015 

104673 000011 

103203 177400 

104030 001403 

114000 001404 

104203 001403 

104673 000004 

103203 177600 

104030 001403 

114000 001404 

104203 001403 

104140 001634 

104640 000001 001635 



PRIMRB: PUSH 
MOV 
MOV 
MOV 
SUB 
MOV 
BIT 
6EQ 
MOV 
BR 

1$: MOV 
2$: BIC 
MOV 
CLR 
MOV 
CALL 
MOV 
BIC 
MOV 
CLR 
MOV 
CALL 
MOV 
MOV 
POP 

RETURN 



R2 

<R4),TEMP 

1(R4)»R2 

fTEMP,R4 

ST.LBN,R2 

R2J(R4) 

#M0DE,FLAG1 

1$ 

L6NT76(R0),R3 
2$ 

LBNT12(R0),R3 

#HIBYTE,R3 

R3«00UMMY 

00UHMV4-1 

fDDUNNY,R3 

DDIV 

RBNTRK(R0),R3 

«HnBYTE,R3 

R3,0DUNMY 

DOUMMY+1 

«DDUMMY,R3 

DMUL 

(R4),REVRBN 

1(R4),REVRBNH 

R2 



GET LOU ORDER LBN 
GET HIGH ORDER 
FOR SUBTRACT 
DO SUBTRACT 
STORE BACK 

UHAT MODE ARE UE IN ? 

IF CLEAR THEN IN 512 MODE 

GET LBN/TRACK (576> 

SKIP 512 STUFF 

GET LBN/TRACK (512) 

CLEAR HIGH BYTE 

STORE FOR COMPUTATION 

CLEAR FOR STORE 

FOR DIVIDE 

GET R8N/TRACK 
CLEAR GARBAGE 
FOR COMPUTATION 
CLEAR HIGH ORDER 
FOR MULTIPLY 

GET LOU ORDER 
STORE HIGH ORDER 



L 
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1 
2 
3 
A 
5 

6 003763 

7 003765 

8 003767 

9 003771 

10 003772 

11 003773 

12 003775 

13 003777 
U 0OA0O1 

15 00A002 

16 004003 

17 004005 

18 004006 

19 004010 

20 004012 



104202 001512 
104623 000002 
103203 000377 
110703 
115003 

104207 001373 
104302 002171 
060015 
115001 

106073 

104201 177777 



COMPUTE ECC SYMBOLS IN ERROR 



ECCCK: 


MOV 


#CR,R2 




MOV 


ERRSYM(R2} ,R3 




BIC 


#L0BYTE,R3 




SWAB 


R3 




TST 


R3 




BEQ 


105S 




MOV 


#RDBLK,RO 




NOV 


SECSIZ.R2 




XFC 


ECC 




TST 


R1 




BNE 


105S 




CMP 


R0,R3 




BMI 


GDECC 


105$: 


MOV 


#-1,R1 


GDECC: 


RETURN 



SEO 39 

UDAF 
DUP 



POINT TO CHARACTERISTICS 

GET THRESHOLD 

CLEAR LOU GARBAGE 

GET IN LOU ORDER 

IS THRESHOLD 0 ? 

YUP - NO POINT IN CORRECTING 

POINT TO COMMAND BLOCK 

SECTOR SIZE IN UORDS 

PERFORM ECC CORRECTION 

SUCCESSFUL ? 

NOPE 

UITHIN BOUNDS ? 
YES CONSIDER GOOD 
ELSE SIGNAL BAD 
RETURN 



B 4 



UDAFS2 - UOA>52 FORMATTER DNACR XOA.01 23-AUG>82 13:U:22 PAGE 22 
OUP Dn<->HOST STARTUP OVERLAY 



1 

2 






3 












5 


004014 




6 






7 






8 






9 






10 






11 






12 


004016 




13 


004016 


004516 


1A 


004017 


AAAA4 ^ 

000016 


15 


004020 


A4 AAAA 

010000 


16 


004021 


4 AP 

105 


17 




AAAA4 ^ 

000016 


18 






19 


004036 


A A t ^9/ 

004774 


20 


004037 


A AAA 

000022 


21 


004040 


A*^ A AA 4 

020001 


22 


004041 


105 


23 




AA AA A A 

000022 


24 






25 


004062 


AAPA4 ^ 

005016 


26 


004063 


AAAA4 ^ 

000016 


if 


004064 


AAAA4 A 

020010 


28 


004065 


4 A^ 

106 


29 




A AAA 4 ^ 

00G016 


30 






V 4 

31 


AA/ 4 A'^ 

004102 


A A C / T / 

005434 


32 


A A 4 4 A9 

004103 


A AA A^^ 

000026 


33 


AA / 4 A J 

004104 


A^AAA/ 

020004 


34 


004105 


125 


35 




000026 


36 






37 


004132 


AAC4 AT 

005103 


38 


004133 


A AAA 4 d. 

000016 


39 


0041 3A 


A A AAAf 

020005 


40 


AA/ 4 YC 

004135 


4 

125 


^ 4 
*1 
J ^ 




AAAA4 

000016 


42 
43 


AA/ 4 

004152 


AAC i d.^ 

005463 


44 


AA/ 4 f 7 

004153 


AAAA7C 

000035 


45 


/\A/ 4 f / 

004154 


A AAAAZ 

020006 


46 


AA/ 4 f f 


4 AV 

103 






AAAA9C 

000035 


48 






49 


AA/ ^4 4 

004211 


AACA9 / 

005034 


50 


A Ay 04*) 

004212 


AAAA^^ 

000022 


CI 

3 1 


Uu^cl 3 


UlUUUr 


52 


004214 


105 


53 




000022 


54 






55 


004235 


000000 


56 






57 







156 



156 



157 



163 



163 



157 



156 



.SBTTL DUP Dn<->H0ST STARTUP OVERLAY 
DUP OH<->HOST STARTUP OVERLAY 
START: JNP START3 :SKIP LOCAL DATA STORAGE 



164 



164 



162 



145 



145 



156 



164 



nSGTBL: 

10$: 
NSGILN 

20$: 
nSG2LN 

30$: 
NSG3LN 

50$: 
NSG5LN 

70$: 
NSG7LN 

60$: 
ffSG6LN 

40$: 
NS64LN 



DATA STRUCTURES 
.ENABL LC 



.WORD 
.WORD 
.WORD 
.ASCIZ 



.WORD 
.WORD 
.WORD 
.ASCI2 



.UORD 
.WORD 
.WORD 
.ASCIZ 



.WORD 
.UORD 
.WORD 
.ASCIZ 



.WORD 
.UORD 
.UORD 
.ASCIZ 



.UORD 
.UORD 
.UORD 
.ASCIZ 



.UORD 
.UORD 
.UORD 
.ASCIZ 



DATCON 
nSGiLN 
10000 

•Enter date <HH-DD-YYVV> 
.-10$ 



;DATE CONVERSION ROUTINE 
.-MESSAGE LENGTH 
;DUP UORD 
► • 

.•MESSAGE LENGTH 



UNITCN ;UNIT NUMBER HANDLER 

MSG2LN .-MESSAGE LENGTH 

20001 ;DUP UORD 

'Enter unit nunber to format <0>: * 
.-20$ .-MESSAGE LENGTH 



SECCN 
MSG3LN 
20010 

•Format in 576 node <N>? 
.-30$ 



.-SECTOR SIZE HANDLER 
.-MESSAGE LENGTH 
;DUP UORD 

.-MESSAGE LENGTH 



EXTFCT ;EXISTING FCT ? 

MSG5LN .-MESSAGE LENGTH 

20004 ;DUP UORD 

*Use existing bad block infomation <Y>: 
.-50$ 



DLLFLE 
MSG7LN 
20005 

'Use Down-line load <N>: * 
.-70$ 



:D0UN-LINE LOAD FILE 
.•MESSAGE LENGTH 
:DUP UORD 



CONBAO .-CONTINUE IF BAD ? 

MSG6LN .-MESSAGE LENGTH 

20006 ;DUP UORD 

'Continue if bad block infornation is inaccesable <N> 

.-60$ 



SERCON 
MSG4LN 
10007 

'Enter a non-zero serial 
.-40$ 



SERIAL NUMBER HANDLER 
MESSAGE LENGTH 
DUP UORD 
number : ' 



.UORD 0 

FORMAT STARTED INFO MESSAGE 



;END FLAG 



C 4 



UOAF52 - UOA-52 FORMATTER DNACR X04.01 23-AUG-82 13:14:22 PACE 22-1 
DUP 0H<->HOST STARTUP OVERLAY 



SEO 41 



S8 

59 0OA236 

60 004237 
61 

62 
63 
64 

65 004246 

66 004247 
67 

68 
69 
70 
71 

72 004255 

73 004256 

74 004257 

75 004260 
76 

77 

78 004261 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 004332 

93 004333 

94 004334 

95 004335 

96 004336 

97 004337 

98 004340 
99 

100 
101 
102 

103 004341 

104 004342 

105 004343 

106 004344 

107 004345 

108 004346 

109 004347 

110 004350 

111 004351 

112 004352 

113 004355 

114 004354 



030000 
106 
000010 



030100 
111 
000007 



000000 
000000 
000000 
000000 
000002 
000001 
000051 



000051 
000131 
000055 
000057 

036031 



000000 
000012 
023420 
000144 
000074 
000074 
000030 



000000 
000174 
000161 
000174 
000170 
000174 
000170 
000174 
000174 
000170 
000174 
000170 



157 



156 



162 



160 



FHTSTA: .WORD 30000 

.ASCIZ 'Format begun' 
.-FHTSTA 



FHSTL 

'iNPERR: 
IMPEL 



INPUT ERROR MESSAGE 

.WORD 30100 
.ASCIZ 'Input Error* 
= .-INPERR 
.DSABL LC 

MISCELLANEOUS OUP STORAGE 



0AT8UF: .VORD 
.WORD 
.WORD 

MLEN: .WORD 

MENTLN = 

MSGOFF = 

TBUFF: .REPT 
.WORD 
.ENDM 

TBUFFL = 

Y = 

DASH s 

SLAS s 

DAYS = 



0 
0 
0 
0 
2 
1 

41. 
0 

.-TBUFF 
131 
055 
057 



DUP WORD 

MESSAGE 

LENGTH 



DUP WORD 

MESSAGE 

LENGTH 



; CONVERT BUFFER FOR DATE 
;MAKE SURE ALL 2 WORDS 
:ARE 0 

.•LENGTH STORAGE 
.-CONSTANT EN.'RY LEHQVA 
.'OFFSET OF MESSAGE LENGTH 
;ZERO 41 WORDS 
.•TERMINAL BUFFER 



.•ASCII 'Y' 
;ASCII 
.•ASCII V 



14. ♦SI .♦365.*<365.*4*1*10.>*365. 

;OAYS FROM NOV. 17.1858 TO 
;JAN. 1.1901 



DATE CONVERSION TABLES 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



0 

10. 

10000. 

100. 

60. 

60. 

24. 



QUARTER 


DAYS PER 


.WORD 


0 




riMTBL: .WORD 


31.1 


»4 


.WORD 


28.1 


»4*1 


.WORD 


31.1 


»4 


.WORD 


30.1 


»4 


.WORD 


31.1 


»4 


.WORD 


30.1 


»4 


.WORD 


31.1 


»4 


.WORD 


31.1 


*i, 


.WORD 


30.1 


»4 


.WORD 


31.1 


»4 


.WORD 


30.1 


»4 



TERMINATOR 

100'S NANOSECONDS PER MICROSECOND 
MICROSECONDS PER HUNDREDTH SECOND 
HUNDREDTHS OF SECOND PER SECOND 
SECONDS PER MINUTE 
MINUTES PER HOUR 
HOURS PER DAY 



TERMINAiOR FOR MONTH TABLE 
QUARTER DAYS IN JANUARY 
QUARTER DAYS IN FEBRUARY 
QUARTER DAYS IN MARCH 
QUARTER DAYS IN APRIL 
QUARTER DAYS IN NAY 
QUARTER DAYS IN JUNE 
QUARTER DAYS IN JULY 
QUARTER DAYS IN AUGUST 
QUARTER DAYS IN SEPTEMBER 
QUARTER DAYS IN OCTOBER 
QUARTER DAYS IN NOVEMBER 
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UDAF52 - UDA-52 FORMATTER DHACR X04.01 23-AUG-82 13:U:22 PAGE 22-2 
OUP 0H<->HOST STAi>TUP OVERLAY 



SEO 42 



115 004355 

116 

117 



.UORD -1 



;PRETEND INFINITE DAYS IN DECEMBER, 
.•SINCE NOTHING CONES AFTER IT 



U0AF52 - UOA-52 FORMATTER DMACR XOA.01 23-AUG>82 13:U:22 PAGE 23 
OUP DN<->HOST STARTUP OVERLAY 



1 
2 
3 
k 
5 
6 
7 
8 
9 
10 
11 
12 
13 
1h 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
SO 
51 
52 



004356 104206 001700 



004360 

004362 

004364 

004365 

004370 

004371 

004373 

004374 

'K)4375 

004376 

004400 

004402 

004403 

004404 

004406 

004407 

004410 

004412 

004415 

004417 

004422 

004424 

004426 

004430 

004431 

004432 

004433 

004435 

004437 

004441 

004443 

004444 

004445 

004446 

004450 

004451 

004452 



004454 
004456 
004460 
004461 
004463 



.ENDC 



104202 
104223 
103200 
104221 
104010 
104027 

060016 
104207 
104201 
060017 



004016 
001000 
004260 



004261 
000051 



104204 004412 



102200 

102200 

104207 
104201 

060016 



105302 
104203 
104201 
114007 
100237 
117401 

104223 
115003 



104207 
104201 
060016 
104201 



000200 

001000 

004246 
000007 



004260 
004261 
000051 



004236 
000010 

000060 



001703 



CONOM: 



nov 


fSTACK.SP 


DEBUG 




lALL 


O.OOT 


XFC 


BREAK 


CALL 


SETOVL 


NOV 


#NSGTBL,R2 


NOV 


(R2)*,R3 


SIC 


#REPEAT,FLA61 


NOV 


(R2)^,R1 


NOV 


RI.NLEN 


NOV 


R2,R0 


PUSH 


R2 


XFC 


NAIKTR 


NOV 


4rTBUFF,R0 


NOV 


#TBUFFL,R1 


XFC 


NAINTU 


POP 


R2 


NOV 


#RETAD,R4 


PUSH 


R4 


PUSH 


R3 


RETURN 




SIT 


«QUESDN,FLAG1 


BNE 


CONON 


BIT 


f REPEAT, FLA61 


BEQ 


NS6LP4 


NOV 


fINPERR.RO 


NOV 


#INPEL,R1 


PUSH 


R2 


XFC 


NAINTR 


POP 


R2 


BR 


NSGLP2 


ADO 


NL£N,R2 


MV 




NOV 


#TBUFFL.R1 


CLR 


RO 


NOV 


R0.(R3)* 


DEC 


R1 


BNE 


NSGLP3 


NOV 


(R2)*.R3 


TST 


R3 


BNE 


NS6L0P 


CONTINUE ON 


NOV 


#FNTSTA,R0 


NOV 


#FNSTL,R1 


XFC 


NAINTR 


NOV 


#6KR1 


CALL 


NEXT 



.SET UP STACK 

;CALL ODT 
.•BREAKPOINT 

;SET UP OVERLAY POINTERS 
;POINT TO NESSA6E TABLE 
.CONVERSION ROUTINE ADDRESS 
.CLEAR REPEAT NESSA6E FLAG 
.•NESSAGE LENGTH 
.SAVE IT 

.•POINT TO NESSAGE 
.SAVE NESSAGE POINTER 
.SEND NESSAGE 
.ADDRESS OF BUFFER 
.•LENGTH OF m?kH 
.GET ANSWER 

.RESTORE NESSAGE POINTER 
.•RETURN ADDRESS 
;SAV£ IT 

.•ADDRESS OF CONVERSION ROUTINE 
;"CALL" CONVERSION ROUTINE 
.-ALL DONE QUESTIONS ?? 
;YES - SKIP THE REST 
.•REPEAT THE QUESTION ? 
;N0 - DON'T REPEAT 
.•INPUT ERROR NESSAGE 
.•LENGTH 

:SAVE NESSAGE POINTER 
.•SEND IT 

; RESTORE NESSAGE POINTER 

.-AND REPEAT QUESTION 

;ADD NESSAGE LENGTH 

.•POINT TO BUFFER 

.-LENGTH OF BUFFER 

.CLEAR REG 

.•CLEAR BUFFER 

.DECRENENT COUNT 

.-CONTINUE TILL DONE 

;GET CONVERSION ROUTINE ADDRESS 

:IF 0 THEN ALL FINISHED 

.-NOT 0 THEN DO NEXT ENTRY 



ADDRESS OF INFO NESSAGE 
LENGTH OF NESSAGE 
SEND TO HOST 
NEXT OVERLAY 
BRING If IN 
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U0AFS2 > UOA-52 FORMATTER OHACR X0A.01 23>AUG>82 13:H:22 PAGE 24 
OOP 0«<->HOST STARTUP OVERLAY 



1 

! 

5 
6 
7 



004465 
004467 
004471 
004474 

8 004476 

9 004500 
10 

11 004*502 

12 004505 

13 004505 

14 004507 
*5 004511 

16 004512 

17 004514 



104205 
104204 
104200 
114000 
104203 



000023 
001362 
011674 
001404 
001403 



104043 

10h204 0C2014 

105204 000003 
117405 



SET UP OVERLAY TABLE 



001403 



SETOVL: MOV 
NOV 
MOV 
CLR 
MOV 
CALL 

MOV 
MOV 

SLOOP: CALL 
ADD 
DEC 
BNE 

RETURN 



#0VCNT,R5 

#DUP0VL,R4 

mS.GI.ODUMHY 

DOUMHY+1 

#D0UMMY«R3 

DSUB 

R4,R3 

#0VLTBL4^HSTL0,R4 
OADD 

«0VLEN«R4 
R5 

SLOOP 



;SET COUNT OF OVERLAYS 

.•POINT TO OVERLAY ADDRESS (2 WORDS) 

.-RELATIVE START OF fIRSTOVERLAY 

.CLEAR HIGH ORDER 

'FOR SUB 

•GET OFFSET (MUST ADD TO RELATIVE 
.START ADDRESS OF EACH OVERLAY) 
.•CHANGE POINTER FOR ADDS 
.•POINT TO LOU HOST ADD OF FIRST ENTRY 
.ADD OFFSET 

.-POINT TO LOW HOST ADD. OF NEXT ENTRY 

.-DECREMENT COUNTER 

;IF NON-ZERO THEN CONTINUE 

.-ELSE DONE 
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U0AF52 - UOA-52 FORMATTER OHACR X04.01 23-AU6-82 13:14:22 PAGE 25 
UUP Dn<->HOST STARTUP OVERLAY 



1 

2 
3 

4 004516 






5 004517 


104060 


001701 


6 004521 


104202 


004255 


7 004523 


103200 


006000 


8 004526 


104204 


000003 


9 004530 






10 004552 


115001 




11 004553 






12 004555 


106201 


000055 


13 004557 






14 004561 


106201 


000057 


15 004563 






16 004565 






17 004607 






18 004611 






19 004612 


104207 


004255 


20 004614 






21 004616 






22 004620 


104073 




23 004621 






24 004622 






25 004623 


103200 


004000 


26 004626 


104202 


004255 


27 004630 


104201 


000003 


28 004632 


114005 




29 004633 


100225 




30 004634 


117401 




31 004635 






32 004637 


104202 


004255 


33 004641 


117404 




34 004642 






35 004644 






36 004645 






37 004646 






38 004647 






39 004651 


115005 




40 004652 






41 004654 


104203 


004675 


42 004656 






43 004657 


104204 


000006 


44 004661 


114005 




45 004662 






46 004663 


117404 




47 004664 






48 004666 






49 004667 






50 004670 






51 004671 


104207 


001766 


52 004673 






53 004675 






54 004676 






55 004700 


104306 


001701 


56 






57 004702 







001703 



001703 



00 DATE 


CONVERSION 


PUSH 


R2 


NOV 


SP.STCKSV 


NOV 


mTBUF,R2 


BIC 


«GT»LAG^STFLAG,FLAG1 


NOV 


«3,R4 


GETB 


R0,R1 


TST 


R1 


BEQ 


DONONE 


CNP 


mSH.RI 


BEQ 


DONONE 


CNP 


«SLAS,R1 


BEO 


DONONE 


STOB 


R1,R3,R2 


BR 


DATLP 


PUSH 


RO 


NOV 


«DATBUF,RO 


CALL 


GENCON 


BNE 


DATA6N 


NOV 


R0,R3 


POP 


RO 


PUSH 


R3 


BIC 


«STFLAG,FLAG1 


NOV 


«DATBUF,R2 


NOV 


#3,R1 


CLR 


R5 


NOV 


R5«(R2)f 


DEC 


R1 


BNE 


DATLP1 


NOV 


#0ATBUF,R2 


DEC 


R4 


BNE 


DATLP 


POP 


RO 


POP 


R1 


POP 


R2 


CALL 


DATVER 


TST 


R5 


BNI 


DATAGN 


NOV 


fDATRET,R3 


PUSH 


R3 


NOV 


#6,R4 


CLR 


RS 


PUSH 


R5 


DEC 


R4 


BNE 


DATLP2 




It 1 


PUSH 


R2 


PUSH 


RO 


NOV 


fOATE.RO 


JNP 


VAXTNE 


POP 


R2 


RETURN 




NOV 


STCKSV,SP 


POP 


R2 



;SAVE STRING COUNTER 

;SAVE STACK PTR IN CASE OF ERROR 

;POINT TO DATA BUFFER 

.•CLEAR FLAGS 

;COUNT TO CONVERr(NONTH,DAy,rEAR) 
;6ET A BYTc FRON RO INTO R1 
: IS IT A ZERO BYTE ? 
:YES - DONE THIS STRING 
;IS IT A 

;YES - DONE THIS STRING 

;IS IT A 'V 

;YES - DONE THIS STRING 

; STORE BYTE IN R1 AT LOCATION IN R2 

;LOOP BACK 

;SAVE POINTER TO STRING 

; POINT TO BUFFER TO CONVERT 

; CONVERT THE STRING 

; ILLEGAL CHARS - ASK AGAIN 

.-GET RESULT 

.•RESTORE POINTER TO STRING 

.•STORE RESULT ON STACK 

;SET STORE FLAG TO LOW BYTE 

.•POINT TO CONVERT BUFFER 

:FOR BUFFER CLEAR 

.-CLEAR FOR STORE 

.•CLEAR yORO 

;OEC COUNTER 

.•CONTINUE TILL DONE 

.•RESTORE POINTER 

.'DECREMENT PARAHETER COUNTER 

.'CONTINUE TILL DONE 

.'GET YEAR 

.'GET DAY 

;GET MMTH 

.'VERIFY DATE 

.'ANY ERROR ? 

:YUP - PROMPT AGAIN 

.RETURN ADDRESS 

;PUSN ON STACK 

.COUNT OF ZERO STACK ENTRIES 

.CLEAR FOR STORE 

.ZERO ENTRY FOR CONVERSION 

.-DEC COUNTER 

.'LOOP TILL DONE 

.•STORE DAY 

.•STORE MONTH 

.•STORE YEAR 

.•POINT TO RESULT BUFFER 

.'CALL CONVERT TO VAX TINE ROUTINE 

.RESTORE NESSAGE POINTER 

.•RESTORE STACK PTR - NAY HAVE PUSHED 
;SOHE RESULTS ONTO STACK 
.GET NESSAGE POINTER 
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UOAF52 - UOA-52 FORMATTER DHACR X04.01 23-AUG-82 13:14:22 PACE 25-1 
OUP OH<->HOST STARTUP OVERLAY 



58 004703 107202 000002 

59 004705 101200 001000 001703 

60 004710 



SUB #MENTLN.R2 
BIS «REPEAT,FLAG1 
BR 0ATRT1 



.•POINT BACK AT BEGINNING OF QUESTION 
;SET TO REPEAT - ANSWER MUST BE VALID 
.•RETURN 



UDAFS2 > UDA-52 FORMATTER OflACR X04.01 23-AUG-82 13:14:22 PAGE 26 
DUP DM<'>>HOST STARTUP OVERLAY 



1 

2 

3 

4 

5 

6 

7 

6 

9 
10 
11 

12 004712 

13 004713 

14 004715 

15 004717 

16 004721 

17 004723 

18 004725 

19 004727 

20 004730 

21 004732 

22 004734 

23 004736 

24 004737 

25 004740 

26 004742 

27 004743 

28 004745 

29 004746 

30 004750 

31 004752 

32 004754 

33 004755 

34 004756 

35 004760 

36 004762 

37 004764 

38 004765 

39 004766 

40 004770 

41 004772 



115002 

106202 
107207 
115001 



104203 
105023 
104134 
105204 
110604 
105204 
110604 
105204 
106202 

117401 
106041 



VERIFY DATE VALIDITY 
RO = YEAR 
R1 = DAY 
R2 - MONTH 



000014 
003554 

004341 

000000 

000000 

000000 
000002 



106202 000002 

115401 
114005 

104205 m777 





OUTPUT: 






R5 - 


0 IF VALID 






-1 IF INVALID 


DATVER: 


TST 


R2 




BEQ 


DATERR 




BMI 


DATERR 




CMP 


#12., R2 




BNI 


DATERR 




SUB 


#1900.. RO 




BMI 


DATERR 




TST 


R1 




BEQ 


DATERR 




BMI 


DATERR 




NOV 


#TINTBL-1,R3 




ADD 


R2,R3 




NOV 


(R3),R4 




ADD 


#0.R4 




ROR 


R4 




ADD 


#0.R4 




ROR 


R4 




ADD 


#0.R4 




CNP 


#2,R2 




BNE 


0ATVL1 




DEC 


R1 


CATVL1: 


CNP 


R4,R1 




BNI 


DATERR 




CNP 


#2,R2 




BNE 


DATVL2 




INC 


R1 




CLR 


R5 


DATVL2: 


RETURN 




DATERR: 


NOV 


#-1 ,R5 




BR 


DATVL2 



SEO 47 



TEST NONTH 

IF ZERO THEN NO GOOD 
IF NEC THEN NO GOOD 
IN RANGE ? 
IF NEC THEN NO 
BIAS YEAR TO 1900 
IF NEG THEN ERROR 
TEST DAY 

IF ZERO THEN ERROR 

IF NCGATIVE THEN ERROR 

POINT TO DAYS IN NONTH TABLE 

POINT TO CURRENT NONTH 

GET DAYS IN NONTH 

CLEAR CARRY 

IN QUARTER DAYS - DIVIDE BY 4 TO GET DAYS 

CLEAR CARRY 

ONCE NORE 

CLEAR CARRY 

IS IT FEBRUARY ?? 

NO - NOTHING SPECIAL 

NAKE DAY ONE LESS (IN CASE LEAP YEAR) 

DAY IN RANGE ? 

NOPE ERROR 

DID UE NUCK WITH DAY ? 
NOPE - JUST EXIT 
ELSE PUT DAY BACK 
SIGNAL NO ERROR 
ELSE ALL O.K. 
SIGNAL ERROR 
AND RETURN 
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UDAF52 > U0A-S2 FORMATTER DHACR X04.01 23-AU6-82 13:14:22 PAGE 27 
OUP 0H<->HOST STARTUP OVERLAY 



1 
2 
3 

4 004774 

5 004775 

6 004777 

7 005001 

8 005003 

9 005004 

10 005006 

11 005007 

12 005011 

13 005014 



104070 001413 



107202 
101200 



000002 
001000 



UNITCN: 



UNITRT: 
UNITBD: 



001703 



UMIT NUMBER HANDLER 



PUSH 

CALL 

BNE 

NOV 

POP 

RETURN 

POP 

SUB 

BIS 

BR 



R2 

6ENC0N 
UNITBD 
RO^UNNO 
R2 

R2 

#nENTLN,R2 

«REPEAT,FLA61 

UNITRT 



SAVE MESSAGE POINTER 
CONVERT TO BINARY 
ILLEGAL CHARS 
MOVE TO UNIT NUMBER 
RESTORE MESSAGE POINTER 

GET MESSAGE POINTER 

POINT BACK AT BEGINNING OF QUESTION 

SET TO REPEAT - ANSUER MUST BE NON-ZERO 

RETURN 
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U0AF52 - UDA-52 FORMATTER DP1ACR X(K.01 23-AUG-82 13:U:22 PAGE 28 
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1 

2 

•? 

4 

5 

6 005016 

7 005C17 

8 005021 

9 005022 

10 00502A 

11 005026 

12 005031 

13 005032 



115001 



101200 020000 001703 



SECCN: 



SECNO: 



FORWAT IN 576 ? 
RO -> STRINO 



PUSH 
CALL 
TST 
BEO 

am 

BIS 
POP 

RETURN 



R2 

F I DANS 
R1 

SECNO 
SECNO 

#mDE,FLAG1 
R2 



;SAVE MESSAGE POINTER 

:GET RESPONSE 

;TEST RESPONSE 

;NULL - DEFAULT TO 512 

;N0 - DEFAULT TO 512 

;YES - DO 576 

.•RESTORE MESSAGE POINTER 



L A 
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1 

C 

■» 
J 

»» 


t\r\K.t\'XL 


















O 










( 


rtAcr./, 1 
UwDv** 1 


1 1 cnn7 






(5 










Q 
▼ 




1 1 3UU 1 






lU 










1 1 




1 1 3UUc 






1 0 
l£ 










1 5 




1 1 

1 1 3UU^ 






1/. 










1 J 










10 






f\C\l\f\f\'i 




1 f 


UU3UOU 




nni nnn 
UU 1 uuu 


ftAI 707 


1 o 










19 


00S06S 


104070 


001772 




20 


005067 


104010 


001773 




21 


005071 


104020 


001774 




22 


005073 


104030 


001775 




23 


005075 








24 


005076 


101200 


000200 


001703 


25 


005101 













ruon 


R2 










TST 




AMP 
one 




TST 


R1 






TST 


R2 


RNF 
one 




TST 




RMF 




POP 


R2 


SUB 


#MFNTLN R2 


BIS 


#REPEAT,FLA61 


BR 


SERRT 


NOV 


RO^SERNUn 


nov 


R1,SERNUH*1 


NOV 


R2,SERNUN*2 


nov 


R3,SERNUH*3 


POP 


R2 


BIS 


#0UES0N.FLA61 


RETURN 





SAVE MESSAGE POINTER 
CONVERT HIGH ORDER 

IF NE THEN ILLEGAL CHARS - PROMPT ACN 
IS IT ZERO ? 

NO - ALL BITS CAN'T BE ZERO 
IS IT ZERO ? 

NO - ALL BITS CAN'T BE ZERO 
IS IT ZERO ? 

NO - ALL BITS CAN'T BE ZERO 
IS IT ZERO ? 

NO - ALL BITS CAN'T BE ZERO 

GET MESSAGE POINTER 

POINT BACK AT BEGINNING OF QUESTION 

SET TO REPEAT - ANSWER MUST BE NON-ZERO 

RE TURN 

LOW ORDER WORD 
LOW MIDDLE 
HIGH MIDDLE 
HIGH ORDER 

RESTORE MESSAGE POINTER 
SET QUESTIONS DONE 
RETURN 



N A 
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SEO 51 



1 
2 
3 
U 
5 
6 
7 



0OS103 
00510A 
005106 
005107 

8 005111 

9 005113 

10 005116 

11 005120 

12 005123 

13 005124 
U 

15 
16 
17 

18 005126 

19 005131 

20 005132 

21 005134 

22 005136 

23 005U0 

24 005142 



DOWN LINE LOAD FILE NAME HANDLER 



DLLFLE; 



115001 

101200 000400 001702 
101200 000200 001703 



DLLDN: 
0LLDN1 : 



PUSH 
CALL 
TST 
BEQ 

eni 

BIS 
BR 
BIS 
POP 

RETURN 



R2 

FIOANS 
R1 

DLLNO 
OLLNO 
#DLL,FLAG 
DLLDN 

#QUESDN«FLAG1 
R2 



:SAVE MESSAGE POINTER 
:GET RESPONSE 
;T£ST RESPONSE 

;NULL - DEFAULT TO BEST GUESS 
:N0 - DO BEST GUESS 
;YES - DO DOWN-LINE LOAD 
;EXIT 

;SET END OF QUESTIONS FLAG 
.•RESTORE MESSAGE POINTER 



101200 002000 001702 

105302 004260 

104621 000001 

105202 000002 

104010 004260 



THIS SECTION SKIPS THE NEXT QUESTION 
UHICH PERTAINS TO CONTINUING IF FCT IS BAD 



DLLNO: BIS 
POP 
ADD 
MOV 
ADD 
MOV 
BR 



#BSTGS.FLA6 
R2 

nLEN,R2 
MS60FF(R2),R1 
#NENTLN.R2 
R1 ,NLEN 
DLLDN1 



;D0 BEST 6UE5S 

;6ET MESSAGE POINTER 

;ADD CURRENT MESSAGE LENGTH 

;6ET NEXT MESSAGE LENGTH 

;PAST THE FRONT ENTRIES 

;MAKE THIS MESSAGE THE NEW LENGTH 

.•RETURN 



N A 
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1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 



005144 

005145 

005147 

005152 

005153 

005154 

005155 

005156 

005157 

005160 

005162 

005164 

005167 

005172 

005174 

005177 

005201 

005204 

005206 

005210 

005211 

005213 

005214 

005216 

005217 

005221 

005223 

005224 

005226 

005230 

0C5233 

005235 

005237 

005240 

005242 

005243 

005245 

005246 

005251 

005253 

005256 

005260 

005261 

005262 

005264 

005266 

005270 

005271 

005274 



GENCON: 



101200 
104074 
114007 
114001 
114002 
114003 
115005 

104140 
103200 
106200 



000400 001703 



001410 

177400 001410 
000057 001410 



CNLP1 : 
CNLP: 



106200 000071 001410 



177760 001410 
001410 



103200 
105307 

115401 

115402 

115403 

117405 



102200 000400 001703 

104240 001410 

104307 001410 
110707 

104070 001410 

103200 000400 001703 

101200 000400 001703 

106011 

104201 000025 

106200 ^7^777 004260 



NOCERR: 



CONLOW: 

CONDON: 

C0ND01 : 
CONERR: 

C0NER1 : 



GENERAL CONVERSION FLOW VAI 
RO -> STRING 



PUSH 

CALL 

BIS 

NOV 

CLR 

CLR 

CLR 

CLR 

TST 

BEQ 

NOV 

BIC 

CHP 

BPL 

CHP 

BMI 

BIC 

ADO 

6CC 

INC 

BCC 

INC 

BCC 

INC 

BCC 

BR 

DEC 

BEQ 

CALL 

BIT 

BEQ 

mv 

PUSH 

mv 

SWAB 

NOV 

POP 

BIC 

BR 

BIS 

BR 

POP 

CNP 

RETURN 

NOV 

CALL 

POP 

CNP 

BR 



R4 

FINLEN 

#FLIP0N,FLAG1 

R0,R4 

RO 

R1 

R2 

R3 

R5 

CONDON 

(R4).TENP 

#HIBYTE.TENP 

#57.TENP 

C0NER1 

#'9,TENP 

C0NER1 

#*C17.T£HP 

TENP,R0 

NOCERR 

R1 

NOCERR 
R2 

NOCERR 
R3 

NOCERR 
CONERR 
R5 

CONDON 
NULT10 

#FLIP0N,FLA61 
CONLOU 
(R4)*,TENP 
RO 

TENP,RO 
RO 

RO.TEHP 
RO 

#FLIP0N,FLAG1 
CNLP 

#FLIP0N,FLA61 

CNLP1 

R4 

R1,R1 

#21., R1 
ERRNNT 

R4 

#177777,NLEN 
C0ND01 



SAVE R4 

FIND LENGTH OF STRING 

FLIP INDICATOR 

POINT AT STRING 

RESULT REGISTER 

RESULT REGISTER 

RESULT REGISTER 

RESULT REGISTER 

IS STRING NULL ? 

YUP - EXIT 

GET WORD OF STRING 

CLEAR HIGH BYTE 

LESS THAN 0 (60 OCTAL) ? 

YES - ERROR 

GREATER THAN 9 ? 

YES - ERROR 

SUB ASCII 60 FRON CHARACTER 

ADD TO RESULT REGISTER 

IF NO CARRY THEN CONTINUE 

ELSE INC NEXT REGISTER 

IF NO CARRY THEN CONTINUE 

ELSE INC NEXT REGISTER 

NO CARRY - CONT 

INC NEXT REGISTER 

NO CARRY - CONT 

ERROR IF CARRY VAS SET 

DECREMENT COUNTER 

ALL DONE 

NULTIPLY BY TEN 

WHICH BYTE ARE UE ON ? 

DONE ALL OF THIS WORD 

GET WORD AGAIN 

SAVE RO 

GET FOR SUAB 

HAKE HIGH BYTE LOW 

STORE BACK 

RESTORE RO 

CLEAR FLAG 

PROCESS HIGH BYTE 

SET FLIP FLAG 

DO LOW BYTE 

RESTORE R4 

SET Z FLAG 

ERROR 21 - RESPONSE ERROR 
ERROR RETURN 
RESTORE R4 

SET NOT EQUAL-(NLEN - NESSAGE LENGTH) 
AND RETURN 
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SEO 53 



1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
U 
15 



005276 10S207 000000 

005300 110207 

005301 110201 

005302 110202 

005303 110203 
005304 
005306 
005310 

005312 104201 000025 
005314 



nULT2: 



MULTIPLY BY 2 

R0.R1,R2,R3 - 64-BIT VALUE TO BE MULTIPLIED 



ADD 
ROL 
ROL 
ROL 
ROL 
BCC 
BR 

RETURN 



MULDN: 
MULERR: MOV 
CALL 



»0»R0 

RO 

R1 

R2 

R3 

MULDN 
MULERR 

«21.,R1 
ERRMNT 



CLEAR CARRY 

SHIFT FIRST WORD 

SHIFT CARRY AND SECOND WORD 

SHIFT CARRY AND THIRD WORD 

SHIFT CARRY AND FOURTH WORD 

IF NO CARRY THEN DONE 

ELSE ERROR 

RETURN 

RESPONSE ERROR 
ERROR EXIT 



r 
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1 
2 
3 
4 
5 
6 
7 
8 
9 
10 

11 005316 

12 005320 

13 005322 
U 005324 

15 005326 

16 005330 

17 005332 

18 005334 

19 005336 

20 005340 

21 005341 

22 005343 

23 005345 

24 005346 

25 005350 

26 005352 

27 005353 

28 005355 
?9 005357 

30 005361 

31 005363 

32 005365 
33 



104070 
104010 
104020 
104020 



105307 

115401 
105301 

115402 
105302 

115403 
105303 



015763 
015764 
015765 
015766 



015763 
015764 
015765 
015766 



104201 000025 



10$: 



20S: 



30S: 



40$: 



MULTIPLY BY TEN 

R0.R1,R2.R3 - 64-BIT VALUE TO BE MULTIPLIED 
TO MULTIPLY BY TEN : 



ADD 



(N*8)*(N*2) TO GET (N*10) 



CALL 


MULT2 


GET N * 2 




NOV 


RO. IMAGE 


STORE FIRST WORD 




MOV 


RI^IMAGE^I 


STORE SECOND WORD 




MOV 


R2.INAGE*2 


-STORE THIRD WORD 




MOV 


R2. IMAGERS 


STORE FOURTH WORD 




CALL 


MULT2 


GET N * 4 




CALL 


NULT2 


•GET N * 8 




ADD 


INAGE.RO 


•ADD IN N » ? 




BCC 


10$ 


•SKIP INC IF CARRY 


CLEAR 


INC 


R1 


•PROP CARRY 
•ADD :N N » 2 




ADD 


INAGEH.RI 




BCC 


20$ 


-SKIP INC IF CARRY 


CLEAR 


INC 


R2 


•PROP CARRY 




ADD 


INA6E^2,R2 


■ADD IN N * 2 




BCC 


30$ 


;SKIP INC IF CARRY 


CLEAR 


INC 


R3 


;PROP CARRY 




ADD 


INAGE*3,R3 


•ADD IN N * 2 




BCC 


40$ 


•SKIP INC IF CARRY CLEAR 


BR 


NULER1 


; ERROR 




RETURN 




;ALL DONE 




NOV 


f21.,R1 


; RESPONSE ERROR 




CALL 


ERRMNT 


; ERROR EXIf 





I 
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1 
2 
3 
4 
5 

^ 

8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 



005367 

005370 114005 

005371 104171 

005372 103201 177400 
005374 

005376 115405 

005377 104271 
005400 103201 000377 
005402 

005404 115405 
005405 
005407 
005410 



FIND THE LEHGTH OF A STRING 
RO -> STRING 
OUTPUT: 
R5 = COUNT 



FINLEN: PUSH 



RO 





CLR 


R5 


FINLN1: 


NOV 


(R0),R1 




BIC 


#HIBYTE,R1 




BEQ 


FINDON 




INC 


R5 




NOV 


(R0)*.R1 




BIC 


#L0BYTE,R1 




BEQ 


FINDON 




INC 


R5 




BR 


FINLN1 


FINDON: 


POP 


RO 




RETURN 





:SAVE RO 

: CLEAR COUNTER 

:GET WORD 

; CLEAR HIGH BYTE 

;IF ZERO THEN DONE 

.•INCREMENT COUNT 

;GET WORD FOR HIGH BYTE 

; CLEAR LOW BYTE 

:IF ZERO THE DONE 

; INCREMENT COUNT 

.•REPEAT WITH NEXT WORD 

.-RESTORE RO 



E 5 
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SEO 56 



1 

I 

4 

5 
6 
7 
8 
9 
10 
11 
12 
13 
U 
15 
16 
17 
18 
19 
20 
21 
22 



005412 1U001 
005A13 104172 
005414 103202 177400 
0C5416 

005420 103202 000040 
005422 106202 000131 
005424 

005426 115401 
005427 

005431 117401 
005432 



DETERMINE IF VALUE IS 'Y'.NULL, OR NOT V 
INPUT: 



OUTPUT: 



RO -> STRING 



R1 = 1 IF 'Y' 
0 IF NULL 
-1 IF NOT V 



F I DANS: 


CLR 


R1 


CLEAR OUTPUT 




MOV 


(R0),R2 


■GET WORD 




BIC 


#HI6YTE,R2 


-CLEAR HIGH STUFF 




BEO 


FIDNUL 


■IF ZERO THEN IT'S NULL 




BIC 


»BIT5,R2 


MAKE IT UPPER CASE 




CMP 


#Y,R2 


;IS IT ? 




BNE 


NOTY 


rNCPE 




INC 


R1 


-MAKE IT 1 


FIDNUL: 


RETURN 




; RETURN 


NOTY: 


DEC 


R1 


;MAKE IT NEGATIVE 




BR 


FIDNUL 


;AND EXIT 
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SEO 57 



1 
2 
3 
4 

5 
6 
7 



005434 
005435 



8 005437 

9 005440 
10 005442 
17 

12 
13 
14 

15 005445 

16 005446 

17 005450 

18 005452 

19 005454 

20 005456 
21 

22 

23 005460 

24 005461 



EXTFCT: 



115001 

101200 000001 



105302 004260 

104621 000001 

105202 000002 

104010 004260 



001702 



USE EXISTING FCT ? 

RO -> STRING 

PUSH R2 

CALL F I DANS 

TST R1 

BMI EXTRET 

BIS #FCTAVL.FLA6 



:SAVE MESSAGE POINTER 
: WHAT'S THE ANSWER 
;TEST THE RESPONSE 
:N0 - EXIT 
;YES - SET THE FLAG 



THIS SECTION SKIPS THE NEXT QUESTION 
WHICH PERTAINS TO DOWN-LINE LOADING 



POP 
ADD 

mv 

ADD 
NOV 
BR 



EXTRET: POP 
EXTRT1: RETURN 



R2 

NLEN«R2 
NSG0FF(R2)«R1 
fMENTLN,R2 
R1 «NLEN 
EXTRT1 



R2 



GET MESSAGE POINTER 

ADD CURRENT MESSAGE LENGTH 

GET NEXT MESSAGE LENGTH 

PAST THE FRONT ENTRIES 

MAKE THIS MESSAGE THE NEW LENGTH 

RETURN 



.•RESTORE MESSAGE POINTER 
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1 



00SA63 
005A64 

8 005A66 

9 005470 
10 005A 72 
n 005A75 

12 005A 77 

13 005502 
U 005503 



CONTIMUE IF BAD ?? 
RO -> STRING 



106201 000001 

101200 000020 001702 

101200 000200 001703 



CONBAO: PUSH 
CALL 
CMP 
BNE 
BIS 
BR 

CONEXT: BIS 
C0N1EX: POP 

RETURN 



R2 

F I DANS 

«1«R1 

CONEXT 

«G0BAD,FLAG 

C0N1EX 

«0UESDN«FLAG1 
R2 



.•WHAT'S THE ANSWER 

;IS IT VES ?? 
;N0PE - EXIT 
;yUP - SET THE FLAG 
'RETURN 

•SET FLAG ALL DONE QUESTIONS 



r 
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1 

1 

c 
% 

3 
/ 
H 

C 

7 

O 






170140 

1 f V 1 Hw 


7 


005507 


104262 




a 

o 


005510 






g 


00551? 


117404 

1 1 f "t w*f 




10 


005513 


104261 




11 

1 1 


0055 1& 


1 1 7402 




10 
1 c 




1 04090 


00140^ 


1? 


005517 


114000 


001404 

\,*w ■ ~ W~ 










IS 


005524 


1 1 *f wW 


V w ■■til 


1 w 


005596 






17 


005527 


104203 


001403 


18 


005531 


104204 


001410 

WW 1 ^ 1 w 


19 


005S33 






?0 
cv 


005535 






01 

C 1 


0055^ 


1 wH J 








1 w"t JwC 


001411 

WW 1 *f 1 1 










c*» 


0055^9 


11 CHAT 
1 1 ^vwJ 




9C 


005543 






CO 


005545 


1 1 ^wwC 




57 


005546 






28 


005550 


104165 




?9 


005551 


1 1 5405 




?0 


005552 


100165 

1 WW 1 w^ 




31 


005553 


1 1 7401 




32 


005554 


105201 


004342 


35 


005556 


105043 






005557 








005561 

ww^ Vw 1 


1 1 5402 

1 1 ^~Wfc 




36 


005562 


104414 

1 W^^ 1 ^ 




37 


005563 








005565 


117401 




39 








40 








41 








42 


005566 


105203 

■ W^b W^ 


000000 

www www 


43 


005570 


110603 




44 


005571 


105203 

1 w^ 


000000 

WW www 


45 


005573 


110603 




46 


005574 


105203 

■ W w w 


000000 


47 


005576 

WW ^ ^ • W 


110602 




48 


005577 






49 


005601 


101203 


040000 

W ~ WW WW 


50 


005603 


105203 


000000 


51 


005605 


110602 




52 


005606 






53 


005610 


101203 


100000 


54 








55 








56 


005612 


105263 




57 


005613 







DATE CONVERSION ROUTINE 

RO -> QUAD-UORD TO STORE RESULT 



VAXTHE: TOV #<0AYS-1>*4,R4 

MOV (SP)*,R2 

BNE 30$ 

DEC R4 

SOS: MOV ($P)>.R1 

DEC R2 

MOV R2,DDUMMY 

CLR DDUMMY^I 

001410 NOV «<365.*4«1>.TEMP 

CLR TEMP*1 

PUSH R4 

NOV «DDUHNY,R3 

NOV #TENP,R4 

CALL DMUL 

POP R4 

MOV TEHP.R3 

MOV TEMP*1 ,R2 
NOTE: LOW TVO BITS OF R3^R4 ARE 

TST R3 

BPL 40$ 

TST R2 

BPL 40$ 

HC" (SP).R5 

INC R5 

NOV R5,(SP> 

40$: DEC R1 

ADD fllNTBL.Rl 

50$: ADD R4.R3 

BCC 51$ 

INC R2 

51S: NOV >(R1).R4 

BNE 50$ 

DEC R1 

DO A ASHC f-2,R2 INSTRUCTION 



52$: 



^3$: 



ADD 
ROR 
ADD 
ROR 
ADD 
ROR 
BCC 
BIS 
ADD 
ROR 
BCC 
BIS 



ADD 

BCC 



fO«R3 
R3 

#0,R3 

f40000.R3 
fO.RS 

#100000,R3 



(SP>*.R3 
54$ 



.•QUARTER DAYS FRON BEGIN TO 1901 

;GET YEARS 

; BRANCH IF NOT 1900 

.CAUSE 1900 TO NOT BE A LOOP YEAR 

;GET NONTH 

.YEAR AFTER LEAP YEAR DIVISABLE BY 4 

;FOR NULTIPLY 

.•CLEAR HIGH ORDER 

.•QUARTER DAYS IN A YEAR 

.CLEAR HIGH ORDER 

;SAVE DAYS 

.-FOR NULT 

.DITTO 

:GET YEAR TIMES QUARTER DAYS IN A YEAR 

.RESTORE DAYS 

;LOW ORDER 

.•HIGH ORDER 

ONES IFF. LEAP YEAR 

.AFTER 1900 ? 

.YES 

;AFTER 1900 ? 
;YES 

.GET DAYS 

.ADJUST FOR 1 DAY LESS DAY IN 1900 
;PUT BACK 

;8IAS NONTH TO ZERO 
.INDEX INTO NONTH TABLE 
.ADD TO DAYS 
;IF NO CARRY SKIP 
;PROP CARRY 

.GET LENGTH OF NEXT PREVIOUS NONTH 
.BRANCH UNTIL END OF TABLE 
.POINT TO FIRST TINE NULTILPLIER 



;NAKE SURE CARRY IS 0 
.-SHIFT RIGHT 1 
;CL£iU) CARRY 
.•ROTATE RIGHT 1 
•CLEAT CARRY 

•ROTATE HIGH ORDER RIGHT 1 
;IF NO CARRY THEN SKIP 
;D0 "SHIFT" INTO LOW ORDER 
.•CLEAR CARRY 

.•SHIFT HIGH ORDER RIGHT 1 
;IF NO CARRY THEN SKIP 
;D0 "SHIFT" INTO LOW ORDER 



;ADD IN DAY OF NONTH 
;SKIP INC IF NO CARRY 
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SEO 60 



S8 00561 S 

59 

60 

61 

62 005616 

63 005617 

64 005620 

65 005621 

66 005622 

67 005623 
68 

69 
70 

71 005C24 

72 005625 
73 

74 
75 

76 005627 

77 005630 

78 005631 

79 005633 

80 005635 

81 005637 

82 005641 

83 005642 

84 005644 

85 005646 

86 005650 

87 005651 

88 005652 

89 005653 

90 005654 

91 005656 

92 005657 

93 005660 

94 005662 

95 005663 

96 005664 

97 005665 

98 005666 

99 005670 

100 005671 

101 005673 

102 005674 

103 005676 

104 005677 



115402 



104074 
100243 
100242 
114005 
100245 
100145 



104074 
104205 



104142 
104113 
104030 
104020 
114000 
114000 

104203 
104204 

104243 
104142 

115002 

105112 
105163 

115402 
100243 
100162 
117405 

104415 

104265 

104265 



$4$: 



000004 



001403 
001410 
001404 
001411 

001403 
001410 



60$: 



80S: 
81t: 



INC R2 ;PR0P CARRY 

INIT QUAO-yORO TO DAYS SINCE BASE DATE 



HOV 
NOV 
NOV 
CLR 
NOV 
NOV 



R0,R4 
R3,(R4)i 
R2,(R4)f 
R5 

R5.(R4)f 
R5,(R4) 



;OUAD yORD POINTER 

.COPY LOU ORDER DAYS 

;COPY HIGH ORDER DAYS 

;FOR REST OF QUAD-WORD CLEAR 

; CLEAR 

.CLEAR 



LOOP TO NERGE TINE OF DAY INTO DAYS SINCE BASE DATE 



NOV 
NOV 



R0,R4 
#4.R5 



;COPY QUAD WORD POINTER 
; INNER LOOP COUNT 



CALCULATE QUAD-WORD <- QUAD-WORD * CRD ♦ (SP)*^ 



90$: 



NOV 


(R4).R2 


NOV 


(R1),R3 


NOV 


R3.D0UNNV 


NOV 


R2,TENP 


CLR 


DDUNNY^I 


CLR 


TENP*1 


PUSH 


R4 


NOV 


«DDUNNY,R3 


NOV 


«TENP.R4 


CALL 


DNUL 


NOV 


(R4)t,R3 


NOV 


(R4)«R2 


POP 


R4 


TST 


R2 


BPL 


80$ 


ADD 


(R1),R2 


ADD 


(SP).R3 


BCC 


81$ 


INC 


R2 


NOV 


R3.(R4)« 


NOV 


R2,(SP) 


DEC 


R5 


BNE 


70$ 


NOV 


-<R1),R5 


BEQ 


90$ 


NOV 


(SP)*.R5 


BR 


60$ 


NOV 


(SP)*.R5 


RETURN 



FETCH DIEXT WORD OF QUAD-WORD 

GET NULTIPLIER 

STORC FOR MULTIPLY 

FOR MULTIPLY 

CLEAR HIGH ORDER 

DITTO 

SAVE QUAD-WORD POINTER 

FOR NULTIPLY 

DITTO 

DO NULTIPLY 

GET LOW ORDER RESULT 

GET HIGH ORDER RESULT 

RESTORE QUAD-WORD POINTER 

IS IT POSITIVE 

O.K. 

NAJCE IT AN UNSIGNED MULTIPLY 
ADD HIGH ORDER OF PREVIOUS NUL. 
SKIP INC IF NO CARRY 
ADD CARRY 

STORE WORD INTO QUAD-WORD 
SAVE HIGH ORDER WORD 
DEC COUNT 

CONTINUE TILL DONE 
"FOP" R1 

IF ZERO THEN DONE 
POP STACK 

DO NEXT MULTIPLIER 
DO FINAL POP 
AND RETURN 
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1 

BRING IN DOT IN HIGH NENORY 

.IF DF DEBUG 
.NLIST 
. = SODT 
DMODT 
.LIST 

.ENDC 



K 5 



UDAF52 > UDA-52 FORMATTER ONACR X04.01 23-AU6-82 13:U:22 PAGE 40 
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1 
2 
3 
A 

5 
6 
7 



005701 
OOAOU 
004C16 

8 004021 

9 004023 

10 004025 

11 004027 

12 004031 
13 

14 
15 
16 
17 
18 
19 
20 

21 004033 

22 004035 

23 004037 

24 004041 

25 004043 

26 004045 

27 004047 

28 004051 

29 004053 

30 004055 

31 004057 

32 004061 

33 004063 

34 004065 
35 

36 
37 

38 004067 

39 004072 

40 004074 

41 004076 

42 004100 

43 004102 

44 004104 

45 004106 

46 004110 

47 004112 

48 004114 

49 004116 

50 004120 
51 

52 
53 

54 004122 

55 004124 

56 004126 

57 004130 



102200 000001 001702 
104201 000000 
104201 000003 



DOLBN: 
DXBN: 



104207 
104673 
103203 
104030 
114000 
104673 
103203 
104030 
114000 
104203 
104204 

104240 
104140 



001525 
000003 
177400 
001403 
001404 
000002 
177400 
001410 
001411 
001403 
001410 

001624 
001625 



102200 020000 001703 
104673 000011 



104673 
103203 
104030 
114000 
104204 
104203 

104240 
104140 



104673 
103203 
104030 
114000 



000015 
177400 
001410 
001411 
001410 
001624 

001630 
001631 



000004 
177600 
001410 
001411 



1$: 
2S: 



.SBTTL INITIALIZATION OVERLAY (G1) 
INITIALIZATION OVERLAY 



DNOVLY 

CALL 

BIT 

BNE 

HOV 

BR 

MOV 

CALL 



G1. START 
INITL 

«FCTAVL,FLA6 

OOLBN 

#F1«R1 

DXBN 

#F2,R1 

NEXT 



.'INITIALIZE DISK 
;USE RESIDENT FCT ? 
;YES - ONLY DO LBN 
;ELSE DO D/X6N FIRST 
.-SKIP LBN FLAGGING 
.-SIGNAL LBN FORMAT 
;BRING IN NEXT OVERLAY 



COMPUTE DISK CONSTANTS FROM CHARACTERISTICS 



COMPUTE 


TRACKS/CYLINDER 


MOV 


fSCR.RO 


MOV 


TRKGRP(R0).R3 


BIC 


#HIBYTE.R3 


MOV 


R3,DDUPmY 


CLR 


DDUMMY*1 


MOV 


GRPCYL<R0),R3 


BIC 


«HIBYTE,R3 


MOV 


R3,TEMP 


CLR 


TEMP^I 


MOV 


fODUMMY.RS 


MOV 


#TEMP.R4 


CALL 


DMUL 


MOV 


(R4)*.TRICCYL 


MOV 


(R4).TRKCYL*1 


COMPUTE 


LBN'S/CYLINDER 


BIT 


«M0DE.FLAG1 


BNE 


1$ 


MOV 


LBNT12(RO).R3 


BR 


2S 


MOV 


LBNT76(R0).R3 


BIC 


«HIBYTE,R3 


MOV 


R3.TEMP 


CLR 


TEMP+1 


MOV 


fTEMP,R4 


MOV 


«TRKCYL.R3 


CALL 


DMUL 


MOV 


(R4)^.LBNPCY 


MOV 


(R4).LBNPCY*1 


COMPUTE 


RBN'S/CYLINDER 


MOV 


RBNTRK(R0),R3 


BIC 


fHllBYTE.RS 


MOV 


R3.TEMP 


CLR 


TEMP*1 



; POINT TO SUB CHARACTERISTICS 

.-LOAD TRACKS/GROUP 

; CLEAR HIGH BYT. 

; STORE IN DUMMY AREA 

; CLEAR FOR STORE 

;GET GROUPS/CYLINDER 

; CLEAR HIGH BYTE 

;STOPE IN TEMP AREA 

:CLE*1 HIGH ORDER 

:SETR UP FOR MULT 

.DITTO 

.COMPUTE IT 

.•LOAD FOR STORE 

:LOAD FOR STORE 



WHAT MODE 

IF SET THEN 576 

GET LBN/TRACK FOR 512 

SKIP 576 SETUP 

GET LBN/TRACK FOR 576 

CLEAR HIGH BYTE 

FOR MULT 

FOR STORE 

FOR MULTIPLY 

DITTO 

GET LBN'S/CYL 
GET LOU ORDER 
GET HIGH ORDER 



GET RBN'S/TRACK 
CLEAR OUT GARBAGE 
STORE FOR MULT 
FOR STORE 
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80 
81 



58 004132 

59 004134 

60 004136 

61 004140 

62 004142 
63 

64 
65 
66 
67 

68 004144 

69 004146 

70 004151 

71 004153 

72 004155 

73 004157 

74 004161 

75 004163 

76 004165 

77 004167 

78 004172 

79 004175 
004177 
004202 

82 004205 

83 004207 

84 004212 

85 004215 

86 004217 

87 004221 

88 004223 
89 

90 
91 
92 

93 004225 

94 004227 

95 004232 

96 004234 

97 004236 

98 004240 

99 004242 

100 004244 

101 004246 

102 004250 
103 

104 
105 

106 004252 

107 004254 

108 004256 

109 004260 

110 004262 

111 004263 

112 004265 

113 004267 

114 004271 



104204 001410 

104203 001624 

104240 001632 

104140 001633 



104207 001525 

104670 000000 001410 

104673 000001 

103203 170000 

104030 001411 

104204 001410 

104203 001632 

104240 001620 

104140 001621 



104673 000004 

103203 177600 

104674 000011 

103204 177400 
105043 

104030 001606 

104030 001612 

114000 001607 

114000 001613 



nOV #TENP«R4 

MOV #TRKCYL,R3 

CALL DMUL 

MOV (R4)*,RBNPCY 

MOV (R4),RBNPCYt1 



COMPUTE LBN'S IN LBN AREA 



104207 


001525 






MOV 


10^670 


000000 
www 


001410 




MOV 


1 wtw ^ 


000001 

WWV 1 






MOV 


103203 


170000 






BIC 


104C30 


001411 






NOV 


104204 


001410 






MOV 


104203 


001630 






NOV 










CALL 


104140 


001616 






NOV 


104640 


00000 1 


001617 




NOV 


102200 


020000 


001703 




BIT 










BNE 


104670 


000012 


001403 




MOV 


104670 


000013 


001404 




NOV 










BR 


104670 


000016 


001403 


3S: 


NOV 


104670 


000017 


001404 




NOV 


104203 


001403 




4$: 


MOV 










CALL 


104240 


002160 






NOV 


104140 


002161 






NOV 










CONPUTE 



NOV 

NOV 

NOV 

BIC 

NOV 

NOV 

MOV 

CALL 

NOV 

NOV 



#SCR,RO 

CYLBN(RO).TENP 

CYLBN«1(R6),R3 

«HD.CLR,R3 

R3,TENP*1 

#TEMP«R4 

fLBNPCY,R3 

OMUL 

(R4),LBNLBN 
1(R4)ABNLBN«^1 
#MO0E,FLAG1 
3$ 

LBNH12(R0).DDUNMY 

LBNH12t1(R0>,0DUNNY^i 

4S 

LBNH76(R0).DDUMMY 
LBNH76^1 (RO) ,DDUNNY*1 
#DDUNNY,R3 
OSUB 

(R4>*.T0TRCT 
(R4>.T0TRCT*1 



fSCR,RO 

CYLBN(RO),TEMP 

CYLBN«1(R0),R3 

#HD.CLR«R3 

R3-TEMP*1 

fTENP,R4 

#RBNPCY,R3 

ONUL 

(R4)^,RBNLBN 
(R4),RBNLBN^1 



CONPUTE SECTORS/TRACK (512) 

NOV RBNTRK(R0),R3 

BIC fHIlBYTE,R3 

MOV LBNT12(R0),R4 

BIC #HIBYTE,R4 

ADD R4,R3 

NOV R3,SECTRIC 

NOV R3,SECT12 

CLR SECTRK^I 

CLR SECT12*! 



FOR MULTIPLY 
DITTO 

GET RBN'S/CYL 
GET LOU ORDER 
GET HIGH ORDER 



POINT TO CHARACTERISTICS 
GET LBN CYLINDERS 
GET HIGH ORDER 

CLEAR STARTING CYLINDER BITS 
STORE IT 
FOR MULT 

POINT TO LBN'S/CYLINDER 

GET LBN'S IN LBN AREA 

GET LOU ORDER 

GET HIGH ORDER 

WHAT NODE 

IF SET THEN 576 

GET LBN'S IN HOST AREA (512) 

GET HIGH ORDER 

SKIP 576 SETUP 

GET LBN'S IN HOST AREA (576) 

GET HIGH ORDER 

FOR SUB 

SUBTRACT TO GET LBN'S IN RCT 
GET LOU ORDER 
GET HIGH ORDER 



POINT TO CHARACTERISTICS 

GET IBN CYLINDERS 

GET HIGH ORDER 

CLEAR STARTING CYLINDER BITS 

STORE IT 

FOR NULT 

POINT TO RBN'S/CYLINOER 
GET LBN'S IN LBN AREA 
GET LOU ORDER 
GET HIGH ORDER 



LOAD RBN'S/ TRACK 
CLEAR OUT GARBAGE 
LOAD LBN'S/TRACK(512) 
CLEAR OUT HIGH BYTE 
ADO FOR SECT /TRACK 
STORE IT 
STORE IT 
CLEAR FOR STORE 
CLEAR FOR STORE 



n s 
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115 
116 
117 

118 004273 

119 004275 

120 004277 

121 004301 

122 004303 

123 004304 

124 004306 
125 

126 
127 

128 004310 

129 004313 

130 004316 

131 004320 

132 004322 

133 004324 

134 004326 
135 

136 
137 

138 004331 

139 004334 

140 004336 

141 004340 

142 004342 

143 004344 
144 

145 
146 

147 004346 

148 004350 

149 004353 

150 004356 

151 004360 

152 004362 

153 004364 

154 004366 

155 004371 

156 004373 

157 004375 

158 004377 

159 004401 

160 004402 

161 004404 

162 004406 

163 004410 

164 004412 

165 004414 

166 004416 

167 004420 

168 004422 

169 004423 

170 004425 

171 004427 



104673 
103203 
104674 
103204 
105043 
104030 
114000 



104300 
104300 
104204 
104203 

104140 
104640 



104670 
114000 
104203 

104240 
104140 



104207 
104670 
104670 
104674 
104040 
104040 
104204 
104670 
114000 
104203 

104673 
110703 
103203 
104030 
114000 
104203 

104642 
104673 
103203 
101032 
100642 
104203 



000004 
177600 
000015 
177400 

001610 
001611 



001606 
001607 
001403 
001624 

001614 
000001 



000021 
001411 
001410 

001622 
001623 



001525 
000000 
000000 
000001 
001627 
001411 
001410 
000021 
001404 
001403 

000022 

177400 
001403 
001404 
001403 

000001 
000001 
007777 

000001 
002151 



001403 
001404 



001615 
001410 



001626 
001410 



001403 



COMPUTE SECTORS/TRACK (576) 

NOV RBNTRK(R0),R3 

BIC 4rHI1BYTE,R3 

nOV LBNT76(RC),R4 

BIC 4rHIBYTE,R4 

ADO R4,R3 

KOV R3,SECT76 

CLR SECT76*1 

COMPUTE SECTORS/CYLINDER 

NOV SECTRK,DDUnNY 

MOV SECTRK^I ,D0UNNY^1 

NOV «DDUNNY,R4 

NOV «TRKCYL,R3 

CALL DNUL 

NOV (R4),SECTCY 

NOV 1(R4),SECTCY«1 

CONFUTE SECTORS IN XBN AREA (R4 

NOV XBNCYL(RO)«TENP 

CLR TENP*1 

NOV «TENP,R3 

CALL DNUL 

NOV (R4)4-,XBNSEC 

NOV (R4),XBNSEC>1 

CONPUTE LAST CYLINDER NUNBER ON 

MOV #SCR«RO 

NOV CYL6N(R0),LBNCYL 

NOV CYLBN(RO).TENP 

NOV CYLBN^1(r6),R4 

NOV R4,LBNCYL«^1 

NOV R4,TEHP*1 

NOV #TENP,R4 

NOV XBNCYL(RO),OOUmY 

CLR ODUNHY^I 

NOV «0DUNHY,R3 

CALL OADD 

NOV 0BNCYL(R0)«R3 

SWAB R3 

BIC #HIBYTE,R3 

NOV R3,DDUHNY 

CLR DDUMHY*1 

NOV #DDUMNY,R3 

CALL DADD 

NOV 1(R4),R2 

NOV STCYL(R0),R3 

BIC #L0,R3 

BIS R3,R2 

NOV R2,1(R4) 

NOV irONE,R3 

CALL DSU6 



LOAD RBN'S/ TRACK 
CLEAR OUT GARBAGE 
LOAD LBN '8/ TRACK (576) 
CLEAR OUT HIGH BYTE 
ADO FOR SECT/TRACK 
STORE IT 
CLEAR FOR STORE 



;LOU ORDER 
:HIGH ORDER 
;SET UP FOR NULT 
.•DITTO 
.-COMPUTE IT 
;LOAD FOR STORE 
.-LOAD FOR STORE 

-> SECTORS/CVL) 

.-LOAD NUNBER OF XBN CYLINDERS 

.•CLEAR FOR STORE 

.SET UP FOR NULT 

:GET XBN SECTORS 

;LOAD FOR STORE 

;LOAO FOR STORE 

SUBUNIT 

.•POINT TO CHARACTERISTICS 

;GET LOU ORDER LBN CYLINDERS 

.•ALSO FOR NATH 

;6ET HIGH ORDER 

.•STORE HI ORDER 

.'ALSO FOR NATH 

:SET UP FOR ADD 

.-LOAD XBN CYLINDERS 

.CLEAR HIGH ORDER 

.-SET UP FOR ADD 

:GET LBN^XBN CYLINDERS 

.•LOAD DBN CYLINDERS 

;GET INTO LO BYTE 

.'CLEAR GARBAGE 

;FOR DIVIDE 

.•CLEAR HIGH ORDER 

.SET UP FRO ADD 

.GET LBN^XBN^DBN CYLINDERS 

;GET HIGH ORDER 

;GET CYLINDER BITS 

.•CLEAR OUT REST OF WORD 

.OR IN CYLINDER HIGH BITS 

.•STORE BACK 

.'DECRENENT TO GET NUN OF LAST CYL 
:00 IT 



N S 
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172 

173 

174 

175 

176 

177 

178 

179 

180 

181 

182 

183 

184 

IBS 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 

201 

202 

203 

204 

205 

206 

207 

208 

209 

210 

211 

212 

213 

214 

215 

216 

217 

218 

219 

220 

221 

222 

223 

224 

225 

226 

227 

228 



004431 
004433 



004435 
004440 
004443 
004446 
004450 
004452 
004454 
004456 
004461 
004463 
004465 
004467 
004471 



004474 
004477 
004502 
004505 
004507 
004511 
004513 
004515 
004520 
004522 
004524 
004526 
004530 
004533 
004535 
004537 
004541 
004543 
004546 
00A551 
004553 
004555 
004557 
004561 



004563 
004565 
00A567 
004570 
004572 
004574 
004575 
004577 
004600 



1 ni o/ n 


UU ioUh 




nov 


IU<( IhU 


UUIoUj 




nuv 








LUnrU 1 c 


1 U*l jUv 




UU \ H\ \i 


nuv 




UU lOc 1 


UU 1 <i 1 1 


nuv 




nnni 77 




nuv 


1 ^L(\(\(\ 


UU 1 MUH 








UUlH lU 




nuv 


104203 


001403 




MOV 








CALL 


104200 


000200 


001403 


NOV 


114000 


001404 




CLR 


104203 


001403 




NOV 








CALL 


104140 


001746 




NOV 


105200 


000002 


001746 


ADD 



104300 
104300 
104200 
114000 
104204 
104203 

104200 
114000 
104204 
104203 

104200 
114000 
104203 

104140 
104640 
104200 
114000 
104203 

104140 
1154r'» 



104203 
104302 
100232 
104204 
104302 
100232 
104302 
100232 
104302 



001620 
001621 
000002 
001404 
001410 
001403 

000177 
001404 
001410 
001403 

000200 
001404 
001403 

001723 
000001 
000002 
001404 
001403 

001745 
001745 



011132 
002131 

000125 
002126 

002127 
002130 



001410 
001411 
001403 



001403 



001403 



001724 
001403 



(R4)*,CYLNUN 
(R4),CYLNUN«1 



RBNLBN.TENP 

RBNLBN^UTENP^I 

#1 27., DDUNHY 

DDUNNY^I 

#TENP,R4 

#DDUWIY,R3 

DADD 

#128.,DDUNNY 

DDUNNY4^1 

#DDUMnY,R3 

DDIV 

(R4),RCTLBN 
#2,RCTLBN 



CONPUTE NON-PAD FCT 

NOV RBNLBN,TENP 

MOV RBNLBNi-l.TENP^I 

NOV #2,0DUMMY 

CLR DOUMMY+1 

MOV 4rTEMP,R4 

NOV #DDUKNY,R3 

CALL DDIV 

MOV #127., DDUNHY 

CLR DDUNNY^I 

NOV «TENP,R4 

NOV #DDUHHY,R3 

CALL DADD 

NOV #128.,0DUHNY 

CLR DDUNHY^I 

NOV #DDUNNY,R3 

CALL DDIV 

NOV (R4),FCTSUB 

NOV 1(R4),FCTSUB*1 

NOV #2,DDUNNY 

CLR DDUMHY*1 

NOV #DDUNNY,R3 

CALL DNUL 

NOV (R4),FCTNPD 

INC FCTNPD 

INITIALIZE GOOD DATA BLOCK 



OVER: 



MOV 
NOV 
NOV 
NOV 
NOV 
NOV 
NOV 
NOV 
NOV 



#GDBLK,R3 

DURD,R2 

R2,<R3)* 

#85., R4 

FURD,R2 

R2,{R3)* 

SURD,R2 

R2,(R3)^ 

TUR0,R2 



.'MAKE IT CURRENT CYLINDER 
;LOAD HI ORDER 



GET LOU ORDER LBN'S IN HOST AREA 

GET HIGH ORDER 

ADD 127 FOR DIV FUNCTION 

FOR CLEAR 

FOR ADD 

DITTO 

ADD 

FOR DIVIDE (128 RBN/RCT BLOCK) 
FOR STORE 
POINT TO IT 
DO DIVIDE 

GET LOU ORDER QUOTIENT 
FOR CONTROL BLOCKS 



GET LOU ORDER LBN'S IN HOST AREA 

GET HIGH ORDER 

FOR DIVIDE BY 2 

DITTO 

SETUP 

SETUP 

CALL DIVIDE 

ADD 127 FOR DIV FUNCTION 

FOR CLEAR 

FOR ADD 

DITTO 

ADD 

FOR DIVIDE (128 RBN/RCT BLOCK) 

FOR STORE 

POINT TO IT 

DO DIVIDE 

FCT SUBTABLE SIZE 

HIGH ORDER 

FOR NULT 

CLEAR HIGH UORD 

FOR DIVIDE 

DO NULTIPLY 

NON-PAD FCT BLOCKS 

FOR NON-PAD FCT BLOCKS 



.•POINT TO BUFFER 

/DIAGNOSTIC UORD 

.•STORE IT 

;SET COUNTER 

: FIRST UORD OF PATTERN 

.STORE IT 

.•SECOND UORD OF PATTERN 
.•STORE IT 

.•THIRD UORD OF PATTERN 
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IHl 1 lALiiiA 1 lUN 


UVCNLAT 






Jin nn^AHi 


1 1 7LnL 
I 1 r HUH 






CJC UUhoUO 


1 UHOUc 


CJJ UUhOIU 








CJJ 




c^O 








OTP nnAAi 1 




C JT UVHO 1 J 


1 UHCUU 


cHU vU*»0 1 O 


I I HUUv 




1 vHcwH 


2A2 004622 




243 004624 


104200 


244 004627 


114000 


245 004631 


104203 


246 004633 




247 004635 


104140 



nov 

DEC 
BNE 
NOV 
NOV 



R2,(R3)* 
R4 

OVER 

EDC,R2 

R2,(R3)t 



SET UP END OF IMAGE POINTER 

NOV «SECTRK,R3 

NOV «INLEN,TENP 

CLR TENP+1 

NOV «TENP,R4 

CALL DNUL 

NOV «INAGE,DDUNNY 

CLR DDUNNY^I 

NOV «DDUNHY,R3 

CALL DADD 

NOV (R4),EIHAGE 



SEQ 66 



STORE IT 

DECRENENT COUNTER 
REPEAT TILL DONE 
EDC FOR PATTERN 
STORE IT 



SEC/TRACK 

FOR NULT 

FOR STORE 

SET UP FOR NULT 

GET LENGTH OF IMAGE BLOCK 

FOR ADD 

CLEAR HIGH BYTE 
SET UP FOR ADD 
ADD TO GET ADDRESS 
GET ADDRESS 



C 6 



UDAF52 - U0A-S2 FORMATTER DNACR X04.01 23-AUG-82 13:U:22 PAGE 41 
INITIALIZATION OVERLAY (01) 



1 
2 
3 

5 
6 
7 



004637 
004641 

8 004643 

9 004644 

10 004646 

11 004650 

12 0046S2 

13 004654 

14 004656 

15 004660 

16 004663 

17 004665 

18 004670 

19 004673 

20 004675 

21 004700 

22 004703 



104207 
104673 
110703 
103203 
104030 
114000 
104204 
104203 



001512 
000007 

177400 
001410 
001411 
001410 
001606 



106300 001720 001410 

104200 000011 001717 
104200 000044 001716 

1042U0 000006 001717 TWO: 
104200 000033 001716 

ISKIP: 



COMPUTE INTERLEAVE FACTOR 



nOV #CR,RO 

MOV REVSEC(R0),R3 

SUA8 R3 

BIC «HIBYTE,R3 

MOV R3.TEMP 

CLR TEMP*1 

MOV «TENP,R4 

MOV #SECTRK,R3 

CALL OMUL 

CMP CUTOF,TEMP 

BPL TWO 

MOV fTNREB.TBLK 

MOV #44,SKPCNT 

BR ISKIP 

NOV #TyOB,TBLK 

NOV f33,SKPCNT 



POINT TO CHARACTERISTICS BLOCK 

GET REVS/SECOND 

GET INTO LOW BYTE 

CLEAR HIGH BYTE 

FOR MULTIPLY 

CLEAR FOR STORE 

SET UP FOR "lULTIPLY 

SECTORS/TRAcX 

GET SECTORS/SECOND 

WITHIN LIMITS ? 

DO BI-LEAVE 

ELSE 00 TRI-LEAVE 

INIT CHECK PASS OFFSET 

SKIP BI -LEAVE SETUP 

00 BI-LEAVE 

INIT CHECK PASS OFFSET 
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1 
2 
3 



18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 



004742 
004745 
004750 
004752 
004754 
004756 
004760 
004762 
004764 
004766 
004770 



104300 001616 001410 

104300 001617 001411 

104204 001410 

104203 001620 

104203 002151 



104642 
107302 
104020 
104140 



000001 
002007 
001640 
001637 



FILL IN FCT INFO 



4 


004703 


104207 


001512 






NOV 


5 


004705 


104673 


000001 






NOV 


6 


004707 


110703 








SUAB 


7 


004710 


103203 


177760 






BIC 


8 


004712 


104030 


AAA 

001731 






NOV 


9 


004714 


104207 


001525 






NOV 


10 


004716 


104670 


000010 


001725 




NOV 


11 


004721 


114000 


001726 






CLR 


12 


004723 


102200 


020000 


001703 




BIT 


13 


004726 
004730 
004733 










BEQ 


14 


104670 


000020 


001727 




NOV 


15 










BR 


16 


004735 


104670 


000014 


001727 


1$: 


NOV 


17 


004740 


114000 


001730 




2$: 


CLR 



fCR,RO 

FRCPY(R0},R3 
R3 

#FCLR,R3 

R3,FCTCPY 

#SCR,RO 

FCTS2<R0>,FCTFHT 

FCTFHT+1 

#NO0E,FLAG1 

n 

RCTS76(R0).RCTFMT 
2$ 

RCTS12(R0),RCTFNT 
RCTFNT*1 



COMPUTE HIGHEST PBN IN LBN AR 



NOV LBNLBN,TENP 

NOV LBNLBN«^1«TENP«1 

NOV «TENP,R4 

NOV #RBNLBN,R3 

CALL DADO 

NOV #0NE,R3 

CALL DSUB 

NOV HR4).R2 

SUB ST.LBN,R2 

NOV R2,HGHPBN*1 

NOV (R4>«HGHPBN 



POINT TO CHARACTERISTICS BLK 

GET F/RCT COPIES 

GET INTO LOU BYTE 

CLEAR OUT REST OF GARBAGE 

STORE 

POINT TO SUBUNIT CHARACTERISTICS 

GET FCT SIZE IN SECTORS 

CLEAR HIHG ORDER 

WHAT NODE ARE UE IN ? 

IF CLEAR THEN IN 512 NODE 

:LSE get 576 RCT SIZE 

SKIP 512 STUFF 

GET RCT SIZE 

CLEAR HIGH ORDER 



GET LOU ORDER 
GET HIGH ORDER 
FOR SUB 

POINT TO RBN'S IN LBN AREA 
ADD TO GET HIGHEST PBN 
DITTO 

TO GET ACTUAL PBN NUNBER 
GET HIGH ORDER 

SUBTRACT TO GET RELATIVE LAST BLOCK 

STORE IT 

GET HIGH ORDER 
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1 

! 



4 
5 
6 
7 



004772 
004775 
004777 
005001 

8 005003 

9 005005 
^0 005007 

11 005011 

12 005012 

13 005014 

14 005016 

15 005021 

16 005023 

17 005025 

18 005027 

19 005031 

20 005033 

21 005035 

22 005037 

23 005040 
24 

25 
26 

27 005042 

28 005044 

29 005046 

30 005050 

31 005052 

32 005054 

33 005056 

34 005057 

35 005060 

36 005061 

37 005062 

38 005064 

39 005065 

40 005067 
41 

42 
43 
44 
45 

46 005071 

47 005073 

48 005075 

49 005077 

50 005101 

51 005102 

52 005104 

53 005106 

54 005107 

55 0C5110 

56 005112 

57 005114 



104200 
114000 
104204 
104203 

104303 
104204 
105034 
104040 
104040 
104200 
114000 
104040 
114000 
104204 
104203 

104304 
110604 
104040 



104207 
104673 
103203 
104030 
104030 
104673 
110603 
110603 
110603 
110603 
103203 
115403 
104030 
114000 



104207 
104673 
103203 

115403 
104201 
105201 
110201 
117403 

104070 
114000 



000003 001410 
001411 
001410 
001606 

001410 
015763 

001 ?07 
001737 

037777 001410 

001411 

001403 

001404 

001410 

001403 

001410 

001710 



001512 
000002 
177400 
002166 
002170 
000001 



177700 

002165 
002167 



001512 
000001 
177760 



000001 
000000 



001410 
001411 



TIML01: 
TIMLOP: 



COMPUTE REVECTOR BUFFER ADDRESS 

NOV #INLEN,TENP 

CLR TENP*1 

NOV #TENP,R4 

NOV #SECTRK,R3 

CALL DNUL 

NOV TEnP«R3 

NOV #INAGE,R4 

ADD R3,R4 

NOV R4,ERRBUF 

NOV R4,ERPNT 

NOV #BNAX.TENP 

CLR TENP*1 

NOV R4,DDUNNY 

CLR DDUNNV^I 

NOV #TENP,R4 

NOV «DDUNNV,R3 

CALL DSUB 

NOV TENP.R4 

ROR R4 

NOV R4«ENAX 

STORE RETRY AND RECOVERY LEVELS 

NOV fCR,RO 

NOV ERCV(R0),R3 

SIC «HIBYTE«R3 

NOV R3,REC0V 

NOV R3,RECTNP 

NOV RTRY(R0),R3 

ROR R3 

ROR R3 

ROR R3 

ROR R3 

BIC fHI2BYTE,R3 

INC R3 

NOV R3, RETRY 

CLR TNPTRY 



SET UP LONG TINEOUT 



NOV fCR.RO 

NOV L0NGT0(R0),R3 

BIC »FCLR.R3 

BNE TINL01 

INC R3 

NOV 4fl,R1 

ADD #0,R1 

ROL Rl 

DEC R3 

BNE TINLOP 

NOV RO.TENP 

CLR TENP^l 



SEQ 69 



AND NAX REVECTOR COUNT 

;6ET LENGTH OF FORNAT INA6E BLOCK 

: CLEAR FOR STORE 

;FOR NULT 

; SECTORS/TRACK 

;GET LENGTH OF FORNAT BUFFER TABLE 
;GET LENGTH 

;6ET INAGE BUFFER START ADDRESS 

:GET START ADDRESS OF REVECTOR BUFFER 

.STORE IT 

:INIT POINTER 

;GET NAX BUFFER ADDRESS 

.FOR CLEAR 

; STORE BEGINNING ADDRESS 
; CLEAR HIGH WORD 
.POINT TO END ADDRESS 
.-POINT TO BEGINNING ADDRESS 
.•SUBTRACT TO GET LENGTH 
;GET LENGTH 

;DIVIDE BY 2 (LENGTH OF 1 ENTRY) 
.•STORE AS NAX NUMBER 



POINT TO CHARACTERISTICS 
GET RECOVERY LEVELS 
CLEAR HIGH ORDER 
STORE IT 
INIT COUNTER 
GET RETRY NUfBER 

SHIFT BY FOUR TO GET INTO LOW ORDER NIBBLE 



CLEAR HIGH ORDER JUNK 

ONE NORE BECAUSE OF UR0N6 INC 

STORE IT 

FOR STORE 



POINT TO CONNON CHARACTERISTICS 

GET LONG TINEOUT IN L0G2 

CLEAR ALL BUT TINEOUT 

IF NOT ZERO THEN CONTINUE 

NAKE IT AT LEAST 1 

INIT COUNTER 

CLEAR CARRY 

SHIFT 

OECRENENT SHIFT COUNT 
CONTINUE TILL DONE 
FOR DIVIDE 
CLEAR HIGH yORD 
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A 



58 005116 

59 005121 

60 005123 

61 005125 

62 005127 

63 005131 

64 005133 
65 

66 
67 
68 
69 

70 005135 

71 005137 

72 005U1 

73 005U3 

74 005144 

75 005146 

76 005150 

77 005151 

78 005152 

79 0051 S4 

80 005156 

81 005157 

82 005160 

83 005162 
84 

85 
86 
87 
88 
89 

90 005164 

91 005166 

92 005171 

93 005174 

94 005176 

95 005177 

96 005201 

97 005203 



104200 000012 001403 

114000 001404 

104204 001410 

104203 001403 

104140 001735 

115400 001735 



104207 
104673 
103203 
117403 
104201 
105201 
110201 
117403 



104203 
110201 
117403 

104010 



NOV 
CLR 

nov 
nov 

CALL 

NOV 

INC 



«10..DDUHNY 
DDUNNY^I 
#TENP,R4 
«DDUNNY,R3 

DDIV 

(R4),LT0 

LTD 







SET UP 


SHORT TIHEOUT 


001512 




NOV 


#CR,RO 


000000 




NOV 


SH0RT0(R0),R3 


177760 




BIC 


fFCLR.R3 






DEC 


R3 


000001 




NOV 


#1,R1 


000000 




ADD 


fO.RI 


TILOP: 


ROL 


R1 






DEC 


R3 






BNE 


TILOP 


000012 




NOV 


#10. .R3 


TIL0P1 : 


ROL 


R1 






DEC 


R3 






BNE 


TIL0P1 


001736 




NOV 


R1 ,STO 



FOR DIVIDE BY 10 
CLEAR HIGH WORD 

DIVIDE BY 10 (UDA RECEIVE TINEOUT) 
TO GET VALUE TO USE AS LTO 
DO DIVIDE 

STORE IT FOR US LATER 
NAKE SURE AT LEAST 1 



;POINT TO CONN CHAR 

;6ET SHORT TINEUUT UORD 

.-CLEAR UORD 

:FOR LOG CALCULATION 

:INIT COUNTER 

.-CLEAR CARRY 

.-ROTATE (NULT BY 2) 

.-DECRENENT COUNTER 

.-KEEP GOING TILL DONE 

.-SHIFT COUNT FOR NILSEC CONVERSION 

:GET NUMBER IN NlLSECS 

;G0 TILL DONE 

.-AGAIN 

.-STORE IT 



SET UP HEADER AND DATA PREAMBLE LENGTHS 



104207 001525 

104670 000005 002006 

103200 177400 002006 

104673 000005 
110703 

103203 177400 

104030 002005 
114001 



NOV fSCR.RO 

NOV DATA(RO).DPREA 

BIC fHlBYTE.DPREA 

NOV HEA0(R0).R3 

SUAB R3 

BIC fHIBYTE.R3 

NOV R3.HPREA 

CLR R1 



POINT TO CHARACTERISTICS BLK 

DATA PREAMBLE LENGTH 

CLEAR OUT HIGH BYTE GARBAGE 

HEADER PREAMBLE LENGTH 

GET INTO LOU BYTE 

CLEAR OUT HIGH BYTE GARBAGE 

STORE IT 

FOR NO ERROR 
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00520A 104203 001525 



104637 000002 
103207 170377 
104070 002007 



1 

I 

4 
5 
6 
7 

8 005206 

9 005210 
10 005212 
11 

12 
13 

14 005214 

15 005216 

16 005220 
17 

18 
19 

20 005222 

21 005224 

22 005225 

23 005226 

24 005227 

25 005230 

26 005232 
27 

28 
29 

30 005234 

31 005236 

32 005237 

33 005240 

34 005241 

35 005242 

36 005244 



104637 
103207 
104070 



104637 
110607 
110607 
110607 
110607 
105207 
104070 



104637 
110607 
110607 
110607 
110607 
103207 
104070 



000003 
170377 
002010 



000002 



170377 
002011 



000003 



170377 
002012 
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SET UP STARTING ADDRESS BITS 



nov 


#SCR,R3 


LBN 




nov 


STLBN(R3),R0 


6IC 


fSTCLR.RO 


NOV 


RO,ST.LBN 


RBN 




NOV 


STRBN(R3),R0 


BIC 


#STCLR«RO 


NOV 


RO«ST.RBN 


XBN 




NOV 


STXBN(R3),R0 


ROR 


RO 


ROR 


RO 


ROR 


RO 


ROR 


RO 


BIC 


#STCLR,RO 


NOV 


RO.ST.XBN 


D8N 




NOV 


STDBN(R3),R0 


ROR 


RO 


ROR 


RO 


ROR 


RO 


ROR 


RO 


BIC 


fSTCLR^RO 


NOV 


RO.ST.DBN 



SEO 71 



.POINT TO SUBUNIT CHAR BLOCK 



;GET THE WORD 
; CLEAR THE REST 
; STORE IT 



;GET RBN WORD 
.•CLEAR THE REST 
.STORE IT 



;GET THE UORO 



:GET INTO THE RIGHT NIBBLE 
.•CLEAR THE REST 
.-STORE IT 



;GET THE WORD 



;GET INTO THE RIGHT NIBBLE 
.•CLEAR THE REST 
; STORE IT 



U0AFS2 > FORMATTER DNACR XOA.01 

INITIALIZATION OVERLAY (CD 



1 
2 
3 

4 0052A6 

5 005250 

6 005252 

7 005254 

8 005256 



104203 
104632 
103202 
100632 



001512 
000002 
177400 
000002 
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CLEAR ECC THRESHOLD 



mv 

NOV 
BIC 
NOV 

RETURN 



/rCR«R3 

ERRSYPI(R3),R2 

#HIBYTE.R2 

R2,ERRSYfKR3) 



;POINT TO CHARACTERISTICS 
;GET THE WORD 
; CLEAR THE THRESHOLD 
; STORE IT BACK 
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1 

1 

5 
C 
X 
3 

L 
■f 

J 
A 

W 


005260 
005^6? 


104205 

1 w*ff Cl/^ 


001750 


7 


114000 


wc ■ v*v 


B 

0 


005264 


104200 


000001 

www 1 


9 


005267 


104302 


001 


10 


005271 

wye • 1 






11 

1 1 








15 

f c 






001414 




005277 


104237 






005300 






15 


005301 


104302 


001412 

W 1 "t 1 c 


16 


005303 


060004 




17 


005304 


115001 




18 


005305 

wy .^vy 






19 


005307 


115400 


001371 

w 1 y 1 




005311 


106300 


002165 


C I 


005314 
















005320 


114000 


001371 

W U f 1 




005322 


104231 








104137 




CD 


005324 


060005 






005325 

JC V 


115001 




28 


005326 






29 


005330 


1 1 5400 


002164 


30 


005332 


106300 


002165 


31 


005335 






32 


005337 






33 


005341 


1 1 4000 


002164 


34 


005343 


104204 


001 503 


35 


0053(45 


104641 


000000 

www 


36 


005347 


103201 


170000 

1 » wvw 


37 


005351 


106301 


001413 


38 


005353 






39 


005355 






40 


005357 


104202 


00000 1 


41 


005361 






42 


005363 


104643 


000000 

www 


43 


005365 


103203 


007777 




005367 


110703 




45 


005370 


110603 




46 


005371 


110603 




47 


005372 


110603 




48 


005373 


110603 




49 


005374 


114007 




50 


005375 


102203 


000002 


51 


005377 






52 


005401 


115407 




53 


005402 


102203 


000004 


54 


005404 






55 


005406 


115407 




56 


005407 


102203 


000010 


57 


005411 







FIND ! 



001412 



001371 



002164 



6ETUNT: MOV 
CLR 
NOV 

G0VER1: NOV 
CALL 
BNE 

COVER: NOV 
NOV 
NOV 
NOV 
XFC 
TST 
BEQ 
INC 
CNP 
BNI 
BR 

6SKIP1: CLR 
NOV 
NOV 
XFC 
TST 
BEQ 
INC 
CNP 
BNI 
BR 

CSKIP2: CLR 
NOV 
NOV 
61 C 
CNP 
BNI 
BNE 
NOV 
BR 

GSKIP3: NOV 
BIC 
SUA8 
ROR 
ROR 
ROR 
ROR 
CLR 
BIT 
BEG 
INC 
BIT 
BEQ 
INC 
BIT 
BEQ 



I 6 
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SE£> 73 



INTERCONNECT FOR DESIRED UNIT 



fONBUF <R5 


POINT TO STARTUP INFO 


COUNT 


'FOR INTERCONNECT INIT 


#1 .UNIT 


•INIT INTERCONNECT 


UNIT.R2 


'GET INTERCOMtfECT INTO R2 


STATVL 


'ANY DRIVE THERE "t"*"* 


NCTHER 


:NOPE - TRY NEXT ONE 

' ww> b 1 n V v^b n ■ W*Vb 


#CR.GST.R3 
(R3}«'.R0 


:FOR GET STATUS 


'6ETC0NNAND ADDRESS 


(R3)«',R1 , 


•GET CONHAND SIZE 


UNI7.R2 


■GET INTERCONNECT 

r Wb > An * bl VWfwvb V 1 


SEND 


'ISSUE GET STATUS COMMAND 


R1 


■SUCCESSFUL ■» 

t wUVVbwW Wb * 


6SKIP1 


■YUP - SKIP RETRY 


UN.ERI 


■INC COUNT 

p4«vb WW*« * 


RETRY. UN. ERI 


■D(ME ALL RETIES "* 


NOTHER 


■YUP 


GOVER 




UN.ERI 


:FOR ERROR CLEAR 


(R3)*.R1 


■GET RECEIVE BUFFRE 

r Wb I nb Vb A V b 0W> ' *%b 


(R3),R0 


■GET BUFFER LEPKTH 

1 Wb ■ 1#W ■ b** kb*W I 


RCV 


'RECEIVE SDI RESPONSE 

r*«bVbATb WfA f«bW« WWWb 


R1 


■SUCCESSFUL "* 

V wWbVbWwV Wb 


GSKIP2 


:YUP - SKIP RETRY 


COUNT 


:INC ERROR COUNT 


RE TRY, COUNT 


;DOI^ ALL RETRIES ? 


NOTHER 


;YUP 


GOVER 


;TRY AGAIN 


COUNT 


;FOR COUNT CLEAR 


#ST,R4 


;POINT TO STATUS BUFFER 


UID(R4),R1 


;GET UNIT NUMBER FROM STATUS 


#HD.CLR,R1 


; CLEAR GARBAGE 


UNN0«R1 


;IS IT THE ONE ? 


MITHER 


;NOT EVEN A POSSIBLE SUBUNIT 


6SKIP3 


;N0 - SEE IF A SUBUNIT 


#1,R2 


:SET SUBUNIT NASK 


6D0NE 


;AND EXIT 


NASK(R4),R3 


;GET SUBUNIT NASK 


#L0,R3 


r CLEAR GARBAGE 


R3 


:6ET INTO LOU BYTE 


R3 


•TO GET IN LOU NIBBLE 


R3 


;T0 GET IN LOU NIBBLE 


R3 


;T0 GET IN LOU NIBBLE 


R3 


-TO GET IN LOU NIBBLE 


RO 


•CLEAR COUNTER 


#BIT1,R3 


•ANYTHING THERE ? 


GSKIP 


;NOPE - ONLY 1 


RO 


YUP - iNCRENENT COUNTER 


«BIT2,R3 


ANYTHING HERE ? 


GSKIP 


NOPE - ONLY 2 


RO , 


■INC OUNTER 


«BIT3,R3 


ANYTHING HERE ? 


GSKIP 


•NOPE 
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INITIAL 


IZATION OVERLAY 


(61) 


58 




115407 




59 








60 




107301 


001413 


61 








62 


0054?1 


104303 


001413 


63 


005^?3 


104641 


000000 


6A 


OOS425 


103201 


170000 


65 


005427 


107013 




66 


005430 


104202 


/\A AAA 4 

000001 


67 


005432 


105202 


A A A AAA 

000000 


68 


005434 


110202 




69 


005435 


1 1 7403 

lit "tv^ 




70 


005436 






71 


005440 


105202 


A A AAA A 

000000 


72 


00544? 


11020? 




73 


005443 


110202 

1 1 VfcVfc 




7A 


005444 


110202 

1 1 VfcVfc 




75 


005445 


110202 




76 


005446 


104020 


AA4 J 

001473 


77 


005450 


101020 

I V 1 Wfc V 


AAA f A A 

001500 


78 


00545? 






79 


005454 


104302 


AA4 4 4*% 

001412 


80 


005456 


105022 




81 


005457 


104020 


001412 


82 


00S461 


114000 


AA4 *y 

001371 


63 


005463 


114000 




84 


005465 


106202 


000010 


85 


005467 






86 


005471 


104652 


000002 


87 


005473 


104201 


000007 


88 


005475 
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INC 


A A 

30 


GSKIP: 


ADD 


R0/R1 


SUB 


UNNO.RI 




Bnl 


NOTHcR 




nOv 


1 ■fctfciA A 9 

UNNQ#R3 




HOv 






BIC 


#nD.CLR,Rl 




SUB 


Rl ,Rd 




HOV 


* 1 ,Rc 




A A A 

ADD 


»0,n2 


SFTRPT: 


A Al 

ROL 






AP ^ 

DEC 


R3 




BNE 


5r TRPT 


GDONE : 


AAA 

ADD 


#0,R2 




ROL 


R2 




r\ Ai 

ROL 


R2 




ROL 


aO 

R2 




ROL 


ao 
R2 




PWV 


ao /"CDxi 
R<:»65k*i 




BIS 


R2,ACCH 




RETURN 


1 14J ff T a 0 
UNlT.Rf 
ao a6 


NOTHER: 


MAI J 

no* 




AAA 

ADD 




Hnu 

nuv 


D? IIUTT 




CLR 


UN.ERI 




CLR 


COUNT 




CHP 
BPL 


#8.,R2 
G0VER1 




HOV 


2(R5),R2 




nov 


#7,R1 




CALL 


ERRNNT 



SEQ 74 



YUP 

ADD TO UNIT NUMBER 

GET RELATIVE OFFSET FROM GIVEN UNIT NUP<BER 

IF NEGATIVE THEN NOT IN THE RANGE 

GET DESIRED 

GET ORIGINAL 

CLEAR SUBUNIT MASK 

FIGURE OUT WHICH SUBUNIT 

INIT SUBUNIT HASK 

TO CLEAR CARRY 

SHIFT LEFT 

DECRENTN COUNTER 

REPEAT SHIFT 

CLEAR CARRY 

HAVE TO ROTATE 

4 TIMES TO DO A 

SWAP NIBBLE 

FOR SUBUNIT MASK 

STORE MASK IN SUBUNIT CHAR COHKAND 
SET IN FOR CHANGE MODE COMMAND 
RETUHN 

;GET CURRENT INTERCONNECT 

iNEXT PORT 

;SAVE BACK 

:FOR RESTORE 

; CLEAR ERROR COUNT 

;ALL DONE ? 

;NOPE - TRY THIS INTERCONNECT 
;UNIT SEARCHING FOR 
;SIGNAL NON-EXISTANT UNIT 
; ERROR RETURN 



K 6 
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INITIALIZATION OVERLAY (G1) 



1 
2 
3 

5 
6 

7 
8 

9 

10 

r. 
12 



005477 
005502 
005504 
005506 
003510 
005512 
005514 
005516 
005520 



104207 
104677 
102207 



10220C 020000 001703 CKSS: 



001512 
000001 
100000 



104201 000026 



N0576: 
CKERR: 



CHECK VALIDITY OF FORMAT MODE 



BIT 

BEQ 

NOV 

NOV 

BIT 

BEQ 

RETURN 

NOV 

CALL 



#N0DE,FLAG1 

N0576 

«CR«RO 

SSBIT(RO),RO 

#SS,RO 

CKERR 

«22.,R1 
ERRNNT 



WHAT NODE DO UE WANT ? 
512 - ALL DRIVES HANDLE IT 
POINT TO CHARACTERISTICS 
GET SSBIT WORD 
CHECK SS BIT 

DRIVE ONLY ALLOWS 512 - ERROR 

RETURN 

ERROR 22 

DIE 
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INITIALIZATION OVERLAY (G1> 



1 
2 
3 
A 

5 005522 

6 005524 

7 005526 

8 005530 

9 005532 

10 00553A 

11 005536 

12 005540 

13 005542 



104302 C01412 



INITIALIZATION ROUTINE 



INITL: 



nov 

CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
RETURN 



UNIT.R2 

INITIT 

GETUNT 

ONLIN 

6STATS 

CKSS 

RECAL 

CONINT 



SELECT UNIT 
INIT DRIVE 

GET THE SDI INTERCONNECT 
BRING IT ONLINE 
GET STATUS 

CHECK VALIDITY OF FORPMT MODE 
RECALIBRATE 

COMPUTE DISK CONSTANTS 
AND STOP 



n 6 
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DBN/XBN 


FORMAT 


OVERLAY 


<F1) 










1 
2 












.SBTTL 


DBN/XBN FORMAT OVEI 


3 
4 
5 












FORMAT 


D6N AND XBN AREAS 


6 

7 
8 


AAC C/ / 

005544 










DMOVLt 


r 1 , START 


9 
lO 


AA/ A4 / 

004014 


1 Ay ^AA 

104200 


AAAAAA 

000000 


AA4 Z TZ^ 

001636 




MOV 


•PI «CUROVL 


11 


AA/ A4 7 

004017 


4 A/ ^AA 

104200 


AAAy AA 

000400 


AA^4 74 

002171 




MOV 


iicc/*cr^ pcy*CT9 

f SECSI6,ScCSIZ 


12 


AA^ A^l 

004022 


4 A4 ^ AA 

101200 


A AAA 4 A 

000010 


AA4 7A^ 

001 702 




BIS 


fDBN«FLAG 


13 


AA^ A'lC 

004025 










y* Ai ■ 

CALL 


AWP ABM 

DXFORM 


14 


AA^ A*)^ 

004027 


4 A/ 9AV 

104303 


AA4 ^^d. 

001 776 






MAI/ 

MOV 


p y* TBet# bV 

FCTREV,R3 


15 


AAy AT4 

004031 


107303 


AA1 

001 722 






IB 

SUB 


r/*uT Bs 

FCNT«R3 


16 


AA/ A9Y 

004033 


4 ACTAT 

10S303 


AA04 

0021 36 






ADD 


ERRCNT,RS 


17 


AA^ ATC 

004035 


4 A/ A7A 

104030 


AAOAA4 

002001 






MA(i 

MOV 


bV f^BBftB 

R3,DBBAD 


18 


AAi AT7 

004037 


4 4/ AAA 

114000 


AA'^4 

0021 36 






CLR 


ERRCNT 


4 n 

19 


A A / A / 4 

004041 


4 Ay 7 AA 

104300 


AA4 

001 722 


AA4 

001 776 




MAI f 

MOV 


FCNT,FCTRcV 


20 


OOhOmm 


4 AT^AA 

103200 


AAAA1 A 

000010 


AAI 7AO 

001 702 




BIC 


ffOBN,rLA6 


21 


OOmOm^ 










CALL 


f^VC ABM 

DXrORM 


22 


AAy AC 4 

004051 


4 A/ TAT 

104303 


AA1 77X 

001 776 






MOV 


FCTRcV.RS 


23 


004053 


107303 


001722 






SUB 


FCNT,R3 


24 


004055 


105303 


002136 






ADD 


ERRCNT «R3 


25 


004057 


4 A/ A9 A 

104030 


AA^AA*^ 

002002 






MOV 


BY wBBftB 

R3«XBBAD 


26 


004061 


4 4/ AAA 

114000 


AA'^4 

0021 36 






CLR 


ERRCNT 


27 


AA J A^ 9 

004063 


4 A/ ^A4 

104201 


AAAAAA 

000006 






MOV 


Jir 9 B4 

#F3.R1 


28 


AAy AXC 

004065 










CALL 


NcXT 


29 
30 


AAy AX 7 

004067 


i Ay OA7 

104207 


AAi COC 

001525 




DXFORM: NOV 


f SCRfRO 


31 


AA/ A71 


i AOOAA 

102200 


AAAA1 A 
000010 


AA17A0 

001 702 




BIT 


ifl\Bftl C( 

fDBNfFLAu 


TO 

3c 


AAy A7/ 










BEQ 


XBNIT 


33 


AAy A7X 

004076 


1 A/ A7T 

104673 


AAAAOO 

000022 






MOV 


PBNCTLCROi «R3 


34 


AAy 1 AA 

004100 


1 1 A7AT 
110703 








SWAB 


bT 

R3 


35 


AA/ i A1 


i ATOAT 

103203 


1 77/ AA 

1 f f400 






BIC 


jfumwTC BT 
fHlDTlC «K3 


36 


AAy ^ AT 

004103 


1 Ay ATA 

1 04030 


AA01 / T 

002143 






NOV 


BT ^UT^VI 

k3,CNTCTL 


3r 


AAy 1 AC 
OUhi 05 


102200 


AAOAAA 
002000 


AAI 7AO 

001 702 




BIT 


f8STuS*rLA(> 


38 


AA/ 1 1 A 

OOhHO 










BNE 


m/ 
SKIr4 


39 


OOh lie 


i A/ OAA 

1 0m2UU 


AAAOAA 

0002UC; 


AA01 AT 

0021 03 




MOV 


ill Ofi D^UT 




UUmI 1 5 


1 ^^f\^u^ 
IImOOU 


AAI 7ZT 

UU1 f 43 






CLR 


rbiLNI 


Ml 


OOhII f 










CALL 


vXr Lru 




OVMlCl 


1 A/ OAA 


A1 A/ CC 

01U455 


AAI yna 
QUI rUo 




MOV 


wrpNBUr ,BAurBN 


h3 


AA/ 1 OZ 


1 A/ TAA 

1043UU 


A1 A/ 7T 

01 U4 r 3 


AAI 700 

001 f CC 




MOV 


PDNBUr ▼151 2 « r CNI 




AA/ 1 07 


1 A/ TAA 

104300 


A1 A/ 7T 

01 04 f 3 


AAI 77Z. 

001 776 




MOV 


PBNBuF ▼ C 51 2 « F C T Nc V 




AA/ 1 10 

0OmI3c 










BEQ 


SKlrlV 


MO 


AA/ 1 1/ 


1 1CZAA 


AAI 7ZT 

001 f 43 






INC 


r CTCNl 


Mr 


AA/ 1 Til 










CALL 


B W C ^ D/* 

DXFCPG 


48 


AA/ 1 / A 










BR 


ff B/ 

SKIP4 


MV 


AA/ i / O 


1 A1 OAA 

101200 


AAAAAO 
00U0tl2 


AAI 7AO 

001 7Q2 


SKIP19: 


BIS 


JfC^TCMT CI 

«r CTcM1«FLAu 


50 


AA/ i / C 

0Om1m5 


1042U0 


1 / AAAA 

14000Q 


AA01ZC 

002145 


SKIP4: 


MOV 


ifiJB BfiAi ilA ^1 IB 

f HD . DSN , HD . CUR 


CI 


AA/ 1 CA 










CALL 


raUMDoN 




WH 1 JC 










BR 


SKI PI 


53 


004154 


104200 


120000 


002145 


XBNIT: 


NOV 


#HD.XBN.HO.CUR 


54 


004157 


104670 


000021 


002143 




NOV 


X6NCYL(R0),CNTCYL 


55 


004162 










CALL 


NUMXBN 


56 


004164 


104140 


001576 




SKIP1 : 


NOV 


(R4),H0L0BN 


57 


004166 


104240 


001566 






NOV 


(R4)*,CURBN 



(F1) 



; OVERLAY #1 

;MAKE SECTOR SIZE 512 FOR D/XBN 

;SET DBN FORMAT 

; FORMAT DBN AREA 

.•STARTING FCT ENTRY COUNT 

; TOTAL BAD IN DBN AREA 

;GET FINAL TOTAL 

: STORE IT FOR STATS 

:FOR CLEAR 

;FOR BAD BLOCK COUNT 

;D0 XBN AREA 

; FORMAT XBN AREA 

.•STARTING FCT ENTRY COUNT 

.•TOTAL BAD IN XBN AREA 

;GET FINAL TOTAL 

.•STORE IT FOR STATS 

;FOR CLEAR 

;FCT DLL OVERLAY 

.BRING IN NEXT OVERLAY 

POINT TO CHARACTERISTICS BLOCK 

DO DBN AREA ? 

NO - DO XBN AREA 

GET NUMBER OF CYLS TO FN 

GET INTO LOW BYTE 

CLEAR HI BYTE 

SET UP COUNTER 

DOING BEST GUESS ??? 

YES - SKIP FCT SET UP 

FOR P8N COUNT INIT 

FOR INIT FCT READ 

READ IT IN 

ADDR OF BAD PBN LIST 

GET COUNT OF USED ENTRIES 

STORE IT FOR STAT COMPUTATION 

IF ZERO - THEN NO ENTRIES 

START WITH SECOND FCT BLOCK 

BRING IT IN 

SKIP NO ENTRY STUFF 

SET EMPTY FLAG 

GET DBN HEADER CODE 

GET DBN OF FIRST BLOCK ON LAST CYLINDER 

SKIP XBN SETUP 

GET XBN HEADER CODE 

GET CYLINDERS IN XBN AREA 

GET XBN OF FIRST BLOCK ON LAST XBN CYL 

LO ORDER FIRST BLOCK NUN TO 00 

AND NAKE IT CURRENT NUMBER 
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DBN/XBN 


FORMAT 


OVERLAY 


(F1) 










58 


004170 


104140 


0015''7 






MOV 


(R4),H0LDBN^1 


59 


004172 


104140 


001567 






MOV 


(R4),CURBN^1 


60 


004174 


104207 


001525 




SLEEK: 


MOV 


#SCR,R0 


61 


004176 


104670 


000002 


002147 




MOV 


GRPCYL(RO),GRPCNT 


62 


004201 


103200 


177400 


002147 




BIC 


#HIBYTE,GRPCNT 


63 


004204 


104300 


002147 


002146 




MOV 


GRPCNT,CUR6RP 


6A 


004207 


117400 


002146 






DEC 


CURGRP 


65 


004211 


104300 


001604 


001551 


SLEEK2: 


MOV 


CYLNUN,ISEEK*1 


66 


004214 


104300 


001605 


001552 




MOV 


CYLNUM*! ,ISEEK*2 


67 


004217 


104300 


002146 


001553 




MOV 


CURGRP, I SEEK«^3 


68 


004222 


103200 


100000 


001552 




BIC 


#SS,ISEEK^2 


69 


004225 










CALL 


SEEK 


70 


004227 


115001 








TST 


R1 


71 


004230 










BMI 


SKERR 


72 


004232 


104207 


001525 






MOV 


#SCR,RO 


73 


004234 


104673 


000003 






MOV 


TRKGRP(RO) ,R3 


74 


004236 


103203 


177400 






BIC 


#HIBYTE,R3 


75 


004240 


104030 


002150 






MOV 


R3,TRKCNT 


76 


004242 


117403 








DEC 


R3 


77 


004243 


104030 


001565 






MOV 


R3,CURTRK 


78 


004245 


104201 


000047 




SKIP3: 


MOV 


#G7,R1 


79 


004247 










CALL 


PAGE 


80 


004251 


104304 


002006 




SKIP7: 


MOV 


DPREA,R4 


81 


004253 


104303 


002005 






NOV 


HPREA,R3 


82 


004255 


104307 


002004 






MOV 


INSTAR.RO 


83 


004257 


104301 


001565 






MOV 


CURTRK.RI 


84 


004261 


104302 


002171 






MOV 


SECSIZ,R2 


85 


004263 


104205 


015763 






MOV 


#INAGE,R5 


86 


004265 


060001 








XFC 


FORMAT 


87 


004266 


115001 








TST 


R1 


88 


004267 










BEQ 


SKIP6 


89 


004271 


115400 


001371 






INC 


UN.ERI 


90 


004273 


106300 


002165 


001371 




CMP 


RETRY.UN.ERI 


91 


004276 










BMI 


FERR 


92 


004300 










CALL 


INITPT 


93 


004302 










CALL 


CLEAR 


94 


004304 










CALL 


SEEK 


95 


004306 










BR 


SKIP7 


96 


004310 


114000 


001371 




SKIP6: 


CLR 


UN.ERI 


97 


004312 










CALL 


DXCHEC 


98 


004314 


1 1 7400 


001565 






DEC 


CURTRK 


99 


004316 


104204 


001576 






MOV 


#H0LDBN,R4 


100 


004320 


104203 


001606 






NOV 


#SECTRK,R3 


101 


004322 










CALL 


DSUB 


102 


004324 


104300 


001576 


001566 




MOV 


HOLDBN,CURBN 


103 


00^" 7 


104300 


001577 


001567 




NOV 


H0LDBN*1«CURBN^1 


104 


004J32 


1 1 7400 


002150 






DEC 


TRtCCNT 


105 


004334 










BNE 


SKIP3 


106 


004336 


117400 


002146 






DEC 


CURGRP 


107 


004340 


117400 


002147 






DEC 


GRPCNT 


108 


004342 










BNE 


SLEEK2 


109 


004344 


1 1 r400 


AA^4 / V 

002143 






DEC 


CNTCYL 


no 


004346 


060022 








XFC 


UPDATE 


111 


004347 


104204 


001604 






NOV 


#CYLNUH,R4 


n2 


004351 


104203 


002151 






MOV 


#0NE.R3 


113 


004353 




002143 






CALL 


DSUB 


114 


004355 


115000 






TST 


CNTCYL 



;HI ORDER FIRST BLOCK NUM TO DO 
:AND NAKE IT CURRENT NUMBER 
:POINT TO CHARACTERISTICS BLK 
;LOAD GROUPS/CYL 
.'CLEAR OUT HIGH GARBAGE 
:GET GROUP NUMBER BY 
:DECRENENTING 

;GET LO ORDER WORD OF CYLINDER NUMBER 

;LOAD HIGH ORDER WORD OF CYL NUM 

;LOAD GROUP NUMBER 

;NAKE SURE IT IS IN 512 NODE 

;SEEK TO CURRENT CYL NUN 

;ANY ERRORS ? 

;YUP - QUIT 

:POINT TO CHARACTERISTICS BLOCK 

;LOAD TRACKS/GROUP 

; CLEAR OUT HIGH GARBAGE 

; STORE IN COUNTER 

; TRACK NUNBER IS ONE LESS 

.•RESET CURRENT TRACK NUMBER 

.-FORMAT SETUP OVERLAY 

;D0 IT 

;OATA PREAMBLE LENGTH 

.•HEADER PREAHBLE LENGTH 

.•POINT TO FORNAT INA6E START POINT 

.•TRACK TO FORNAT 

.•SECTOR SIZE IN UORDS 

.•RECIRCULATION POINTER 

.-FORNAT THE TRACK 

.-ANY ERRORS ? 

;N0 - DO CHECK PASS 

:INCRENENT IT 

.-DONE ALL RETRIES ? 

;YUP - ERROR 

.•REINIT 

.•DRIVE CLEAR 

; RE-SEEK AND GROUP SELECT 
: RETRY FORNAT 
;FOR STORE 
:D0 CHECK PASS 
.-DECREMENT IT 

.•PREPARE FOR BEGINNING BLOCK DECRENENT 
.•DECRENENT BY SECTORS/TRACK 
.•DO DECRENENT 

;L0 ORDER NEW BLOCK NUMBER 

;HI ORDER NEW BLOCK NUMBER 

.-DECRENENT IT 

:N0 - DO NEXT TRACK 

.•DECRENENT GROUP NUNBER 

.•DECRENENT IT 

;N0 - DO NEXT GROUP 

.•DECRENENT IT 

.•UPDATE PROGRESS INDICATOR 

; PREPARE FOR CYL NUN DECRENENT 

.-DECRENENT BY ONE 

;D0 SUBTRACT 

;ARE UE DONE ? 
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DBN/XBN FORMAT OVERLAY (F1) 



115 
116 
117 
118 
119 
120 
121 
122 



004357 
004361 
004363 
004364 
004366 
C04370 
004372 
004374 



104012 
104201 

104302 
104201 



000010 

001604 
000012 



FERR: 



SKERR: 
OXERR: 



BNE 

RETURN 

HOV 

NOV 

BR 

NOV 

HOV 

CALL 



SLEEK 

R1*R2 

#8.,R1 

DXERR 

CYLNUN,R2 

#10.. R1 

ERRNNT 



.■DONE ? NO - DO NEXT CYLINDER 

;YES • ALL DONE 

;6ET XFC FAILURE CODE 

.-SET FORNAT ERROR 

.•CYLINDER WHICH FAILED ON 
.-SEEK ERROR 
.•ERROR RETURN 



C 7 
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OBN/XBN FORMAT OVERLAV (F1> 



lEO 80 



1 



4 
5 
6 
7 
8 
9 



004376 
004377 
004401 
004403 
004406 
004411 
10 004412 
11 
12 
13 
14 
15 
16 

17 004414 

18 004416 

19 004417 

20 004421 

21 004423 

22 004425 

23 004427 

24 004431 

25 004433 

26 004435 

27 004437 

28 004441 

29 004443 

30 004445 
31 

32 
33 
34 
35 
36 

37 004447 

38 004452 

39 004454 

40 004456 

41 004460 

42 004462 

43 004464 

44 004466 

45 004470 

46 004472 

47 004474 
48 

49 
50 
51 
52 

53 004476 

54 004477 

55 004501 

56 004503 

57 004506 



PAGE IN NEW FCT BLOCK 



104201 000033 

104200 000200 002164 
104200 010455 001706 



DXFCPG: 



PUSH 

NOV 

CALL 

NOV 

NOV 

POP 

RETURN 



RO 

#G2,R1 
PAGE 

#128., COUNT 

#PBNBUF,BADPBN 

RO 



DLL OVERLAY 
EXECUTE OVERLAY 
FOR INIT 

FOR POINTER RESET 
RESTORE RO 
RETURN 



104673 
110703 
103203 
104030 
114000 
104204 
104203 

104641 
105301 
100641 
104203 



000022 

177400 
001410 
001411 
001410 
001614 

000001 
002012 
000001 
001606 



COMPUTE NUMBER OF FIRST DBN ON LAST DSN TRACK 
RO -> CHARACTERISTICS BLOCK 



NUNOBN: MOV 
SWAB 
BIC 
MOV 
CLR 
NOV 
NOV 
CALL 
NOV 
ADD 
NOV 
NOV 
CALL 
RETURN 



DBNCYL(R0),R3 
R3 

#HIBYTE,R3 

R3.TEHP 

TENP+1 

#TENP,R4 

fSECTCY,R3 

DNUL 

1(R4)«R1 

ST.DBN.RI 

R1,1(R4) 

#SECTRK,R3 

DSUB 



GET NUMBER OF CYLINDERS IN DBN AREA 

GET INTO LOW BYTE 

CLEAR OUT OTHER INFO 

NOVE TO TENP AREA 

CLEAR FOR STORE 

POINT R4 AT TENP AREA 

POINT TO NUN OF SECTORS/CYLINDER 

MULTIPLY TO GET SECTORS BEFORE LAST CYL 

GET HIGH ORDER 

ADD HIGH ORDER STARTING DBN 

STORE BACK 

WANT FIRST DN OF LAST TRACK 
SUB TO GET IT 



104670 000021 001410 

114000 001411 

104204 001410 

104203 001614 

104641 000001 

105301 002011 

100641 000001 

104203 001606 



COMPUTE NUMBER OF FIRST XBN ON LAST XBN TRACK 
RO -> CHARACTERISTICS BLOCK 



NUNXBN: NOV 
CLR 
NOV 
NOV 
CALL 
NOV 
ADD 
NOV 
NOV 
CALL 
RETURN 



XBNCYL(RO),TENP 

TEMP*1 

#TEMP,R4 

fSECTCY,R3 

DNUL 

1(R4),R1 

ST.XBN,R1 

R1J(R4) 

fSECTRK,R3 

DSUB 



GET NUNBER OF CYLINDERS IN XBN AREA 

CLEAR FOR STORE 

POINT TO TEMP AREA 

POINT TO SECTORS/CYLINDER 

MULTIPLY TO GET SECTORS IN XBN AREA 

GET HIGH ORDER 

ADD HIGH ORDER STARTING XBN 

STORE BACK 

WANT XBN OF LAST TRACK 
SUB TO GET IT 



CHECK PASS 



114000 001711 
114000 001704 
102200 000600 001702 



DXCHEC: PUSH 
DXCH: CLR 
CLR 
BIT 
BEQ 



RO 
ERR 

fcRFLAG 

#NAN'JrDL(.,FLAG 
CSKIP 



SAVE PTR TO CHARACTERISTICS BLK 

FOR ERROR COUNT RESET 

CLEAR RE-FORNAT FLAG 

FCT AVAILABLE ? 

NO - DO EXTENSIVE READ 
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FORMAT 


OVFftt AY 


(F1 ) 












104200 


000001 

WwWW 1 


002140 

WWb 1 ^w 




nov 


S9 


004513 


104200 


000005 


002141 

WWfc 1 ^ • 




nov 


M\ 
ou 








002142 

VwC 1 




HOV 

nw • 


u 1 


004521 










BR 


62 


004523 


104200 


000003 

WW WW w ^ 


002140 


CSKIP: 


NOV 




004526 


104200 


000024 

WW Wfc~ 


002141 

WWfc 1^1 




NOV 




004531 


104300 


002141 

WWfc ■ ^ 1 


002142 

WWfc ■ ~mm 


CSKIP2: 


NOV 


65 


004534 








CALL 


66 


004536 


104302 


001412 




CSKIP1 : 


NOV 


67 


004540 


060012 

Www ■ b 








XFC 


68 


004541 


104302 


002171 






PK>V 


69 


004543 


104300 


001606 

WW 1 www 


002137 




NOV 


70 


004546 


104205 


013022 






NOV 


71 


004550 


104207 


001373 




AGAIN: 


NOV 


72 


004552 


104653 


000002 






NOV 




004554 










BEQ 


74 


004556 


100673 

1 WW ■ ^ 


000005 

WW vww^ 






NOV 


75 


004560 


104653 


000000 






HOV 


76 


004S62 


100673 


000003 

WVr w w w^ 






NOV 


77 


004564 


104653 


000001 

wwvww ■ 






NOV 


78 


004566 


100673 


000004 

wwwww ^ 






NOV 


79 


004570 


104203 


010000 

W 1 WWWW 






NOV 


80 


004572 


100673 


000002 

WWWWWfc 






NOV 


81 


004574 


104203 


001400 






NOV 


82 


004576 


100673 


000006 

WWWW WW 






NOV 


83 


004600 

WW 


104207 

1 w~<* W ■ 


101 ■'73 




REA01 : 


NOV 




004602 


104203 


100000 

■ wwwww 






NOV 


85 


004604 


100673 


000000 






NOV 


86 


004606 


060002 

vw w vs* 








XFC 


87 


004607 


1 1 5001 








TST 


88 


004610 










BNE 


89 


004612 


104307 


001374 






NOV 


90 


004614 


102207 


010000 






BIT 


91 


004616 










BNE 


92 


004620 


104207 


002124 






NOV 


93 


004622 


060006 








XFC 


94 


004623 


1 1 5001 








TST 


95 


004624 










BEQ 


96 


004626 








RRERR: 




97 


004626 


103200 


010000 


001374 




BIC 


98 


004631 


104654 


000003 






NOV 


99 


004633 


102204 


100000 






BIT 


100 


004635 










BNE 


101 


004637 


101204 


100000 






BIS 


102 


004641 


100654 


000003 






NOV 


103 


004643 


115400 


001711 






INC 


104 


004645 


115400 


002156 






INC 


105 


004647 


105205 


000004 




NOERR: 


ADD 


106 


004651 


117400 


002137 






DEC 


107 


0046S3 










BNE 


108 


004655 


117400 


002140 






DEC 


109 


004657 










BNE 


110 


004661 


115000 


001711 






TST 


111 


004663 










BEQ 


112 


004665 


104204 


013022 






NOV 


113 


004667 


104643 


000003 




HERE: 


NOV 


114 


004671 


102203 


100000 






BIT 
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SEO 81 



«1,N 

#5,N1 

N1 ,NN1 

CSKIP2 

«3.N 

»20.«N1 

N1 .NN1 

FIXIT 

UNIT,R2 

SIP 

SECSIZ,R2 

SECTRK^SECCNT 

«CNDBUF,R5 

«RDBLK,RO 

RB.CND(R5),R3 

NOERR 

R3,RU.CND(R0) 

RB.LOW(R5),R3 

R3,RU.L0W(R0) 

RB.HI(R5),R3 

R3,RU.HI(R0) 

«RDBUF,R3 

R3,RU.BUF(R0) 

fHSLIN-1,R3 

R3,RU.DUN(R0) 

f<BIT15!RDBLK>,R0 

fRDCND,R3 

R3,RU.STAT(R0) 

READ 

R1 

RRERR 

RDBLK«RW.ER1«R0 

lECCF.RO 

RRERR 

fNUN^RO 

CNPOAT 

R1 

NOERR 

#ECCF«RDBLK*RU.ER1 

RB.IH(R5),R4 

fBD,R4 

NOERR 

#B0,R4 

R4,RB.IN(RS> 

ERR 

RTYCNT 

«RDLEN,RS 

SECCNT 

AGAIN 

N 

CSKIPI 

ERR 

CDONE 

fCN0BUF,R4 

RB.IH(R4),R3 

«BD,R3 



SET U** FOR STORE 
SET UP 

SAVE FOR LATER RESET 
SKIP EXTENSIVE READ SETUP 
EXTENSIVE REGULAR READ 
EXTENSIVE ERROR READS 
SAVE FOR LATER RESET 
DO IT 

SET IN PORT NUNBER 

SYNCH WITH SECTOR/INDEX PULSE 

SECTOR SIZE IN WORDS 

LOAD SECTORS/TRACK 

POINT TO CONNAND BUrFER 

POINT TO READ CONNAND BLOCK 

ZERO CONNAND ? 

YES - SKIP CHECKS 

ELSE STORE IT 

GET LOW RODFR BLOCK NUNBER 

STORE IN CONNAND BLOCK 

LOAD HIGH ORDER BLOCK NUNBER 

STORC IN CONNAND BLOCK 

GET BUFFER POINTER 

STORE IN CONNAND BLOCK 

POINTER TO DUNNY SDI BLOCK 

STORE IT IN READ BLOCK 

NAKE SURE POINTING AT BLOCK 

RESET STATUS POINTER 

STORE IT BACK 

READ 1 SECTOR 

ANY ERRORS ? 

YES - UH OH 

GET ECC STATUS WORD 

ANY ECC ERROR ? 

YUP - NARK AS BAD FOR NOW 

POINT TO COMPARE BLOCK 

DO DATA CONPARE 

ANY ERROR IN CONPARE ? 

NOPE - CONTINUE LOOP 

CLEAR ECC ERROR BIT 
GET POINTER TO INAGE 
ALREADY NARKED BAD ?? 
YUP - DON'T COUNT AGAIN 
FLAG AS BAD 
STORE BACK 

INCRENENT ERROR COUNT 
INC COUNTER 

POINT TO NEXT READ CNO BLOCK 

DECRENENT COUNTER 

NO > DO NEXT SECTOR 

DECRENENT COUNTER 

NO - REPEAT TRACK READ AND CONPARE 

ANY ERRORS ? 

NO - ALL DONE CHECK PASS 
POINT TO CONNAND BUFFER 
GET INAGE POINTER 
IS IT BAD 
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nuFRI AY 


(F1 ) 








115 


004673 










BEQ 


1 1 w 


004675 










PUSH 

r WW*f 


117 




104644 


000003 






nw w 


118 






00000? 

wwwWC 






MOV 


119 


00470? 


10320^ 


007777 






BIC 


120 


004704 


106303 


002145 

Wb 1 ~ ^ 






CMP 


121 


004706 










BEQ 


122 


004710 










PGP 


123 


004711 










BR 


124 


004713 


104302 


001412 




READX: 


NOV 


125 


004715 


060012 








XFC 


126 


004716 


104302 


002171 






MOV 


127 


004720 


104207 


001373 






MOV 


128 


004722 

WW^ abb 


104203 


001 4O0 






MOV 


129 

1 tit W 


004724 


100673 

1 Ww * ^ 


000006 

WWW WW 






HOV 


130 


004726 

fcW 


104643 


000001 

WWW 1 






HOV 


131 


004730 


100673 

1 WW • ^ 


000003 

wwwww^ 






MOV 


132 


004732 


104643 


000002 

W WWW Ww 






MOV 

■ www 


133 


004734 


100673 

1 WW ^ 


000004 

WWWWW^ 






HOV 

nvv 


134 


004736 


104203 


010000 

W 1 WW WW 






HOV 


135 


004740 


100673 

1 WW • ^ 


000002 

W W WWWfc 






HOV 


136 


004742 


104203 


013400 

W 1 WW 






HOV 


137 


0047/- 4 


104301 


001565 

WW 1 ^ w 






HOV 


138 


004746 


101013 








BIS 


139 


004747 


100673 


000005 

wwwww<# 




READ2: 


HOV 


140 


004751 


104207 


101373 




HOV 

nvv 


141 


004753 


104203 


100000 

1 wwww w 






HOV 


142 


004755 


100173 

1 W 1 • J 








HOV 


143 


004756 


104302 


002171 






HOV 


144 


004760 


060002 








XFC 


145 


004761 


115001 








TST 


146 


004762 










BNE 


147 


004764 


1 04673 


000001 






HOV 


148 


004766 


102203 


010000 






BIT 


149 


004770 










BEQ 

Wb V 


150 


004772 


103200 


010000 

W • WWWW 


001374 




BIC 


151 


004775 










CALL 


152 


004777 


11500? 








TST 


153 


005000 










BMI 


154 


005002 


106300 


002131 


010000 


CSKIP6: 


CMP 


155 


005005 










BNE 


156 


005007 


104202 


010000 






HOV 


157 


005011 


104207 


000400 






HOV 


158 


005013 










CALL 


159 


005015 


104205 


010000 






HOV 


160 


005017 


106653 


000400 






CMP 


161 


005021 










BEQ 


162 

1 Wfc 


005023 








ER1 : 




163 


005023 


104643 


00^02 






MOV 


164 


005025 


103203 


170000 

I » wwww 






BIC 


165 


005027 


101203 


110000 






BIS 


166 


005031 


100643 


000002 






HOV 


167 


005033 


115400 


001704 






INC 


168 


005035 


115400 


002136 






INC 


169 


005037 










BR 


170 


005041 


117400 


002141 




OK: 


DEC 


171 


005043 










BNE 



E 7 
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SEQ 82 



CSKIP7 
R4 

RB.IM(R4},R4 

FT.HI(R4),R3 

#L0,R3 

HD.CUR,R3 

READX 

R4 

CSKIP7 

UNIT,R2 

SIP 

SECSIZ,R2 

«RDBLK,RO 

«HSLIM-nR3 

R3«RU.DUM(R0) 

Fr.L0U(R4),R3 

R3,RU.L0U(R0) 

FT.HI(R4)«R3 

R3,RU.HI(R0) 

fRDBUF,R3 

R3,RU.BUF(R0) 

fRUCMD,R3 

CURTRK«R1 

R1,R3 

R3«RU.CMD(R0) 

f<BIT15!RDBLK>«R0 

#RDCMD,R3 

R3,(R0} 

SECSIZ.R2 

READ 

R1 

ER1 

Rw.ER1(R0},R3 

fECCF,R3 

CSICIP6 

fECCF«R0BLK*Rtf.ER1 

ECCCK 

R1 

ER1 

0VRD,RD6UF 
ER1 

fROBUF.RZ 

#SECSI6.R0 

CCOC 

fR0BUF«RS 

RU.EDC(R5),R3 

OK 

FT.MI(R4),R3 

fHD.CLR,R3 

#HD.BAD,R3 

R3«FT.HI(R4) 

ERFLAG 

ERRCNT 

CSKIP3 

N1 

READX 



NO - SKIP IT 

SAVE POINTER TO COMMAND BLOCK 
GET POINTER TO IMAGE ENTRY 
GET HIGH ORDER 
CLEAR OUT ALL BUT HEADER 
IS IT A "GOOD X/D BN" ? 
YES - CHECK IT 

ELSE RESTORE COMMAND POINTER 
AND CHECK NEXT ENTRY 
GET PORT NUMBER 
WAIT FOR PULSE 
SECTOR SIZE IN WORDS 
PREPARE FOR READ SECTORS 
POINTER TO DUMMY SDI BLOCK 
STORE IN COMMAND BLOCK 
LO ORDER BLOCK NUMBER 
STORE IN READ COHD BLOCK 
HI ORDER BLOCK NUH AND CODE 
STORE IN READ CND BLOCK 
LOAD ADDRESS OF DATA BUFFER 
STORC IN COMMAND BUFFER 
LOAD SDI READ COMMAND 
GET CURRENT HEAD NUMBER IN R1 
SET IT IN COMMAND 
STO;>E SACK 

MAKE SURE POINTING AT BLOCK 

MARK AS ONLY REQUEST 

STORE IN CMO BLOCK 

SECTOR SIZE IN WORDS 

READ 1 SECTOR 

ANY ERROR IN READ ? 

YES - CONSIDER BAD 

LOAD ECC ERROR INDICATOR FOR TEST 

ERROR ? 

NO - CHECK EDC 

CLEAR ECC ERROR BIT 

ELSE FIND HOW MANY SYMBOLS IN ERROR 

WITHIN eCtiNDS ? 

NOPE - CONSIDER BAD 

FIRfr WORD O.K ?? 

NOPL - BARF 

POINT TO BUFFER 

SECTOR SIZE IN WORDS 

COMPUTE EDC - RETURNED IN R3 

POINT TO BUFFER 

EDC O.K. ? 

NO ERROR 

GET HI ORDER BLOCK NUN AND HDR CODE 

CLEAR THE HEADER 

NARK AS BAD 

STORE BACK IN IMAGE 

SET RE-FORMAT FLAG 

UP COUNTER OF BAD BLOCKS 

NO NEED TO RE-READ ANY MORE THIS SECTOR 

DECREMENT COUNTER - DONE ? 

NO - RE-READ SECTOR IN ERROR 
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(F1) 












104300 

1 w*t JW 


00?142 


002141 

wwC 1*1 > 


V w>^4 V ^ • 


NOV 

nw V 


NN1 Ml 


173 OOSOSO 


117400 

■ If ^ww 


001711 

WV 1*11 






DEC 


ERR 


174 OOSOS? 










POP 

* Wr 


R4 


17S 


105204 


000004 




rSKIP7' 


ADD 

WWW 


#RDLEN R4 


176 OOSOS 5 


115000 


001711 

WV 1*11 






TST 


ERR 


177 005057 










BNE 


HERE 


178 005C61 


115000 

■ 1 ^ WWW 


001704 

WW • • w^ 






TST 

■ w ■ 


ERFLAG 

k • ^ ■ W "W 


179 005063 










BEQ 


CDONE 


ISO 005065 


104304 


002006 

wwfc www 




0VER2: 


NOV 


DPREA.R4 


181 00506? 


104303 


002005 

WWIb WW t0 






NOV 


hprea<r3 


182 005071 

1 VW ww^w* • 


104307 


002004 

WWfc ww^ 






NOV 


INSTAR.RO 


183 005073 

■ W ^ WW ^ w * ^ 


104301 

1 W^ JW I 


001 565 

WW ■ ^ W V 






NOV 

riW W 


CURTRK.R1 


184 005075 

1 WW^W* V 


104302 

■ W^ <^Wb 


002171 

WWfc 1 • 1 






NOV 

I IW w 


SECSI2.R2 

vbVwii & fnt> 


185 005077 

1 ww^w* • 


1C4205 

• w~ t w ^ 


015763 






NOV 

1 f w w 


#INAGE.RS 


186 005101 


060001 

WWWWW 1 








XFC 

AW V 


FORNAT 


187 005102 

• V • WW ^ ■ 


115001 








TST 

■ w ■ 


Rl 


188 005103 

■ WW WW^ 1 w^ 










BEQ 


OVERl 


189 005105 

■ W7 WW ^ 1 w ^ 


1 1 5400 


001371 






INC 


UN.ERI 


190 005107 


106300 


002165 

WWfc ■ w^ 


001371 

WW ■ ^ f ■ 




CNP 


RETRY. UN. ERI 


191 005112 










BNI 


FERR 


192 005114 










CALL 


INITPT 


193 005116 

1 7># ww^ ■ ■ w 










CALL 


CLEAR 


194 005120 










CALL 


SEEK 


195 005122 










BR 


0VER2 


196 005124 


114000 


001371 




OVERl : 


CLR 


UN.ERI 


197 005126 










BR 


OXCH 


198 005130 








COONE: 


POP 


RO 


199 005131 










RETURN 





SEQ 83 



GET SAVED VALUE 

DECREMENT IT 

RESTORE CONNAND POINTER 

POINT TO NEXT ENTRY 

ALL DONE ERROR SECTORS 

NO - DO NEXT SECTOR 

WERE THERE ANY BAD SECTORS FOUND 

NOPE - ALL DONE 

DATA PREAMBLE LENGTH 

HEADER PREAMBLE LENGTH 

POINT TO TRACK IMAGE START POINT 

CURRENT TRACK NUMBER 

SECTOR SIZE IN WORDS 

RECIRCULATION ADDRESS 

RE-FORMAT 

ANY PROBLEMS ?? 

NO -REDO CHECK PASS 

INCREMENT IT 

DONE ALL RETRIES ? 

YUP - ERROR 

REINIT 

DRIVE CLEAR 

RE-SEEK AND GROUP SELECT 
RETRY FORMAT 
CLEAR RETRY COUNT 
RE-CYCLE CHECK PASS 
iRESTORE CHARACTERISTICS PTR 



G 7 
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DBN/XBN FORMAT OVERLAY (F1) 



1 



CONSTRUCT THE READ CONNAND lAi 



5 

6 005133 


104300 


001606 


002137 FIXIT: 


NOV 

r:ov 


SECTRK.SECCNT 


7 005136 


104207 


013022 




#CMDBUF,RO 


8 005140 


104205 


015763 




my 


#IMAGE,R5 


9 0O5U2 


104303 


001716 




MOV 


SKPCNT,R3 


10 005UA 


105035 






ADD 


R3«R5 


11 005U5 


104050 


001715 




MOV 


R5,STARIT 


12 005U7 


104653 


000002 


MORE: 


MOV 


2(R5),R3 
»L0,R3 


13 005151 
U 005153 


103203 


007777 




BIC 


106203 


120000 




CMP 


#HD.XBN«R3 


15 005155 








BEQ 


FKIP2 


16 005157 


106203 


140000 




CMP 


#HD.D6N,R3 


17 005161 








BEQ 


FKIP2 


18 005163 


114003 






CLR 


R3 


19 005164 


100673 


000002 




MOV 


R3,RB.CND(R0} 


20 005166 


105207 


000004 




ADD 


fRDLEN.RO 


21 005170 








BR 


FKIP1 


22 005172 


104653 


000001 


FKIP2: 


MOV 


1(R5).R3 


23 0051 7A 


100273 






MOV 


R3,(r6>^ 


24 005175 


104653 


000002 




MOV 


2(R5).R3 


25 005177 


100273 






MOV 


R3.(R0)^ 


26 005200 


104203 


013400 




MOV 


#RVCND.R3 


27 005202 


101303 


001565 




BIS 


CURTRK,R3 
R3,(R0W 


28 005204 


100273 




MOV 


29 005205 


100275 






MOV 


R5,(R0>^ 


30 005206 


105305 


001717 


FKIP1 : 


ADD 


TBLK.R5 


31 005210 


106305 


001714 




CMP 


EIHA6E.R5 


32 005212 








BEQ 


REDO 


33 005214 








BPL 


FKPI 


34 005216 


107305 


001714 




SUB 


EINAG£«R5 


35 005220 


105205 


015763 




ADD 


#INA6E.RS 


36 005222 








BR 


FKP1 


37 005224 


104205 


015763 


REDO: 


MOV 


#IMA6E,R5 


38 005226 


106305 


001715 


FKP1: 


CMP 


STARIT,R5 


39 005230 








BME 


FKIPIO 


40 005232 


105205 


000003 




ADD 


#IMLEN,R5 


41 005234 


104050 


001715 




MOV 


R5«STARIT 


42 005236 


117400 


002137 


FKIP10: 


DEC 


SECCNT 


43 005240 








BNE 


MORE 


44 005242 








RETURN 





INIT COUNTER 

COMMAND BUFFER 

POINT TO TRACK IMAGE 

GET STARTING OFF SET (TUNED) 

POINT TO FIRST ENTRY 

MARK STARTING ADDRESS 

SET UP FOR HSR CODE COMPARE 

ISOLATE HI 4 BITS(HDR CODE) 

GOOD XBN ? 

YES - NARK AS GOOD TO CHECK 
GOOD D6N ? 

YES - MARK AS GOOD TO CHECK 

CLEAR FOR STORE 

STORE AS BAD SECTOR FLAG 

POINT PAST BLOCK 

SKIP GOOD MARK 

LO ORDER BLOCK NUMBER 

STORE IN READ COMD BLOCK 

HI ORDER BLOCK NUH AND CODE 

STORE IN READ CMD BLOCK 

LOAD S9I READ COPMAND 

SET IN CURRENT TRACK NUMBER 

STORE IN BLOCK 

SAVE PTR TO IMAGE BLK ENTRY 

ADD TO GET NEXT SECTOR 

SEE IF HAVE TO LOOP BACK TO TOP 

NEED TO RESET 

NO NEED - JUST CONTINUE 

SUBTRACT TO GET LOOP AMOUNT 

AND ADD OFFSET 

$K ' ' ZERO CONDITION 

I* ZERO SIMPLY MOVE TO FRONT 

AT BEGINNING ADDRESS ? 

NO - JUST CONTINUE 

ELSE POINT TO NEXT ENTRY 

MAKE IT NEW STARTING ADDRESS 

DECREMENT 

NO - DO NEXT SECTOR 



H 7 
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SEO 85 



1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



005244 

004014 

004017 

004022 

00402& 

004027 

004031 

004034 

004036 

004040 

004042 

004044 

004046 

004047 

004051 

004052 

004054 

004056 

004060 

004061 

004062 

004070 

004072 

004074 

004076 

004100 

004101 

004103 

004105 

004106 

004110 

004112 

004114 

004116 

004120 

004123 

004125 

004127 

004131 

004133 

004136 

004140 

004143 

004145 

004150 

004152 

004154 

004156 



104203 
100253 
104303 
100253 
104303 
103203 
104301 
101013 
100253 



011132 

001566 

001567 
170000 
002145 



117400 002137 



104203 
104632 
110702 
103202 
104204 
115002 



001525 
000011 

177400 
015763 



104200 000047 001636 

104300 001606 002137 

104205 015763 

102200 000600 001702 

102200 000010 001702 



DXTRK: 



TKIP1: 
TK1P2: 



SKIPS: 



115000 002146 

104020 001410 

114000 001411 

104300 002146 001403 

1U000 001404 

104203 001410 

104204 001403 

106300 001606 001403 

107300 001606 001403 

104200 000003 001410 

114000 001411 

104203 001410 

104143 



TKIP8: 
TKIP9: 



.SBTTL DBN/XBN TRACK FORMAT OVERLAY (G7) 



SET UP TRACK FORMAT 



DMOVLY 67,START 

MOV #G7,CUR0VL 

NOV SECTRK^SECCNT 

MOV #IMAGE.R5 

BIT «MANU*OLL,FLAG 

BEQ TKIP2 

BIT «DBN.FLAG 

BEQ TKIP1 

CALL DPBN 

BR TKIP2 

CALL XPBN 

MOV #GDBLK.R3 

MOV R3,(R5)* 

MOV CURBN.R3 

MOV R3,(RS)^ 

MOV CURBNf1,R3 

BIC #HD.CLR,R3 

MOV HO.CyR,Rl 

BIS R1.R3 

MOV R3,(R5>4> 

DUBINC CUR6N 

DEC SECCNT 

BNE TKIP2 

MOV #SCR.R3 

MOV 0FfSl2(R3),R2 

SWAB R2 

BIC #HIBYTE.R2 

MOV f IMAGE, R4 

TST R2 

BEQ TKIP5 

TST CURGRP 

BEQ TKIP5 

MOV R2,TENP 

CLR TEMP^I 

MOV CURGRP.DOUHMY 

CLR OOUMMY^I 

MOV #TEMP,R3 

MOV #DDUHMY,R4 

CALL DMUL 

CMP SECTRK.OOUNMY 

BPL TKIP9 

SUB SECTRK.ODUMMY 

BR TKIP8 

MOV fINLEN.TEHP 

CLR TEMP+1 

MOV #TEMP,R3 

CALL OMUL 

MOV (R4),R3 



:GET OVERLAY INdlCATOR 
MOVE SECTOR COUNT INTO R3 
POINT TO FORMAT TRACK IMAGE 
SEE IF FCT AVAILABLE 
NO - SKIP PBN COMPUTATION 
00 DBN AREA ?? 
NO - 00 XBN AREA 
COMPUTE PBN FOR STARTING 09N 
SKIP XBN COMPUTATION 
COMPUTE PBN FOR STARTING XBN 
POINT R3 AT GOOD DATA BLOCK 
AND STORE PTR IN IMAGE BLOCK 
GET LOW ORDER BLOCK NUMBER 
AND STORE IN IMAGE BLOCK 
HI ORDER BLOCK NUM AND HDR CODE 
CLEAR HEADER CODE 

GET CURRENT HEADER CODE (XBN OR DBN) 

SET TO GOOD HEADER CODE 

AND STORE IN IMAGE BLOCK 

INCREMENT IT 

DECREMENT IT 

NO - (H) NEXT SECTOR 

POINT TO CHARACTERISTICS 

GET GROUP OFFSET 

GET INTO LOWBYTE 

CLEAR HIGH GARBAGE 

POINT TO IMAGE 

ANY OFFSET ? 

NO - SKIP CALCULATIONb 

IS GROUP ZERO ??? 

YES - NO OFFSET 

STORE IT 

FOR STORE 

GET CURRENT GROUP 

CLEAR HIGH WORD 

FOR MUL 

DITTO 

MULTIPLY TO GET OFFSET FOR THIS GROUP 

IS TOTAL OFFSET MORE THAN NUMBER OF SECTORS 

NO - ALL IS FINE 

YES - SUBTRACT TILL IT IS 

CHECK AGAIN 

GET LENGTH OF IMAGE BLOCK 
FOR STORE 
FOR MULT 

GET LENGTH TO OFFSET 
GET RESULT 
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OBN/XBN TRACK FORMAT OVERLAY (G7) 



JO wV* I J 1 


104^0^ 

1 wH JwH 


001 714 

wV 1 r 1 *V 


















cm 






002004 




TK IPS • 


nu w 




102200 


002002 

VVCVvC 


001 70? 

WW I • VC 




BIT 


A? 004167 












63 004171 

W^ WW^ 1 • 1 


104300 

1 \/*t vwV 


001606 

WW 1 W VW 


002137 

wwC 1 W • 




NOV 


64 004174 


1 wt JwC 


001706 

WW I « WW 






MOV 


65 004176 

V ^ WW^ 1 f V 


104121 








MOV 

nw » 


66 004177 

W WW^ Iff 


106010 

I WWW I w 


001 563 

WW 1 ^WW 






CMP 


67 004201 












68 004203 

ww ww^t w W 


104621 


000001 

WWWWW ' 






MOV 

nw T 


69 00420S 


103201 

1 W^&W 1 


170000 

• r wwww 








70 004207 


106010 

1 WWW ■ w 


001 564 

WW ■ JW^ 






fMP 


71 004211 

■ 1 WW ^ 1 1 












72 004213 


117400 

1 1 * ^WV 


002164 

WWb ■ w~ 






DEC 


73 004215 

# ^ WW^fc i ^ 


117400 

www ^ WW 


001 722 

WW ■ ' CC 






DEC 


74 004217 












75 004221 


101200 

I W 1 & WW 


000002 

WWWWWb 


001 702 

WW ■ ■ wt 




BIS 


76 004224 

• W WW V L ^ • 


104643 


000002 

WWWWWb 




TltIP7: 


MOV 

ITW T 


77 004226 

r » ww^^fcW 


103203 

1 W W^ 


1 70000 

I » WWwW 






BIC 

DAI* 


78 004230 


10120? 

1 w 1 C w J 


110000 

1 1 wwww 






BIS 


79 004232 

> 7 WW^fc 


100643 

• wW^ ^ 


000002 

WVWWWfc 






MOV 

nw V 


80 004234 


105200 

1 w<#CW 


000002 

wwwwwC 


001 706 

WW 1 ■ wW 




ADA 


81 004237 

U I WW^fc^' 


115000 

1 1 ^www 


002164 

wwC ■ W~ 






TST 

1 w • 


82 004241 










BNE 


83 004243 


115400 


001 743 

VW I • 






INC 


84 004245 










CALL 




1 W^CwH 


wUwwUJ 






Ann 


86 004251 


106304 

1 WW<i/W^ 


001714 






CHP 


87 004253 












88 004255 

WW WW Vb^^ 


104204 


01 5763 






NOV 

• tW W 


89 004257 








TKIP1 1 : 


DUBINC 


90 004265 

7W WW^wW^ 


1 1 7400 


002137 

WWb ■ 






DEC 


91 004267 










BNE 


92 












93 004271 


104304 


002004 

WW b w w~ 




TK1P3: 


NOV 


94 004273 


104303 


001714 






flOV 


95 004275 


107203 


000003 






SUB 

WWW 


96 004277 


106043 








CHP 


97 004300 










BEQ 

WW 


98 004302 


104135 








NOV 


99 004303 


101205 


040000 






BIS 


100 004305 


100135 








NOV 


101 004306 










BR 


102 004310 


101200 


040000 


002004 


TKJP14: 


BIS 


103 004313 


104143 






TK1P13: 


NOV 


104 004314 


101203 


100000 






BIS 


105 004316 


100U3 








NOV 


106 004317 










RETURN 
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SEQ 86 



EI MAGE, R4 

R3,R4 

R4,IMSTAR 

#BST6S*FCT£HT.FLA6 

TKIP3 

SECTRK.SECCNT 

BADP8N.R2 

(R2),R1 

RI.CURPBN 

TICIP4 

1(R2),R1 

fHD.CLR^RI 

RI.CURPBN^I 

TKIP4 

COUNT 

FCNT 

TKIP7 

fFCTEHT.FLAG 

FT.HI(R4).R3 

fHD.CLR,R3 

#HD.BAD,R3 

R3,FT.HI(R4} 

«2,BA0PBN 

COUNT 

TKIP4 

FCTCNT 

0XFCP1 

#INLEN,R4 

EINAGE,R4 

TKIP11 

#INAGE.R4 

CURPBN 

SECCNT 

TKIP12 

INSTAR,R4 

E IMAGE ,R3 

#INLEN«R3 

R4,R3 

TKIP14 

(R3),R5 

«RECIR,R5 

RS,(R3) 

TICIP13 

fRECIR.lNSTAR 
(R4)-RS 
#LAST,R3 
R3,(R4) 



GET ADDRESS OF END OF IMAGE 
SUBTRACT TO GET STARTING LOCATION 
STORE IT 

IS FCT AVAILABLE AND NON-EMPTY ? 

NO - CONSIDER GOOD 

RESET SECTOR COUNT 

POINT TO PBN 

GET IQJ ORDER PBN 

ARE THEY EQUAL ? 

NO - SKIP REST OF COMPARE 

GET HIGH ORDER BAD 

CLEAR HEADER FOR COMPARE 

EQUAL ? 

NO - NARK AS GOOD 
DECRENENT IT 
DEC IT 

IF NOT EMPTY THEN CONTINUE 

SET FCT EHPTV FLAG 

HI ORDER BLOCK NUN AND HDR CODE 

CLEAR THE HEADER CODE 

SET 70 BAD HEADER CODE 

AND STORE IN IMAGE BLOCK 

MOVE PTR TO NEXT BAD BLOCK 

DONE WITH THIS FCT BLOCK ? 

IF NOT DONE SKIP 

GET NEXT BLOCK NUNBER 

ELSE PAGE IN NEU FCT BLOCK 

POINT TO NEXT MAGE ENTRY 

AT THE END ? 

NOPE - CARRY ON 

POINT TO START 

INCRENENT CURRENT P6N COUNTER 
DECRENENT SECTOR COUNTER 
CONTINUE TILL DONE ALL SECTORS 

POINT TO FIRST TO FORMAT ENTRY 

GET END ADDRESS 

POINT TO FLAG OF LAST ENTRY 

FIRST = LAST ? 

NO - SKIP SPECIAL STUFF 

GET FLAG yORD 

SET RECIRCULATION FLAG 

STORE IT BACK 

SKIP KLUDGE FIX TO UDA 

SET BIT IN POINTER 

GET BUFF POINTER 

SIGNAL AS LAST 

STORE IT BACK 



J 7 
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HAT OVERLAY (07) 



DBN/XBN 


TRACK 


1 

2 




5 




H 




c 




6 




•f 

f 




a 
0 


(a)*i3£1 


V 


AA/ TO/. 


10 




1 1 


(aM331 


12 


004333 


1 J 


AA/ tic 


I** 


00433 r 


4 C 
1 > 


AA/.V/.1 


io 


004343 


4 7 

1 f 


AA/. 7/. C 

004343 


15 


004j4r 


1 T 


0U4 33 1 


3rt 
cU 




51 
c1 


004333 


03 
CC 




OT 








oc 




26 




07 

cf 




CO 




SO 








94 

31 


00433f 


70 


004 30C 


33 


AA/.YilC 

004 303 


1/. 
3*» 


AA/.YA7 
004 30f 


33 


004jf 1 


Tit 

30 


0O43r 3 


77 

J' 




38 


004377 


39 


004401 


40 


004403 


41 


004405 


42 


004407 



104300 001622 001410 DPBN: 

104300 001623 001411 

104204 001410 

104203 001616 

104203 001620 

104203 00i:>66 



104641 
107301 
104140 
104010 



000001 
002012 
001563 
001564 



104300 001616 001410 XPBN: 

104300 001617 001411 

104204 001410 

104203 001620 

104203 001566 

104641 000001 

107301 002011 

104140 001563 

104010 001564 



COMPUTE PBN FROM GIVEN OBN 
RO -> CHARACTERISTICS BLOCK 



nOV XBNSEC^TENP 

MOV XBNSEC*1,TENP«1 

MOV «TEnP,R4 

MOV «LBNLBN,R3 

CALL DADO 

MOV fRBNLBN,R3 

CALL DADO 

NOV #CURBN,R3 

CALL OAOD 

MOV 1(R4),R1 

SUB ST.DBN.RI 

MOV (R4),CURPBN 

MOV R1,CURPBN«1 

RETURN 



COMPUTE PBN FROM GIVEN XBN 
RO -> CHARACTERISTICS BLOCK 



NOV LBNLBN.TENP 

NOV LBNLBN*1,TENP^1 

NOV #TEHP.R4 

MOV fRBNLBN.RS 

CALL DADO 

NOV #CURBN,R3 

CALL DADO 

NOV 1(R4),R1 

SUB ST.XBN^RI 

NOV (R4),CURPBN 

NOV RI.CURPBN^I 
RETURN 



GET NUNBER OF SECTORS IN XBN AREA 

GET HI ORDER 

POINT R4 AT TENP AREA 

POINT AT NUN OF LBN*S IN LBN AREA 

ADD 

POINT TO NUN OF RBN'S IN LBN AREA 
ADD TO 6ET SECTORS IN LBN ♦ XBN AREA 
POINT TO CURRENT BLOCK NUNBER (DBN) 
GET RELATIVE PBN 
GET HIGH ORDER 

SUBTRACT HI(;H ORDER STARTING OBN 
GET LO ORDER PBN 
STORE HIGH ORDER 



GET NUNBER Of LBN'S IN LBN AREA 

GET HIGH ONDER 

POINT R4 TO TENP AREA 

POINT R3 AT RBN'S IN LBN AREA 

ADD TO GET TOTAL SECTORS IN LBN AREA 

POINT R3 AT CURRENT BLOCK NUNBER 

ADD TO GET RELATIVE PBN 

GET HIGH ORDER 

SUBTRACT HIGH OHDER STARTING XBN 
GET LO ORDER OF PBN 
SAVE HIGH ORDER 
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DBN/XBN TRACK FORMAT OVERLAY (G7) 



1 
2 
3 
4 
5 
6 
7 
8 
9 



004411 
004417 
004421 
004423 
004426 
004431 



10 004437 



104201 000033 



104200 
104200 



000200 
010455 



PAGE IN NEW FCT BLOCK 



DXFCP1 



002164 
001706 



PUSHA 

nov 

CALL 

mv 

NOV 

POPA 

RETURN 



*62,R1 
PAGE 

#128., COUNT 
«PBN6UF,BA0PBN 



;DLL OVERLAY 
.•EXECUTE OVERLAY 
:F0R I NIT 

.-FOR POINTER RESET 
; RE TURN 
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LBN FORHATTING OVERLAY (F2) 



SEQ 89 



1 

1 












.SBTTL 


LBN FORMATTING OVERLAY (F2) 


c 

3 

/ 










• 


LBN FORftATTING 




•1 
D 










• 


DNOVLY 


F2, START 




7 

a 

o 




104700 


000005 


001636 


1 FORM' 


MOV 


«F2,CUR0VL ; 


OVERLAY #2 


▼ 




102200 


000001 


001 702 

W 1 t wC 




BIT 


#FCTAVL,FLAG 


FCT AVAILAABLE ? 


10 


oruopp 










BEO 


XSKIP1 


NO - SKIP SET UP 


11 

1 1 


00^024 


104201 


000036 






NOV 


«G3,R1 


OVERLAY TO GET RIGHT FCT BLOCK 


1? 


004076 










CALL 


PAGE ; 


EXECUTC IT 




004030 


104207 


001 SPS 




ycK IP1 • 


NOV 


#SCR,RO 


-POINT TO CHARACTERISTICS BLOCK 




004032 


104300 


Uw 1 OCO 


001604 

Vw 1 OvH 




NOV 


LBNCYL,CYLNUN 


GET LO ORDER CYLINDER COUNT 


1 J 


00403S 


104300 


001 


002143 




NOV 


LBNCYL.CNTCYL 


MAKE LO ORDER COUNT 




004040 


104300 


001 6P7 


001 60S 

WW 1 MM J 




NOV 


LBNCYL*1,CYLNUN*1 


-GET HIGH OR!^ER 


17 


004043 


104300 


001627 


00P144 

wwC 1 "f 




MOV 


LBNCYL+1,CNTCYL*1 


-STORE IT 


1S 


004046 




1 70000 


OOP 144 

VwC 1 "tt 




BIC 


#HD.CLR.CNTCYL4^1 


; CLEAR STARTING CYLINDER 


19 


004051 


104204 


001 604 

WW 1 Ww*f 






NOV 


«CYLNUN,R4 


; SUBTRACT TO GET CYLINDER NUMBER 


CM 




104203 


002151 






NOV 


«0NE,R3 


-1 - BECAUSE START AT 0 


C 1 












CALL 


DSUB 


;D0 SUBTRACT 








00?1 60 


001 720 

VW 1 r Cw 




NOV 


TOTRCT.RCTTOT 


;GET TOTAL RCT LBN'S 








000052 






NOV 


#68, R1 


rPOINT TO OVERLAY 


CM 












CALL 


PAGE 


; COMPUTE VARIOUS CONSTANTS 






1 0^P07 


001 525 

WW 1 J^J 






NOV 


«SCR,RO 


;POINT TO CHARACTERISTICS 


CO 




1 04673 


000002 

vvwwwC 






NOV 


GRPCYL(R0>,R3 


;GET GROUPS/CYLINDER 


P7 

C r 




103203 


1 77400 

Iff •? WW 






BIC 


#HIBYTE,R3 


; CLEAR OUT GARBAGE 




004074 


104030 


002147 

VWb i ^ 1 






NOV 


R3,GRPCNT 


;USE AS COUNTER 


29 


004076 


104030 


002146 






NOV 


R3.CURGRP 


;6R0UP NUMBER 




004100 


117400 


002146 

wwb 1 






DEC 


CUR6RP 


;DECRENENT TO GET ACTUAL NUMBER 




004102 


104300 


001604 

wW 1 ww^ 


001551 

WW 1 1 




NOV 


CYLNUM.ISEEK^I 


;GET CURRENT CYLINDER NUMBER 


32 


00410S 


104300 


001605 

WW 1 MM J 


001552 

WW 1 <0 




NOV 


CYLNUM*mSEEX^2 


;GET HIGH ORDER 




004110 


104300 


002146 

WWb 1 


001 553 

WW \ J^'J 




NOV 


CURGRP,ISEEK*3 


;LOAD GROUP NUMBER 


34 


004113 


102200 


020000 

Wb Www 


001 703 

WW 1 f w^ 




BIT 


«M00E,FLAG1 


;UHAT NODE 


35 


004116 










BNE 


1ft 


;IF SET THEN 576 


36 


004120 


103200 


100000 

1 wwwww 


001552 

WW i J 




BIC 


«SSJSEEK^2 


;SET 512 MODE SEEK 


37 


004123 










BR 


2ft 


;SKIP 576 SETUP 


38 


004125 


101200 


100000 

■ wwwww 


001552 

WW i ^ ^ fa 


IS: 


BIS 


fSS,ISEEK^2 


;SET 576 MODE SEEK 


39 


004130 








2ft: 


CALL 


SEEK 


;00 THE SEEK 


40 


004132 


1 1 5001 








TST 


R1 


;ANY ERROR ? 


41 


004133 










BNI 


SEEKER 


;YUP - CUT OUT 


42 


004135 


104207 


001525 






NOV 


fSCR,R0 


rPOJNT TO CHARACTERISTICS 


43 


004137 


104673 


000003 

www ww^ 






NOV 


TRKGRP(R0).R3 


•GET TRACKS/GROUP 


44 


004141 


103203 


177400 

Iff ^wV 






BIC 


fHIBYTE,R3 


-CLEAR OUT GARBAGE 


45 


004143 


104030 


0021 50 

WVb 1 ^w 






NOV 


R3,TRKCNT 


-MAKE COUNTER 


46 


004145 


1 1 7403 

III ^W«/ 








DEC 


R3 


-WANT LAST TRACK NUNBER 


47 


004146 


104030 


001 565 

WW I 






NOV 


R3.CURTRK 


-NAKE CURRENT TRACK 0 


48 


004150 


104201 


000025 

WwVWfe^ 




XSKIP3' 

1 wff\ 4 r ^ • 


NOV 


#F8.R1 


-TRACK SET UP OVERLAY 


49 


004152 










CALL 


PAGE 


-SET UP TRACK FORMAT 


SO 


004154 


104304 


002006 




XSKIP2: 


NOV 


DPREA,R4 


-GET DATA PREAMBLE LENGTH 


51 


004156 


104303 


002005 






MOV 


HPREA.R3 


GET HEADER PREAMBLE LENGTH 


52 


004160 


104307 


002004 






NOV 


IMSTAR«R0 


-POINT TO TRACK IMAGE START POINT 


53 


004162 


104301 


001565 






NOV 


CURTRK.RI 


-TRACK TO FORMAT 


54 


004164 


104302 


002171 






NOV 


SECSIZ.R2 


; SECTOR SIZE IN WORDS 


55 


004166 


104205 


015763 






NOV 


fINAGE.RS 


■RECIRCULATION ADDRESS 


56 


004170 


060001 








XFC 


FORMAT 


DO FORMAT 


57 


004171 


•115001 








TST 


R1 


ANY ERROR ? 
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LBN FORMATTING OVERLAY (F2) 

BEQ 
INC 
CHP 
BHI 
CALL 
CALL 
CALL 
BR 

LSKIP4: CLR 
MOV 
SUB 
CMP 
BMI 
MOV 
CALL 
CLR 
MOV 
XSKIP4: CALL 
BIT 
BEQ 
BIS 
BIC 
BIT 
BEQ 
MOV 
CALL 
BR 

XSKIP6: MOV 
CALL 
XSKIP5: DEC 
MOV 
MOV 
BIT 
BNE 
NOV 
BR 

L576: MOV 
XSKIP8: BIC 
NOV 
CLR 
NOV 
CALL 
NOV 
NOV 
NOV 
NOV 
BIC 
NOV 
CLR 
NOV 
CALL 
NOV 
NO/ 
^EC 
dNE 
DEC 
DEC 



58 


004172 








59 


004174 


4 4 f / AA 

1 1 5400 


AA4 994 

001371 


AA4 994 

001 371 


60 


004176 


A A^ 9 AA 

106300 


AA14 ^ f 

002165 


61 


004201 








62 


AA/ ^AY 

004203 








63 


AA/ ^Ar 

004205 

AA/ ^A^ 

004c07 








64 








65 


004211 








66 


AAJ 9 

004213 


4 4/ AAA 

114000 


AA4 T94 

001 371 




67 


004215 


1 A/ TA4 

104301 


AA1 71 A 

001 f 10 




68 


004217 


1 07301 


AA1 7/ 1 

001741 




69 


AA/ 

004221 


4 A^ TA4 

106301 


AA1 XAX 

001606 




70 


004223 








71 


004225 


4 A/ ^ A4 

104201 


AAAA1 1 

000011 




72 


004227 








75 


AAy ^71 

004231 


4 4/ AAA 

1 1 4000 


nm 7/ 1 
001 ^41 




74 


AA/ ^TT 

004233 


1 A/ TAA 

104300 


AA1 7A7 

001 f Or 


nm 7T7 

001 f5f 




AA/ 

004236 








7b 


AA/ ^/ A 

0OA240 


1 noonn 
1 02200 


A^AAAA 

020000 


nm 7no 
001 f 02 


77 


AA/ ^/ 7 

004243 








78 


A A/ ^ / C 

004245 


4 A4 ^AA 

1 CI 200 


AAA 4 A A 

000100 


AA1 7A^ 

001 702 


79 


AA/ ^CA 

004250 


4 AT^AA 

1 03200 


A^AAAA 

020000 


AA1 7AO 

001 r 02 


80 


AA/ 

004253 


1 A^^AA 

1 02200 


aa^Aaa 

002000 


AA1 7AO 

001 r 02 


81 


AA/ ^Cd, 

004256 








a^ 

82 


AA/ '^^A 

004260 


4 A/ ^A4 

104201 


/\AAA^^ 

000022 




av 

83 


AA/ ^^'^ 

004262 








a# 

84 


AA/ ^Z./ 

004264 










AA/ 

0u42oo 


in/ oni 
104201 


000014 




86 


AA/ ^7A 

004c rO 








87 


AA/ 

004272 


1 1 7/ nn 
1 1 r 400 


nni CiLC 
001 303 




88 


AA# ^7/ 

004274 


1 n/ ^n/ 
1 04204 


nm C7X. 
001 3 ro 




on 

89 


AA/ 

004276 


1 A/ ^A7 

104207 


nm coc 
001323 


nm 7 AT 
001 r 03 


90 


AA/ TAA 

004300 


1 noonn 
1 02200 


nonnnn 
020000 




AA/ TAT 

004 3Q3 








92 


AA/ TAC 

004305 


1 n/ A7T 
1046r3 


000011 




93 


AA/ TA^ 

004 30 f 








o/ 


nn/ Ti 1 
00431 1 


1 n/ iL7T 
104Of 3 


nnnni c 
00001 3 






00^31 3 


1 03203 


1 77Ann 
\ f f 4UU 




96 


AA/ Ti C 

00431 3 


1 n/ nTn 
1 04030 


nm / AT 
001403 




07 
▼ f 


nn/ Ti 7 
00431 r 


1 iznnn 
1 14000 


001404 




OB 

98 


nn/ T^i 
004321 


104203 


001403 






nn/ 

OOh 323 








inn 


004323 


in/.tnn 
104300 


nm C7A 


AA1 czz 
W 1 300 


TOi 


n/v TTn 
004330 


1 n/ Tnn 
104300 


nm C77 
001 3 f f 


AA1 CA7 
001 3Dr 


1 n^ 


AA/ ITT 

004333 


in/ ^n/ 
104204 


nm Ann 
001 oOO 






nn/ TTC 
004333 


in/.X.7'T 

1040f 3 


AAAAA/ 

000004 




104 


00433r 


inioni 
1 03203 


1 77itnn 
1 f rovU 




mc 


nny i/ 1 
004341 


1 A/ nm 
1 04030 


nm / nT 
001403 




106 


AA/ 7/ T 

004343 


11/ n/in 
1 14000 


nmzn/ 
001404 




1 Ur 




10490^ 


001 40i 




108 


004347 








109 


004351 


104300 


001600 


001561 


110 


004354 


104300 


001601 


001562 


111 


004357 


117400 


002150 




112 


004361 








113 


004363 


117400 


002146 




114 


004365 


117400 


002147 





H 7 
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SEQ 90 



LSICIP4 
UN.ERI 

RETRY,UN.ERI 

FORERR 

INITPT 

CLEAR 

SEEK 

XSKIP2 

UN.ERI 

EHAX.RI 

REVCNT,R1 

SECTRK^RI 

XSKIP4 

#F4,R1 

PAGE 

REVCNT 

ERRBUF«ERPNT 

LCHEC 

«INIRCT,FLAG 
XSKIP5 

#REVECT,FLAG 

«INIRCT,FLAG 

«BSTGS,FLAG 

XSKIP6 

#F7,R1 

PAGE 

XSKIPS 

#F5.R1 

PAGE 

CURTRK 

«H0LDBN,R4 

fSCR.RO 

#N0DE,FLAG1 

L576 

LBNT12(R0),R3 
XSKIPS 

LBNT76(R0),R3 

#HIBYTE,R3 

R3«DDUNNY 

ODUNNYtl 

#DDUWIY,R3 

DSUB 

HOLDBN.CURBN 

H0LDBN^1,CURBN«^1 

«H0LRBN,R4 

RBNTRK(R0>,R3 

/HI1BYTE,R3 

R3,D0UNNY 

DDUNNY^I 

#DDUmY,R3 

DSUB 

HOLRBN.CURRBN 

H0LRBN^1,CURRBN^1 

TRKCNT 

XSKIP5 

CUR6RP 

GRPCNT 



NO - DO CHECK PASS 

INCRENENT IT 

DONE ALL RETRIES ? 

YUP - ERROR 

REINIT 

DRIVE CLEAR 

RE-SEEK AND GROUP SELECT 

NOPE - RETRY 

FOR STORE 

GET MAX REVECTORS 

SUBTRACT CURRENT ENTRIES 

ENOUGH LErT FOR WHOLE TRACK ?? 

YES - CONTINUE 

SIGNAL RCT UPDATE OVERLAY 

PAGE IT IN 

FOR STORE 

FOR RESET 

DO CHECK PA5S 

TIME TO INIT RCT ? 

NOPE 

SET RE VECTOR ON 
REST FLAG 

DOING BEST GUESS ? 
NO - GO ALL THE WAY 
RCT INIT OVERLAY 
EXECUTE IT 
SKIP OTHER 

DO FCT->RCT AND INIT 
EXECUTE IT 
DECREMENT IT 

GET STARTING BLOCK NUNBER 

POINT TO CHARACTERISTICS 

WHAT NODE 

IF SET THEN 576 

GET LBN/TRACK FOR 512 

SKIP 576 SETUP 

GET LBN/TRACK FOR 576 

CLEAR HIGH BYTE 

STORE IT 

FOR STORE 

LBN/ TRACK 

GET STARTING LBN FOR NEW TRACK 

GET LOW ORDER 

GET HIGH ORDER 

GET STARTING RBN NUNBER 

GET RBN/TRACK 

CLERA OUT GARBAGE 

STORE IT 

FOR STORE 

RBN'S/TRACK 

GET STARTING RBN FOR NEW TRACK 

GET LOW ORDER 

GET HI ORDER 

DECRENENT IT 

NO - DO NEXT TRACK 

DECRENENT GROUP NUNBER 

OECRENENT IT 



N 7 
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LBN FORMATTING OVERLAY (F2) 

XSLEK2 
#CNTCYL.R4 
«DNE,R3 
DSUB 
UPDATE 
«CYLNUn,R4 
#0NE,R3 
DSUB 

CNTCYL.R4 
XSLEEK 
CNTCYL*1,R4 
XSLEEK 
REVCNT,R3 
XDONE 

«FINI.FLA6 
#F4,R1 
PAGE 

LBNBAD,R3 
ERRCNT,R4 
R4,R3 
R3,LBNBAD 
«64,R1 
NEXT 

R1,R2 
«12.,R1 
LFERR 
CYLNUn,R2 
«10.«R1 
ERRNNT 



1 1 J \J\jH30f 








ONt 


1 1 0 UUh j f 1 








MOW 

nuv 


117 fWKX7X 




0091^1 




MOV 

nuv 


11R rtftAT7S 










110 nft^X77 














001 A04 




MOt/ 
nuv 


1?1 MiLLOy 


1 VHCvS 


0091^1 




MOV 
nu¥ 


i?p noi.cnt 

tec wVHHU^t 








CAUL 


ip^ on^^oA 




009141 




MOW 
nuv 


1PL 00^^10 








one 


i?s no^Ai? 




009144 




MOV 
nuv 


1PA nn^^i^ 








BMP 

one 






001741 




MOV 
nuv 


1 CO WHHCV 








DCH 


1?Q no^^79 


iw ICUv 


04onAn 


001 709 

wU 1 • wC 


Rf C 


1^0 nocLP^ 




00001 1 




MOV 

nuv 














10A10'? 


001777 




MOV 




104504 


VwC 1 JO 




MOV 


114 nnzzTC 










11^ nn^A^A 


i wHwJw 


001777 

WW i f f f 




MOV 

nuv 






000041 




MOV 
nuv 


137 004442 








CALL 


138 004444 








RETURN 


139 004446 


104012 




FORERR: 


NOV 


140 004447 


104201 


000014 




NOV 


141 004451 








BR 


142 004453 


104302 


001604 


SEEKER: 


NOV 


143 0044S^ 


104201 


000012 




NOV 


144 004457 






LFERR: 


CALL 



;N0 - DO NEXT GROUP 

;GET READY TO DEC CYLINDER CNT 

.•CONSTANT WORD OF 1 

; DECREMENT IT 

;UPDATE PROGRESS INDICATOR 
;6ET CURRENT CYLINDER NUMBER 
;FOR DECREMENT 

.•DECREMENT FOR NEW CYLINDER NUM 

;LOU ORDER ZERO ? 

;N0 - CONTINUE 

;HIGH ORDER ZERO ? 

;N0 - CONTINUE 

;ANY LEFTOVER REVECTORS ? 

;NOPE 

: SIGNAL NOT TO SEEK 

; SIGNAL RCT UPDATE OVERLAY 

.•UPDATE IT 

;GET BAD BLOCKS FROM FCT 
;6ET CHECK PASS BAD 
;ADD TO GET TOTAL 
; STORE BACK 
;RCT CLEANUP 
.-GET NEXT OVERLAY 

;XFC ERROR CODE 

; SIGNAL LBN FORMAT ERROR 

.•CYLINDER FAILED ON 
.-SEEK ERROR 
; ERROR RETURN 



UDAF52 - UOA-52 FORMATTER OHACR X04.01 23-AU6-82 13: U 
LBN FORMATTING OVERLAY (F2) 



1 

1 

5 
c 












l'HEC 




004461 


114000 

1 1 "WWW 


001711 




LCHEC: 


CLR 


7 


004463 


114000 

1 1 ^ WW 


001 704 

WW 1 » w~ 






CLR 


8 


004465 


102200 


002000 

wwb www 


001 702 

WW 1 • Wfc 




BIT 


9 


004470 










BNE 


10 


004472 


104200 


000001 

www W W 1 


002140 

WWfc 1 T W 




nov 




004475 


104200 


000005 

www w w ^ 


002141 




MOV 


12 


004500 


104300 


002141 


002142 




MOV 


13 


004503 










OR 


14 


004505 


104200 

1 W^ k WW 


000003 

www w w^ 


002140 


LSKIP: 


NOV 


15 


004510 


104200 


000024 

V W W WW > 


002141 




NOV 


16 


004513 


104300 


002141 


002142 




NOV 


17 


004516 








LSKIP2: 


CALL 


18 


004520 


104302 


001412 




LSKIP1 : 


NOV 


19 


004522 

W W~ ^ b 


060012 

WW WW 1 








XFC 


20 


004523 


104302 


002171 

WWb 1 » 1 






NOV 


21 


004525 


104300 

1 W^^WW 


001606 

WW 1 www 


002137 

WWfc 1 ■ 




NOV 

nw w 


22 


004530 

W'^~ ^ ^w 


104205 

1 W~ b W ^ 


013022 

W 1 WWbb 






NOV 


23 


004532 

W W^ 


104207 


001373 




LAGAIN: 


NOV 


24 


004534 

Ww^ ^trf^ 


104653 


000002 

W WWW Wb 






NOV 


25 


004536 

WW^ ^a^V 










BEQ 


26 


004540 

WW^ w 


100673 

1 wvw • ^ 


000005 

wwwww^ 






NOV 

rlW » 


27 


004542 


104653 


000000 

WW WW WW 






NOV 


28 


004544 


100673 


000003 






NOV 


29 


004546 


104653 


000001 






NOV 


30 


004550 


100673 


000004 






NOV 


31 


004552 


104203 


010000 






NOV 


32 


004554 


100673 


000002 






NOV 


33 


004556 


104203 


001400 






NOV 


3A 


004560 


100673 


000006 






NOV 


35 


004562 


104207 


101373 




READ3: 


NOV 


36 


004564 


104203 


100000 






NOV 


37 


004566 


100673 


000000 






NOV 


38 


004570 


060002 








XFC 


39 


004571 


115001 








TST 


40 


004572 










BNE 


41 


004574 


104307 


001374 






NOV 


42 


004576 


102207 


010000 






BIT 


43 


004600 










BNE 


44 


004602 


104207 


002124 






NOV 


45 


004604 


060006 








XFC 


46 


004605 


115001 








TST 


47 


004606 










BEQ 


48 


004610 








LERR: 




49 


004610 


103200 


010000 


001374 




BIC 


50 


004613 


104654 


000003 






NOV 


51 


004615 


102204 


100000 






BIT 


52 


004617 










BNE 


53 


004621 


101204 


100000 






BIS 


54 


004623 


100654 


000003 






NOV 


55 


004625 


115400 


002156 






INC 


56 


004627 


115400 


001711 






INC 


57 


004631 


105205 


000004 




LNOERR: 


ADD 



B 8 
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S£0 92 



ERR 

ERFLAG 

ITBSTGS.FLAG 

LSKIP 

*5,N1 
N1 «NN1 
LSKIP2 

irs.N 

«20.,N1 

NKNNI 

LFIXIT 

UNIT,R2 

SIP 

SECSIZ»R2 

SECTRK.SECCNT 

«CNDBUF,R5 

#RDBLK,RO 

RB.CND(R5),R3 

LNOERR 

R3,RW.CND(R( 

RB.L0U(R5),K \ 

R3,RV.LDy(R0. 

RB.HI(RS),R3 

R3,RU.HI(R0) 

#R0BUF«R3 

R3,RU.BUF(R0) 

»HSLIN-1.R3 

R3,RV.0UN(R0) 

#<BIT15!RDBLK>«R0 

#RDCND*R3 

R3,RU.STAT(R0) 

READ 

R1 

LERR 

RDBLK^RU. ER1.ro 

fECCF.RO 

LERR 

#NUN.RO 

CNPDAT 

R1 

LNOERR 

#ECCF,RDBLK*RU.ER1 

R6.IN(R5),R4 

»8D,R4 

LNOERR 

fBD,R4 

R4,RB.IN(RS) 

RTYCNT 

ERR 

#RDLEN,R5 



FOR ERROR COUNT RESET 

CLEAR REFORNAT FLAG 

BEST GUESS ? 

YES - 00 EXTENSIVE READ 

SET UP FOR STORE 

SET UP 

SAVE FOR LATER RESET 

SKIP EXTENSIVE READ SETUP 

EXTENSIVE REGULAR READ 

EXTENSIVE ERROR READS 

SAVE FOR LATER RESET 

EXECUTE IT 

GET PORT NUMBER 

WAIT FOR PULSE 

SECTOR SIZE IN WORDS 

LOAD SECTORS/TRACK 

POINT TO CONNAND BUFFER 

POINT TO READ COMMAND BLOCK 

READ COMMAND ZERO ? 

SECTOR BAD - SKIP CHECKS 

ELSE STORE IN COMMAND BLOCK 

LOAD LOU ORDER SECTOR NUNBER 

STORE IN CONNAND BLOCK 

LOAD HIGH ORDER BLOCK NUMBER 

STORE IN COMMAND BLOCK 

GET BUFFER POINTER 

STORE IN COMMAND BLOCK 

POINTER TO DUHNY SDI BLOCK 

STORE IN READ BLOCK 

NAKE SURE POINTING AT BLOCK 

RESET STATUS POINTER 

STORE IT BACK 

READ 1 SECTOR 

ANY ERRORS ? 

YES - UN OH 

GET ECC STATUS UORD 

ECC ERROR ? 

YES - NARK AS BAD FOR NOU 
POINT TO COMPARE BLOCK 
DO DATA COMPARE 
ANY ERROR T* COMPARE ? 
NOPE - CONTi.;UE LOOP 

CLEAR ECC ERROR BIT 
GET IMAGE POINTER 
ALREADY BEEN HERE ?? 
YUP - DON'T COUNT AGAIN 
NARK AS BAD 
STORE BACK 
INC IT 

INCRENENT ERROR COUNT 

POINT TO NEXT READ CNO BLOCK 
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LBN FORMAT TING 


OVERLAY 


{F2) 








58 


004633 


1 1 7400 


002137 






DEC 


59 


004635 










BNE 


60 


004637 


117400 


002140 






DEC 


61 


004641 




001711 






BNE 


62 


004643 


115000 






TST 


63 


004645 










6E0 


6A 


004647 


104204 


013022 






nov 


65 


004651 


104643 


000003 




LHERE: 


MOV 


66 


004653 


102203 


100000 






BIT 


67 


004655 










BEQ 


68 


004657 










PUSH 


69 


004660 


104644 


000003 






nov 


70 


004662 


104643 


000002 






NOV 


71 


004664 


103203 


007777 






BIC 


72 


004666 


106203 


000000 






CMP 


73 


004670 










BEQ 


74 


004672 


106203 


060000 






CMP 


75 


004674 










BEQ 


76 


004676 










POP 


77 


004677 










BR 


78 


004701 


104302 


001412 




LSKIP8: 


NOV 


79 


004703 


060012 








XFC 


80 


004704 


104302 


002171 






NOV 


81 


004706 


104207 


001373 






NOV 


82 


004710 


104203 


001400 






NOV 


83 


004712 


100673 


000006 






NOV 


84 


004714 


104643 


000001 






NOV 


85 


004716 


100673 


000003 






NOV 


86 


004720 


104643 


000002 






NOV 


87 


004722 


100673 


000004 






NOV 


88 


004724 


104203 


010000 






NOV 


89 


004726 


100673 


000002 






NOV 


90 


004730 


104203 


013400 






NOV 


91 


004732 


101303 


001565 






BIS 


92 


004734 


100673 


000005 






NOV 


93 


004736 


104207 


101373 




RE/ 04: 


NOV 


94 


004740 


104203 


100000 






NOV 


95 


004742 


100173 








NOV 


96 


004743 


104502 


002171 






NOV 


97 


004745 


060002 








XFC 


98 


004746 


115001 








TST 


99 


A A t ^ t ^ 










BNE 


100 


A A ^ 4 

004751 


104673 


000001 






NOV 


101 


004753 


102203 


010000 






BIT 


102 


004755 










BEQ 


103 


004757 


103200 


010000 


001374 




BIC 


104 


004762 










CALL 


105 


AA J £ 

004764 


115001 








TST 


106 


004765 










BNI 


107 


004767 








LSKIP6: 




106 




106300 


002131 


010000 




CNP 


109 


004772 










BNE 


110 


004774 


104207 


002124 






NOV 


111 


004776 


060006 








XFC 


112 


004777 


115001 








TST 


113 


005000 










BEQ 


114 


005002 










BR 



C 8 
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1 

SEO 93 



SECCNT 
LAGAIN 
N 

LSKIP1 

ERR 

LDONE 

#CNDBUF,R4 

RB.IN(R4),R3 

fBD,R3 

LSKIP7 

R4 

RB.IN(R4),R4 

FT.HI(R4),R3 

fL0,R3 

#ND.LBN,R3 

LSKIP8 

«H0.RBN,R3 

LSKIP8 

R4 

LSICIP7 

UNIT,R2 

SIP 

SECSIZ,R2 

«RDBLK,RO 

fHSLIN-1,R3 

R3,RU.DyN(R0) 

1(R4),R3 

R3,RU.L0W(R0) 

2(R4),R3 

R3,Ry.HI(R0> 

fRDBUF,R3 

R3,RU.BUF(R0> 

«RWCHD,R3 

CURTRK,R3 

R3,RU.CND(R0) 

«<BIT15!R0BLK>,R0 

fR0CND,R3 

R3,(R0) 

SECSIZ,R2 

READ 

R1 

LER3 

RW.ER1(R0),R3 

«ECCF,R3 

LSKIP6 

fECCF.ROBLKtRU.ERI 

ECCCK 

R1 

LER1 

DURD^ROBUF 

LER1 

fNUN.RO 

CHPDAT 

R1 

LOK 

LER1 



DECREMENT COUNTER 
NO - DO NEXT SECTOR 
DECREMENT COUNTER 

NO - REPEAT TRACK READ AND COMPARE 

ANY ERRORS ON FIRST PASS ? 

NO - ALL DONE CHECK PASS 

POINT TO COMMAND BUFFER 

GET IMAGE POINTER WORD 

IS IT BAD ? 

NO - SKIP IT 

SAVE COMMAND POINTER 

GET IMAGE POINTER 

GET HI ORDER BLOCK NUN AND HDR CODE 

CLEAR LOW ORDER 

IS IT A "GOOD" LBN 

YES - DO IT 

IS IT AN RBN ??? 

YES - DO IT 

ELSE RESTORE CONNAND POINTER 

AND DO NEXT ENTRY 

GET rORT NUMBER 

WAIT FOR PULSE 

SECTOR SIZE IN WORDS 

PREPARE FOR READ SECTORS 

POINTER TO OUMNY SDI BLOCK 

STORE IN CONNAND BLOCK 

LO ORDER BLOCK NUNBER 

STORE IN READ CONO BLOCK 

HI ORDER BLOCK NUN AND CODE 

STORE IN READ CND BLOCK 

LOAD ADDRESS OF DATA BUFFER 

STORE IN CONNAND BUFFER 

LOAD SDI READ COMMAND 

SET CURRENT HEAD ADDRESS IN COMMAND 

STORE BACK 

NAKE SURE POINTING AT BLOCK 

NARK AS ONLY REQUEST 

STORE IN CND BLOCK 

SECTOR SIZE IN WORDS 

READ 1 SECTOR 

ANY ERROR IN READ ? 

YES - CONSIDER BAD 

LOAD ECC ERROR INDICATOR FOR TEST 

TEST FOR ECC ERROR 

NO - CHECK EDC 

CLEAR ECC ERROR BIT 

FIND OUT HOW NANY SYMBOLS IN ERROR 

TOO NANY ? 

YUP - CONSIDER BAD 

IS FIRST WORD O.K. ? 
NOPE - BARF 

POINT TO COMPARE BLOCK 
DO DATA COMPARE 
ANY ERROR IN COMPARE ? 
NO ERROR 

SKIP BAD HEADER FLAGGING 



UDAF52 - UDA-S2 FORMATTER DMACR XOA.OI 23-AUG-82 13:U:22 PAGE 56-2 



.BN FORMATTING OVERLAY 


\ r c / 










115 


005004 


101200 


000040 


001703 

W 1 f W^ 


LER3: 


BIS 

W A W 


tBDHD.FLAGl 


116 


005007 


102200 


000100 

WW 1 WW 


001 702 

VW ■ « Wb 


LER1 : 


BIT 


fREVECT.FLAG 


117 


005012 










BNE 

W*^i» 


LER2 


118 


005014 


115400 








INC 


RCTBAD 


119 


005016 










BR 


BDIRCT 


120 


005020 


104643 


000002 

VVWVC 




LER2: 


nov 


FT.HI(R4).R3 


121 


005C22 


103203 


007777 






BIC 


fL0,R3 


122 


005024 


106203 


060000 

Www W 






CNR 


#HD.RBN.R3 


123 


00S026 










BEQ 


BRBN 


124 


005030 


104643 


000002 

V www 






MOV 


FT.HI(R4),k3 


125 


005032 


103203 


170000 

1 1 WW 






BIC 


#HD.CLR.R3 


126 


005034 


102200 


001 000 

WW 1 w wV 


001 702 

WW 1 ■ Wb 




BIT 


fPRIN.FLAG 


127 


005037 










BNE 


SND 


128 


005041 


104030 


001404 

w ■ ~ W^ 






nov 


R3.DDUNNY4^1 


129 


005043 


101200 


001000 

WW 1 W V 


001 702 

VW ■ • Wfc 




BIS 

W • W 


fPRIN.FLAG 


130 


005046 


101200 


000004 

w w WW w^ 


001703 

WW 1 9 w 




BIS 


fRPRIN.FLAGI 


131 


005051 


101203 


050000 

WW 






BIS 


fHD.PRV.R3 


132 


005053 


100643 


000002 

w WWb 






NOV 


RS.FT.HI(R4) 


133 


005055 


104640 


000001 

www 1 


001403 

WW 1 ~ww 




MOV 


FT.L0U(R4) .DDUftflY 


134 


005060 


104042 








MOV 


R4.R2 


135 


005061 


104207 


001525 

WW 1 ^ 






MOV 


fSCR.RO 

w w w 0 n w 


136 


005063 


104204 


001403 

WW 1 ~ 






MOV 


#DDUfWY.R4 

w Wl^^^» ■»! ■ 0 » 


137 


005065 










CALL 


PRINRB 


138 


005067 


104307 


001634 

WW 1 w J~ 






MOV 


REVRBN.RO 


139 


005071 


104301 


001635 

W wf 1 W^^ 






MOV 

■ Www 


REVRBN^I .Rl 


UO 


005073 


105301 


00201 0 

WW^W 1 V 






ADD 


ST.RBN.R1 


141 


005075 


101201 


060000 

wwww w 






BIS 

w 


fHD.RBN.R1 


142 


005077 


104205 


011607 






MOV 


fPMBUF.RS 


143 


005101 


104203 


000200 

W w 






MOV 


fRBNRPT.R3 


144 


005103 


100257 






RPT1: 


NOV 


RO.(RS>^ 


145 


005104 


100251 








NOV 


01 (RS)* 


146 


005105 


117403 








DEC 


R3 


147 


005106 










BNE 


RPT1 


148 


005110 


104024 








NOV 


R2.R4 


149 


005111 


104205 


011607 






NOV 


fPRNBUF.RS 


150 


005113 


104642 


000000 






NOV 


FT.BUF(R4).R2 


151 


005115 


103202 


007777 






BIC 


f8UFNSK.R2 


152 


005117 


101052 








BIS 


R5,R2 


153 


005120 


100642 


000000 






NOV 


R2.FT.BUF(R4) 


154 


005122 


104202 


011607 






NOV 


#PRNBUF.R2 


155 


005124 


104307 


002171 






NOV 


secsIz.ro 


156 


005126 










CALL 


cedc 


157 


005130 


102200 


020000 


001703 




BIT 


fNODE.FLAGI 


158 


005133 










BEQ 


IS 


159 


005135 


100623 


000440 






NOV 


R3.RU.E76(R2> 


160 


005137 










BR 


2$ 


161 


005141 


100623 


000400 

w W W^WW 




1$: 


NOV 


R3.RU.EDC(R2) 


1o2 


005U3 


103200 


000040 

w ww~w 


001703 


2S: 


BIC 

WAV 


fBDHD.FLAGI 


163 


005146 










BR 


LSND 


164 


005150 


117400 


002136 




BRBN: 


DEC 


ERRCNT 


165 


005152 


102200 


001000 

WW • www 


001 702 




BIT 


fPRIN.FLAG 


166 


005155 










BEa 


7S 


167 


005157 


104203 


015763 






NOV 


#INAGE.R3 


168 


005161 


104632 


000002 




5$: 


NOV 


FT.HI(R3>,R2 


169 


005163 


103202 


007777 






BIC 


#L0,R2 


170 


005165 


106202 


050000 






CNP 


#HD.PRV,R2 


171 


005167 










BEQ 


6S 



SEQ 94 



FLAG AS BAD HEADER 
IN RCT 

NOPE - SKIP NcXT STUFF 
INC BAD COUNTER 
THEN NARK BAD 

GET HI ORDER BLOCK NUN AND HDR CODE 

CLEAR LOW ORDER 

IS IT A BAD RSN ? 

YUP - GO HANDLE IT 

RELOAD HEADER 

CLEAR THE HEADER 

ANY PRINARY YET ? 

YUP - THIS ONE SECONDARY 

STORE HIGH ORDER FOR RBN COMPUTATION 

SET PRINARY FLAG 

SET good RBN EDC NEEDED 

NARK AS PRINARY 

STORE BACK IN INA6E 

STORE LOW ORDER FOR RBN CONFUTATION 

SAVE INAGE POINTER 

MAKE SURE POINT TO CHAR BLOCK 

POINT TO BLOCK NUNBER 

GET PRINARY RBN NUNBER 

GET NUNBER OF REVECTORED RBN 

GET HIGH ORDER 

ADD IN STARTING BITS 

SET IN RBN HEADER CODE 

USE RDBUF TO HOLD 128 COPIES OF RBN 

COUNT OP REPLICATED RBN'S 

STORE A COPY 

AND HIGH ORDER 

DECREMENT COUNTER - DUNE ? 

NO - STORE ANOTHER COPY 

RESTORE INAGE POINTER 

POINT TO BEGINNING OF BUFFER 

GET BUfFER POINTER 

CLEAR ONLY BUFFER POINTER 

OR IN NEW BUFFER POINTER 

STORE IT BACK 

FOR EDC COMPUTATION 

SECTOR SIZE IN WORDS 

COMPUTE IT 

WHAT NODE ARE WE IN 

IF CLEAR THEN 512 

STORE IT 576 BUFFER 

SKIP 512 SETUP 

STORE IT 512 BUFFER 

WAN'T TO STAY PRINARY 

BRANCH AROUND SECONDARY 

DEC ERR CNT SO PRINARY STATS WILL BE RIGHT 

IS THERE A PRINARY ON THIS TRACK ? 

NO - SKIP HEADER RESET 

POINT TO FORNAT TABLE 

GET HEADER WORD 

CLEAR ALL BUT HEADLR 

IS IT THE PRINARY ? 

YES - DONE 



E 8 
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#INLEN,R3 
5$ 

FT.HI(R3).R2 

#HD.CLR,R2 

»HD.REV,R2 

R2,FT.HI(R3) 

#6DBLK,R2 

FT.BUF(R3),R5 

#BUFMSK,R5 

R2.R5 

R5.FT.BUF(R3) 
ERPNT.R5 
#FPRIM.FLA61 
9$ 

«ERLEN,R5 

1(RS).R2 

#L0.R2 

#HD.PRV,R2 

8S 

1(R5),R2 

#HD.CLR,R2 

#HD.REV,R2 

R2J(R5> 

SNDCNT 

fRPRIM,FLAG1 

fBOHD^FLAGI 

fPRIN.FLAG 

FT.HHR4).R3 

#HD.CLR,R3 

#HD.BAD,R3 

R3.FT.HI(R4) 

«REVECT.FLAG 

LSNO 

LSKIP3 

#8DHD,FLAG1 

BDIRCT 

fH0.REV,R3 

R3,FT.HI(R4) 

SNDCNT 

ERFLAG 

ERPNT,R3 

FT.L0V(R4),R2 

R2,(R3)* 

FT.HI(R4),R2 

fSDHD.FLAGl 

LSKIP9 

«HD.CLR,R2 

fHD.REV,R2 

SNDCNT 

R2.(R3)* 

R3.kRPNT 

REVCNT 

ERRCNT 

LSKIP3 

N1 

LSKIP8 
NN1 ,N1 



SEQ 9S 



LBN FORMATTING OVERLAY 










172 


005171 


105203 


nnnnnx 

vvwvv J 






ADD 


173 


005173 










BR 


174 


005175 


104632 








NOV 

rfV T 


175 


005177 


103202 


1 70000 






BIC 


176 


005201 


101202 


w JIvwvV 






BIS 

DA V 


177 


005203 


100632 


vvvWC 






NOV 

nv w 


178 


005205 


104202 


01 1 1 53 






MOV 


179 


005207 


104635 


000000 






MOV 


180 


005211 


103205 


007777 






BIC 


181 


005213 


101025 








BIS 


182 


005214 


100635 


000000 

WWW 






MOV 


183 


005216 


104305 


001 737 






MOV 


184 


005220 


102200 


0^0000 


00'* 703 

W > r V J 




BIT 


185 


005223 










BNE 


186 


005225 


107205 


00000? 




fiS: 


SUB 


187 


005227 


104652 


000001 






MOV 

nv w 


188 


005231 


103202 


007777 






BIC 


189 


005233 


10620? 


050000 

WW 






CMP 


190 


005235 










BNE 


191 


005237 


104652 


000001 

WV W 1 






MOV 


192 


005241 


103202 


170000 

1 ■ WW 






BIC 

WAV 


193 


005243 


101202 


030000 

w JWW 






BIS 

0* V 


194 


005245 


100652 


000001 

W Wv ■ 






NOV 


195 


005247 


115400 


002155 

WC 1^-0 


001 703 

W > f V^ 


9S: 


INC 


196 


005251 


103200 


000004 


7t: 


BIC 

WAV 


197 


005254 


103200 


000040 

WW~ V 


001703 


BIC 

WAV 


198 


005257 


1 CI 200 


001 000 

w I wv 


001 702 

VV ■ ■ V£ 




BIS 

WA «# 


199 


005262 


104643 


000002 




BDIRCT: 


MOV 


200 


005264 


103203 


170000 

1 > WW 






BIC 

0A V 


201 


005266 


101203 


110000 

1 f V V w 






BIS 

OA V 


202 


005270 


100643 


000002 

WWV& 


001 702 

VV 1 ' v& 




MOV 

nv w 


203 


005272 


102200 


0001 oc 

wv ■ w 




BIT 

OA 1 


204 


005275 










BNE 


205 


005277 










BR 

W"» 


206 


005301 


102200 


000040 

VVVV^ V 


001703 

W I ■ Vrf 


SND: 


BIT 

W A * 


207 


005304 










BNE 


208 


005306 


101203 


030000 

v^ wvv 






BIS 


209 


005310 


100643 


000002 

V w 






MOV 


210 


005312 


115400 


0021 55 






INC 


211 


005314 


115400 


001 704 




LSND: 


INC 


212 


005316 


104303 


001 737 






MOV 


213 


005320 


104642 


000001 

wv w * 






MOV 


214 


005322 


100232 








MOV 


215 


005323 


104642 


000002 

V V V V Vfc 


001703 




MOV 


216 


00532S 


102200 


000040 

vvvv^v 




BIT 


217 


005330 










BEQ 


218 


005332 


103202 


170000 

V % WW 






BIC 

WA V 


219 


005334 


101202 


030000 

V^ WW 






BIS 

OA V 


220 


005336 


115400 


002155 




LSKIP9: 


INC 

A*wV 


221 


005340 


100232 






HOv 

nw w 


222 


005341 


104030 


001 737 






NOV 


221 


005343 


115400 


001741 






INC 


22*^ 


005345 


115400 


002136 






INC 


225 


005347 










BR 


226 


005351 


117400 


002141 




LOK: 


DEC 


227 


005353 








LSKIP3: 


BNE 


228 


00S3SS 


104300 


002142 


002141 


NOV 



:N0 - POINT TO NEXT ENTRY 

.CHECK NEXT ENTRY 

: RESET TO HI ORDER 

: CLEAR HEADER 

;MARK AS SECONDARY 

; STORE BACK 

;POINT TO GOOD BLOCK 

:GET BUFFER POINTER AND FLAGS 

;CLEAR ONLY BUFFER POINTER 

:0R IN NEW BUFFER POINTER 

;MOVE IN BUFFER POINTER AND FLAGS 

:GET RFVECTOR POINTER 

;WAS IT A PRIMARY FROM THE FCT ? 

;YES - UPDATE WILL MAKE IT SECONDARY 

;LOOK FOR PRIMARY BACKWARDS 

;GET HIGH ORDER 

.•CLEAR LO STUFF 

;IS IT THE PRIMARY ? 

;N0 - KEEP LOOKING 

;GET HIGH ORDER AGAIN 

: CLEAR THE HEADER 

;HAKE IT SECONDARY 

; STORE IT BACK 

:INC SECONDARY COUNTER 

; DON'T NEED GOOD EDC ANY LONGER 

; CLEAR SC WILL PUT IN AS R6N 

;SET SO NONE WILL BE PRIMARY 

;RELOAD HEADER 

.•CLEAR THE HEADER 

.-MARK AS BAD 

.•STORE BACK IN IMAGE 

•IN RCT "* 

•NO - PUT IN TO REVECTOR 
;E1.SE DO NEXT ENTRY 
;BAD HEADER ? 
;YUP - MARK AS BAD 
.'MARK AS SECONDARY 
: STORE BACK IN IMAGE 
;1NC IT 

;SET RE-FORMAT FLAG 
.•STORE BACK 

;GET LOW ORDER BLOCK NUMBER 

.•STORE FOR RCT UPDATE 

;GET HIGH ORDER 

:BAO HEADER ? 

;N0 - HANDLE AS USUAL 

.ELSE CLEAR BAD HEADER CODE 

.AND PUT IN SECONDARY CODE 

:INC SECONDARY COUNT 

.-STORE FOR RCT UPDATE 

.•STORE BACr 

.•INCREMENT ;T 

;UP COUNTER OF BAD BLOCKS 

:N0 NEED TO RE-READ ANY MORE THIS SECTOR 

.•DECREMENT COUNTER 

;N0 - RE-READ SECTOR IN ERROR 

:GET SAVED VALUE 
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nos'^0 


1 1 7400 


001711 






DEC 




V\I7 JVC 










POP 






103200 


000040 

WwWW" W 


001703 

WW 1 ■ wW 


LSKIP7: 


BIC 






105204 


000004 






ADD 


C WW 


005370 


115000 

1 1 WwwV 


001 71 1 

WW 1*11 






TST 

■ w ■ 


234 


005372 

vV^W> c 










BNE 


235 

C W^ 


005374 


11500d 


001704 

WW I ■ w^ 






TST 


236 


005376 

WW W W i U 










BEQ 


237 


005400 


104207 


014154 






NOV 


238 


005402 


104301 

1 W^WW 1 


0021 31 

WWfc I W I 






NOV 


239 

C W^ 


005404 

W W^ w^ 


100271 








NOV 

nw w 




005405 

w W^w w 


102200 

1 wCC vw 


020000 

w t wwww 


001703 

WW I ■ w^ 




BIT 

WA ■ 


241 

^42 


005410 










BEQ 

WW " 


005412 

wwW"» 1 C 


104204 

1 W^fc W^ 


000437 

WWW" ■ 






NOV 

riw w 


243 


005414 

wW W^ 1 ~ 










BR 


244 


005416 

VW W^ 1 w 


104204 


000377 




1$: 


NOV 


245 


005420 

WW V V W W 


104301 


002126 

W Wb V b w 




2S: 


NOV 


246 


00S422 

WW b 


104302 


002127 






NOV 


247 


005424 

VWW^b~ 


104303 


002130 

W Wb » rfW 






NOV 


248 


005426 


100271 






LOVER: 


NOV 


249 


005427 


117404 

1 1 r ^w^ 








DEC 

Ir W V 


250 


005430 

VwW*t WV 










BEQ 

WWW 


251 


005432 

WWW** WC 


100272 








mv 


252 


005433 

W W*9 WW 


117404 








DEC 


253 


005434 

WW w^ w^ 










BEO 

WWW 


254 

c w^ 


005436 

WW W~i^V 


100273 

1 VWfc ■ w 








NOV 

• TW w 


255 

c w w 


005437 


117404 

■ If ^w^ 








DEC 

WW V 


256 


005440 










BNE 

W'wW 


257 


005442 

WW ^ » ~ 


102200 


020000 


001703 


L0VER5: 


BIT 


2)8 


005445 

WW ^ T ~ ^ 










BEO 

WW V 


259 

C WT 


005447 

WW ■ 


104302 

1 V^WV& 


002135 






NOV 

nww 


260 


005451 




002133 

WWfc ■ 






BR 

w»» 


261 


005453 


104302 




1$: 


NOV 


262 


005455 


100272 






2$: 


NOV 


263 

C wW 


005456 

WW v~ ^ w 


102200 

1 W w b W W 


000004 

WW^f w w ^ 


001703 




BIT 


264 


005461 










BEO 


265 


005463 


104203 


015763 






NOV 


266 


005465 


104205 


011132 






NOV 


267 


005467 


104632 


000002 




L0VER4 : 


NOV 


268 


005471 


103202 


Will 






BIC 


269 


005473 


106202 


060000 






CHP 


270 


005475 










BEO 


271 


005477 


105203 


000003 






ADD 


272 


005501 

WW ^ ^ W I 










BR 

W** 


273 


005503 


104632 


000000 




L0VER3: 


NOV 


274 


005505 


103202 


007777 






BIC 


275 


005507 


101052 








BIS 


276 


005510 


100632 


OOOOOC 






NOV 


277 


005512 


104304 


002006 




L0VER2: 


NOV 


278 


005514 


104303 


002005 






NOV 


279 


005516 


104307 


002004 






NOV 


i?80 


005520 


104301 


001565 






NOV 


281 


005522 


104302 


mm 






NOV 


282 


005524 


104205 


015763 






NOV 


283 


C05526 


060001 








XFC 


284 


005527 


115001 








TST 


285 


005530 










BEQ 



F 8 
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SEQ 96 



ERR 
R4 

#B0HD,FLAG1 

fRDLEN,R4 

ERR 

LHERE 

ERFLAG 

LDONE 

#RBNBUF,RO 

DURD^RI 

R1,(R0)* 

#N0DE,FLAG1 

1$ 

#287. «R4 
2$ 

#255., R4 

fURD.RI 

SWRD,R2 

TURD,R3 

R1,(R0)« 

R4 

L0VER5 

R2,(R0)* 

R4 

LOVERS 
R3.(R0)« 

R4 

LOVER 

«N0OE,FLAG1 
1$ 

BA0E76.R2 

BADE0C,R2 

R2,(R0)* 

fRPRlN.FLAGI 

L0VER2 

fINAGE«R3 

fGOBLIC.RS 

FT.HI(R3),R2 

fL0,R2 , 

#HD.R|N,R2 

LOVERS 

fINLESi,R3 

LOVER* ^ 

FT.BUr(R3),R2 

#BUFNSK,R2 

RS,R2 

R2,FT.BUF(R3) 

DPREA,R4 

HPREA.R3 

INSTAR.RO 

CURTRK,R1 

SECSIZ,R2 

#IMAGE«R5 

FORNAT 

R1 

L0VER1 



DECREMENT IT 

RESTORE CONHAND POINTER 

CLEAR BAD HEADER FLAG 

POINT TO NEXT ENTRY 

DONE ALL SECTORS ? 

NO - DO NEXT SECTOR 

WERE THERE ANY BAD SECTORS FOUND 

NOPE - ALL DONE 

POINT TO RBN BUFFER 

DIAGNOSTIC WORD 

STORE IT 

UHAT NODE ARE WE IN 

IF CLEAR THEN 512 

ELSfc 576 • USE 287 AS WORD COUNT 

SKIP 512 SETUP 

yORD COUNT FOR 512 NODE 

FIRST WORD OF PATTERN 

SECOND WORD OF PATTERN 

THIRD WORD OF PATTERN 

STORE IT 

DECRCNENT COUNT 

QUIT IF 0 

STORE IT 

DECRENENT COUNT 

QUIT IF 0 

STORE IT 

DECRENENT COUNTER 

REPEAT TILL DONE 

UHAT NODE ABE UE IN 

IF CLEAR THEN 512 

EDC FOR PATTERN (576) FORCED ERR 

SKIP 512 SETUP 

EDC FOR PATTERN (512) FORCED ERR 
STORE IT 

NEED GOOD RBN EDC ??? 
NOPE 

POINT TO INAGE 
POINT TO GOOD BLOCK 
GET HI ORDER 
CLEAR JUNK 
IS IT THE PRIMARY ? 
YUP - HANDLE IT 
CHECK NEXT ENTRY 
TRY AGAIN 

GET BUFFER POINTER 
CLEAR ONLY BUFFER POINTER 
SET IN NEU BUFFER POINTER 
STORE IT 

DATA PREAMBLE LENGTH 

HEADER PREANBLE LENGTH 

POINT TO TRACK INAGE START POINT 

CURRENT TRACK NUMBER 

SECTOR SIZE IN UORDS 

RECIRCULATION ADDRESS 

RE-FORMAT 

ANY PROBLENS ?? 

NO - DO CHECK PASS 



C 8 
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286 005532 

287 00553A 

288 005537 

289 005541 

290 005543 

291 005545 

292 005550 

293 005552 

294 005554 

295 005556 

296 005560 



115400 
106300 



001371 
002165 



001371 



104300 002146 001553 



114000 001371 



L0VER1 
LDONE: 



INC UN.ERI 

CW> RETRY, UN.ERI 

BMI FORERR 

CALL INITPT 

CALL CLEAR 

NOV CURGRP,ISEEKt3 

CALL SEEK 

BR L0VER2 

CLR UN.ERI 

BR LCHEC 

RETURN 



INCREMENT IT 

DONE ALL RETRIES ? 

YUP - ERROR 

REINIT 

DRIVE CLEAR 

GROUP 

RE-SEEK AND GROUP SELECT 
NOPE - RETRY 
CLEAR RETRY COUNT 
RE-CYCLE CHECK PASS 



H 8 
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1 



CONSTRUCT THE READ COHHAND TAi 



« 

5 
6 


005562 


104300 


001606 


002137 LFIXIT: 


NOV 


SECTRK.SECCNT 


7 


005565 


104207 


013022 


mv 


#CNDBUF«RO 


8 


005567 


104205 


015763 




NOV 


#INAGE«R5 


9 


005571 


104303 


001716 




NOV 


SKPCNT,R3 


10 


005573 


105035 






ADD 


R3,R5 


11 


005574 


104050 


001715 




NOV 


R5«STARIT 


12 


005576 


104653 


000002 


LMORE: 


NOV 


2(R5).R3 


13 


005600 


103203 


007777 




Bit 


#L0«R3 


14 


005602 


106203 


000000 




CNP 


fHD.LBN,R3 


15 


005604 








BEQ 


FLKIP2 


16 


005606 


106203 


060000 




CNP 


#HD.RBN«R3 


17 


005610 








BEQ 


FLKIP2 


18 


005612 


114003 






CLR 


R3 


19 


005613 


100673 


000002 




NOV 


R3«RB.CN0(R0) 


20 


005615 


105207 


000004 




ADD 


#R0LEN«R0 


21 


005617 


104653 






BR 


FLKIP1 


22 


005621 


000001 


FLKIP2: 


NOV 


1(R5),R3 


23 
24 


005623 


100273 






NOV 


R3«(R0)^ 


005624 


104653 


000002 




NOV 


2(R5).R3 


25 


005626 


100273 






NOV 


R3«(R0)* 


26 


005627 


104203 


013400 




NOV 


#RUCND«R3 


27 


005631 


101303 


001565 




BIS 


CURTRK.RS 
R3,(R0W 


28 


005633 


100273 






NOV 


29 


005634 


100275 






NOV 


R5,(R0)* 


30 


005635 


105305 


001717 


FLKIP1 : 


ADD 


T6LK,R5 


31 


005637 


106305 


001714 




CNP 


EINAGE«R5 


32 


005641 








BEQ 


LREDO 


33 


005643 








BPL 


FLKPI 


34 


005645 


107305 


001714 




SUB 


EINA6E«R5 


35 


005647 


105205 


015763 




ADD 


#IHAGE«R5 


36 


005651 








BR 


FLKP1 


37 


005653 


104205 


015763 


LREDO: 


NOV 


#INAGE«R5 


38 


005655 


106305 


001715 


FLKP1 : 


CNP 


STARIT,R5 


39 


005657 








6NE 


FKIP9 


40 


005661 


105205 


000003 




ADD 


fINLEN,R5 


41 


005663 


104050 


001715 




NOV 


R5«STARIT 


42 


005665 


117400 


002137 


FKIP9: 


DEC 


SECCNT 


43 


005667 








BNE 


LNORE 


44 


005671 








RETURN 





INIT COUNTER 

CONNAND BUFFER 

POINT TO TRACK INAGE 

GET STARTING OFFSET (TUNED) 

POINT TO FIRST ENTRY 

NARK STARTING ADDRESS 

SET UP FOR HSR CODE CONPARE 

ISOLATE HI 4 BITS(HDR CODE) 

GOOD LBN ? 

YES • HARK AS GOOD TO CHECK 
GOOD R8N ? 

YES - NARK AS GOOD TO CHECK 

CLEAR FOR STORE 

STORE AS BAD SECTOR FLAG 

POINT TO NEXT BLOCK 

SKIP GOOD NARK 

10 ORDER BLOCK NUNBER 

STORE IN READ COND BLOCK 

HI ORDER BLOCK NUN AND CODE 

STORE IN READ CND BLOCK 

LOAD SDI READ CONNAND 

SET IN CURRENT TRACK NUNBER 

STORE IN BLOCK 

SAVE PTR TO INAGE BLK ENTRY 

ADD TO GET NEXT SECTOR 

SEE IF HAVE TO LOOP BACK TO TOP 

NEED TO RESET 

NO NEED - JUST CONTINUE 

SUBTRACT TO GET LOOP ANOUNT 

AND ADD OFFSET 

SKIP ZERO CONDITION 

IF ZERO SINPLY NOVE TO FRONT 

AT BEGINNING ADDRESS ? 

NO - JUST CONTINUE 

ELSE POINT TO NEXT ENTRY 

NAKE IT NEW STARTING ADDRESS 

DECRENENT 

NO - DO NEXT SECTOR 
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1 
2 
3 
4 
5 
6 
7 



005673 



OOAOU 
004017 

8 004021 

9 004024 

10 004026 

11 004030 

12 004032 

13 004034 

14 004036 

15 004040 

16 004042 

17 004044 

18 004046 

19 004051 

20 004053 

21 004055 

22 004057 

23 004061 

24 004064 

25 004066 

26 004070 

27 004072 

28 004074 

29 004076 

30 004100 

31 004102 

32 004104 

33 004106 

34 004114 

35 004117 

36 004121 

37 004123 

38 004125 

39 004130 

40 004133 

41 004133 

42 004135 
43 

44 
45 

46 004137 

47 004140 

48 004142 

49 004144 

50 004146 

51 004150 

52 004152 

53 004154 

54 004156 

55 004157 

56 004160 

57 004161 



104200 
104207 
102200 



000025 
001525 
020000 



104673 000011 



104673 
103203 
104030 
104205 
104203 
104304 
102200 



000015 
177400 
002137 
015763 
011132 
002132 
020000 



100624 000440 



100624 
103200 
104203 
100653 
104303 
100653 
104303 
103203 
101203 
100653 
105205 

102200 

117400 

101200 
104300 



000400 
001000 
011132 
000000 
001566 
000001 
001567 
170000 
000000 
000002 
000003 

000100 

001720 

020000 
001722 



117400 002137 



104207 
104673 
103203 
104030 
104207 
104201 
104302 
104213 
100273 
117402 



001525 
000004 
177600 
012137 
014154 
011132 
002171 



001636 
001703 



LTRK: 



1$: 
2S: 



001703 



001702 



3$: 
4$: 

LKIP2: 



001702 



001702 
001777 



LK1P9: 



LK1P8: 
LKIP20: 



.SBTTL LBN FORMAT IMAGE SEl 
DMOVLY F8, START 

SET UP TRACK FORMAT 



MOV 

MOV 

BIT 

BNE 

MOV 

BR 

MOV 

BIC 

MOV 

MOV 

MOV 

MOV 

BIT 

BEQ 

MOV 

BR 

MOV 

BIC 

MOV 

MOV 

MOV 

MOV 

MOV 

BIC 

BIS 

MOV 

ADD 

OUBINC 

BIT 

BNE 

DEC 

BNE 

BIS 

MOV 

DEC 
BNE 



fF8,CUR0VL 
fSCR.RO 
«M0DE,FLAG1 
1$ 

LBNT12(R0),R3 
2$ 

LBNT76(R0),R3 

fHIBYTE*R3 

R3«SECCNT 

«IMAGE.R5 

#G0BLK,R3 

EDC,R4 

fMOOE.FLAGI 

3$ 

R4,RV.E76(R2) 
4S 

R4,RU.EDC(R2) 

#PRIM«FLA6 

fGDBLK.RS 

R3,FT.ByF(R5) 

CURBN,R3 

R3.FT.LOU(R5) 

CURBNO,R3 

fHD.CLR.RS 

fH0.LBN.R3 

RS^FT.HKRS) 

fIMLEN»R5 

CURBN 

«REVECT,FLA6 
LKIP9 
RCTTOT 
LKIP9 

fINIRCT«FLA6 
FCNTABNBAD 

SECCNT 
LKIP2 



R6N SETUP 

PUSH R5 

MOV fSCR^RO 

MOV RBNTRK(R0)>R3 

BIC #HI1BYTE,R3 

MOV R3, SECCNT 

MOV fRBNBUF.RO 

MOV fGDBLK.RI 

MOV SECSIZ,R2 

MOV (R1)^.R3 

MOV R3,(R6)« 

DEC R2 

BNE LKIP20 



OVERLAY (F8) 



GET OVERLAY OFFSET 

POINT TO CHARACTERISTICS BLOCK 

UHAT MODE 

IF SET THEN 576 

GET LBN/TRACK FOR 512 

SKIP 576 SETUP 

GET LBN/TRACK FOR 576 

CLEAR HIGH BYTE 

USE AS COUNTER 

POINT TO TRACK IMAGE BUFFER 

POINT TO DATA BLOCK 

GET 6000 EDC 

WHAT MODE APE UE IN 

IF CLEAR THEN 512 

STORE IT 576 BUFFER 

SKIP 512 SETUP 

STORE IT 512 BUFFER 

CLEAR PRIfURY FUG 

POINT TO GOOD DATA BLOCK 

STORE IN IMAGE BLOCK 

GET LOU ORDER BLOCK NUPBER 

STORE IN IMAGE BLOCK 

GET HIGH ORDER BLOCK NUMBER 

CLEAR HEADER 

SET IN LBN HEADER 

STORE IN IMAGE BLOCK 

POINT TO NEXT ENTRY 

INCREMENT BLOCK NUMBER 

STILL IN RCT AREA ? 

NO > NO NEED TO DECREMENT 

DECREMENT IT 

OUT OF RCT ? - NO 

SET TO INIT RCT 

GET FCT ENTRY COUNT - AFTER RCT 

.•DECREMENT COUNTER 
.•CONTINUE TILL DONE ALL 



SAVE POINTER TO FIRST RBN ENTRY 

POINT TO CHARACTERISTICS 

GET RBN'S/TRACK 

CLEAR HIGH GARBAGE 

USE AS COUNTER 

POINT TO RBN BUFFER 

POINT TO GOOD BLOCK 

COUNT OF WORDS IN SECTOR 

GET WORD 

STORE TI 

DECREMENT COUNTER 
DO WHOLE BUFFER 



J 8 
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CO 


OChIOj 


1 02200 


AOAAAA 
020000 


CO 


OOhIoO 




AA01 

002135 


60 


AAy 1 7A 

00*170 


4 Ay vno 
10*302 


ol 


t\t\J 1 70 






be 


f\f\J 1 7/ 


1 Ay TAO 

10*302 


AA01 

002133 




OUhI rO 


1 AA070 

1002r2 




o*» 


nA/.177 

UOhI f f 


1 AZOAY 

10*203 


A1Z1 CZ 

01*1 5* 


o5 


OOhcUI 


1 AAACT 

lUVo53 


AAAAAA 


DO 


UOhcUJ 


1 AZ YAT 


AA1 CA1 
UOl 30 1 


Of 


nn/ one 


100053 


AAAAA1 

000001 


AS 


nnAon7 


inz7AT 


AA1 CAO 
UU 1 30e 


ov 


AAZO1 1 
UVHCll 


1AY3AT 

103203 


1 7AAAA 
1 r OUOO 




AAy oi T 


4 A4 OAY 

1 01 203 


AAAAAA 

oooooo 


f\ 




1 AAACT 

100053 


AAAAAO 

000U02 


70 
f c 


AAy 01 7 


1 ACOAC 

105205 


AAAAAT 

000003 


f J 


nnz.001 






tL 
fH 




1 1 7ZAA 


nnoi X7 

MMC 1 3r 










f o 








77 

f r 








7Q 


Arty on 

0(M£3J 


1 AZTAA 

10*300 


AA1 AAA 

001 000 


rV 


UVH^ JO 


1 A/ OAZ 

10*20* 


A1 C7AT 

01 5r^03 




AAAOzn 
UUhchU 


1 AZOAl 

10*203 


Am 

001 525 


o 1 


AAAOZO 


1 02200 


AOnnAA 


oc 


AAZOZC 

0U*c*»5 






SI 


AAZO/ 7 


10*032 


AAAAI C 


OH 


AAy OC1 
UU*£51 


lAAATO 
IUhOjc 




05 


UU*»c5j 


AAAAI 1 


00 




1 1 A7AO 




87 

or 


AAZOCA 


1ATOAO 

1 U3£Ue 


1 77Ann 


00 


AAZOAA 


1 1 <nn9 




BO 

oy 


AAZ0A1 






OA 
TV 


AAZ0A7 
UU*»c0j 


1 1 ?nnn 


AA01 AA 

UUc 1 HO 


CI 


nA£?AC 
1/U*tc03 






OO 

Vc 


AA6?A7 
0U*»e0f 


1 A/AOn 


nnizin 


ox 


nnA97i 


11 ^nnn 


nni£i 1 

UU 1 H 1 1 


OA 


nnA97^ 

UU*»t f J 


1 AZTAA 


nn9i^A 

UU£ 1 HO 


t3 


AAA 57^ 


1 1ZAAA 
1 IHUWI 


nni L(u^ 

UU 1 HUH 


OA 
TO 


AAA «AA 


1 AZOAT 
1 UHCwJ 


nni Ain 

UU 1 H 1 U 


07 


AAZ »AO 


1 AZOnZ 


AAiZAT 
UU IHUj 


on 

TO 


AAy TA/ 






OO 


A/VATAX 


inA?no 

\\t03WI 


AA1AAA 
UU lOwO 


inn 


nn^xi 1 






ini 


AAZtl T 




nniAnA 

UU 1 OUO 


in5 


nn^Ti A 

UU*»j 10 






inT 




in^^nn 


nnnnn^ 


1 AZ. 




' '^nnn 


nniAi 1 

UU 1 H 1 1 








nniAin 

UU 1 H 1 U 


inA 










004331 


104143 




108 


004332 


104304 


001714 


109 


004334 


107034 




110 


004335 


104040 


002004 


111 


004337 


104300 


001602 


112 


004342 


104300 


001603 


113 


004345 


102200 


000001 


1U 


004350 







001703 



IS: 
2S: 

LKIP21 



002137 
001703 



1$: 
2$: 



001403 

001403 
001403 
001410 



BIT 
BEQ 
MOV 
BR 

nov 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

BIC 

BIS 

MOV 

ADD 

DU6INC 

DEC 

BNE 



LKIP23: 
LKIP24: 



001563 
001564 
001702 



LKIP22: 
LKIP27: 



«M00E,FLAG1 
IS 

BADE76,R2 
2S 

BADEDC,R2 

R2,(R0)* 

«RBNBUF.R3 

R3,FT.BUF(R5) 

CURRBN,R3 

R3.FT.LOU(R5) 

CURRBN*1.R3 

«HD.CLR,R3 

#HD.RBN,R3 

R3.FT.HI(RS) 

flHLEN.RS 

CURRBN 

SECCNT 

LKIP21 



MOV 


SECTRK. SECCNT 


MOV 


#IMAGE.R4 


MOV 


#SCR.R3 


BIT 


fMOOE.FLAGI 


BEO 


IS 


MOV 


0FFS76(R3).R2 


BR 


2S 


MOV 


OFFS12(R3).R2 


SUAB 


R2 


BIC 


#HIBYTE.R2 


TST 


R2 


BEQ 


LKIP22 


TST 


CURGRP 


BEQ 


LK I P22 


MOV 


R2.TEMP 


CLR 


TEMP+1 


MOV 


CURGRP, DDUMNY 


CLR 


DDUHMY^I 


MOV 


«TEHP,R3 


MOV 


«DDUNNY.R4 


CALL 


DNUL 


CMP 


SECTRK. DDUNRY 


BPL 


LKIP24 


SUB 


SECTRK.DDUHNY 


BR 


LKIP23 


MOV 


#IHLEN.TeMP 


CLR 


TEMP*1 


MOV 


fTENP,R3 


CALL 


DNUL 


MOV 


(R4).R3 


MOV 


E IMAGE. R4 


SUB 


R3.R4 


NOV 


R4.IMSTAR 


NOV 


HOLDPN.CURPBN 


MOV 


HOLDPN^I.CURPBN^I 


BIT 


#FCTAVL.FLAG 


BEO 


LKIP28 



WHAT MODE ARE WE IN 
IF CLEAR THEN 512 

EDC FOR PATTERN (FORCED ERROR IND) 
SKIP 512 

EDC FOR PATTERN (FORCED ERROR IND) 

STORE IT 

POINT TO BUFFER 

STORE IN IMAGE 

GET LOU ORDER RBN 

STORE IN IMAGE 

GET HIGH ORDER RBN 

CLEAR HEADER 

SET IN RBN HEADER 

STORE IN IMAGE 

POINT TO NEXT ENTRY 

INCREMENT RBN NUMBER 

DECREMENT COUNTER 

CONTINUE TIIL DONE 



SET UP COUNTER 

POINT TO IMAGE 

POINT TO CHARACTERISTICS 

WHAT MODE ARE WE IN 

IF CLEAR THEN 512 

GET GROUP OFFSET (576) 

SKIP 512 

GET GROUP OFFSET (512) 

GET INTO LOUBYTE 

CLEAR HIGH GARBAGE 

ANY OFFSET ? 

NO - SKIP CALCULATIONS 

IS GROUP ZERO ??? 

YES - NO OFFSET 

STORE IT 

FOR STORE 

GET CURRENT GROUP 

CLEAR HIGH WORD 

FOR MUL 

DITTO 

MULTIPLY TO GET OFFSET FOR THIS GROUP 

IS TOTAL OFFSET MORE THAN NUMBER OF SECTORS 

NO - ALL IS FINE 

YES - SUBTRACT TILL IT IS 

CHECK AGAIN 

GET LENGTH OF IMAGE BLOCK 
FOR STORE 
FOR NULT 

GET LENGTH TO OFFSET 
GET RESULT 

GET ADDRESS OF END OF IMAGE 

SUBTRACT TO GET STARTING LOCATION 

STORE IMAGE POINTER 

GET LOU ORDER PBN 

GET HIGH ORDER 

IS FCT AVAILABLE ? 

NO - ASSUME BLOCK GOOD 



K 8 
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115 004352 

116 004355 

117 004357 

118 004361 

119 004362 

120 004364 

121 004366 

122 004370 

123 004372 

124 004374 

125 004376 

126 004400 

127 004402 

128 004404 

129 004407 

130 004407 

131 004411 

132 004413 

133 004415 

134 004417 

135 004422 

136 004424 

137 004427 

138 004431 

139 004433 

140 004435 

141 004437 

142 004441 

143 004443 

144 004446 

145 004451 

146 004454 

147 004456 

148 004460 

149 004462 

150 004464 

151 004465 

152 004467 

153 004471 

154 004473 

155 004474 

156 004476 

157 004500 

158 004502 

159 004504 

160 004506 

161 004510 

162 004511 

163 004512 

164 004513 

165 004515 

166 004517 

167 004521 

168 004524 

169 004526 

170 004530 

171 004532 



102200 

104302 
104121 
106010 

104621 
103201 
106010 

117400 
117400 



104643 
103203 
106203 

101200 

102200 

115400 

104623 
102203 

101200 
101200 
101200 
104643 
103203 
101203 
100643 

104207 
104204 



104307 
104301 
105301 
101201 
104205 
104203 
100257 
100251 
117403 

104203 
100643 
10520C 
104202 
104307 



000002 

001706 

001563 

000001 
170000 
001564 

002163 
001722 



001702 



101200 000002 001702 



000002 
007777 
060000 

001000 001702 

000100 001702 

002000 

000001 
100000 

001000 001702 

000004 001703 

040000 001703 

000002 

170000 

050000 

000002 

001525 
001566 



001634 
001635 
002019 
060000 
011607 
000200 



011607 
000000 

000002 001706 

011607 

002171 



102200 020000 001703 



BIT 
6NE 
MOV 
MOV 
CMP 
BNE 
MOV 
BIC 
CMP 
BNE 
DEC 
DEC 
BNE 
BIS 

LKIP12: 

NOV 
BIC 
CMP 
BNE 
BIS 
BR 

LKIP25: BIT 
BNE 
INC 
BR 

6S: MOV 
BIT 
6EQ 
BIS 
BIS 
BIS 
MOV 
BIC 
BIS 
MOV 
PUSH 
MOV 
MOV 
CALL 
POP 
MOV 
MOV 
APO 
BIS 
MOV 
MOV 

RPT: MOV 
MOV 
DEC 
BNE 
MOV 
MOV 
ADD 
MOV 
MOV 
CALL 
BIT 



#FCTEHT,FLAG 

LKIP28 

BADPBN.R2 

(R2),R1 

RKCURPBN 

LKIP4 

1(R2).R1 

#HD.CLR,R1 

RI.CURPBNH 

LKIP4 

PCNT 

FCNT 

LKIP12 

#FCTENT,FLAG 

FT.HI(R4),R3 

#L0,R3 

#HD.RBN,R3 

LKIP25 

#PR!N«FLA6 

NARBAD 

#REVECT,FLA6 

6S 

RCTBAU 

MARBAD 

1(R2),R3 

#PRMY,P3 

LKIP5 

#PRIN,FLA6 

#RPRIN,FLAG1 

#FPRIM,FLAG1 

FT.HHR4),R3 

#HD.CLR.RS 

#HD.PRV,R3 

R3,FT.HI(R4) 

R4 

#SCR«RO 

#CURBN.R4 

PRINRB 

R4 

REVRBN.RO 

REVRBN4^1.R1 

ST.RBN«R1 

#HD.RBN,R1 

#PRMBUF,RS 

#RBNRPT,R3 

R0,(R5)4- 

R1,(R5)^ 

R3 

RPT 

#PRNBUF,R3 

R3.FT.BUF(R4) 

#2«BA0PBN 

#PRH6UF,R2 

SECSIZ,R0 

CEDC 

#M00E,FLAG1 



FCT EMPTY ? 

YUP - BLOCK IS GOOD 

GET FCT POINTER 

GET LOU ORDER BAD PBN 

ARE THEY EQUAL ? 

NO - SKIP REST OF COMPARE 

GET HIGH ORDER 

CLEAR THE HEADER 

ARE THEY EQUAL ? 

NO - MUST BE GOOD 

DECREMENT IT 

DECREMENT FCT COUNT 

IF NON - ZERO SKIP FLAG SET 

SET EMPTY FLAG 

GET HEADER WORD 

CLEAR ALL BUT HEADER 

IS IT AN RB** ? 

NOPE - SKIP RBN STUFF 

SO WON'T GET PRIMARY ON CHECK PASS 

GO MARK AS BAD 

IN RCT ? 

NO - SKIP RCT STUFF 
INCREMENT IT 
60 MARK BAD 

get bad pbn hdr 

is it secondary ? 

yes - go do it 

set flag for primary found 

set good edc needed 

set primary in fct 

get high order header 

cl::Ar header code 

nark as primary revector 

store in inage block 

save inage pointer 

nake sure point to char block 

point to block nunber 

get prinary rbn nunber 

restore inage pointer 

get nunber of re vectored rbn 

get high order 

ado in starting bits 

set in rbn header code 

use rdbuf to hold 128 copies of rbn 

count of replicated rbn's 

store a copy 

and high order 

decrenent counter - done ? 

no - store another copy 

point to beginning of buffer 

store new buffer ptr in inage 

increnent badp6n pointer 

point to buffer 

sector size in wo?os 

conpute edc > returned in r2 

what node are we in 
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172 004S3S 












173 004 S37 


100623 


000440 

www" ~ w 






NOV 


174 004541 










BR 


175 004543 


10C623 


000400 

WW w^ w V 




IS: 


NOV 


176 0C4S4S 








2S: 


BR 


177 004547 








LKIP5: 




178 004547 


1 1 5400 


002155 






INC 


179 004551 


102202 


010000 






BIT 


180 004553 










BNE 


181 004555 


104643 


000002 






MOV 


182 004557 


103203 


1 70000 






BIC 


183 004561 


101203 


030000 

W<^ WW w w 






BIS 


184 004563 


100643 


000002 






NOV 


185 004565 


105200 


000002 


001 706 




ADO 


186 004570 










BR 


187 004572 








HAR6AD: 




188 004572 


104643 


000002 






NOV 


189 004574 


103203 


1 70000 






BIC 


190 004576 


101203 


110000 






BIS 


191 004600 


100643 


000002 






NOV 


192 004602 


105200 


000002 

W W WWb 


C01 706 

vv ■ ■ W\^ 




ADD 


193 004605 








LKIP4: 




194 004605 


105204 


000003 






ADD 


195 U04607 

■ ' ^ ww^%#w> 


106304 


001714 






CNP 


196 004611 










BNE 


197 004613 


104204 


015763 






mv 


198 004615 




002163 




LKIP29: 


DUBI 


199 004623 


115000 






TST 


200 004625 










BNE 


201 004627 










CALL 


202 004631 


117400 


002137 




LKIP10: 


DEC 


203 004633 










BNE 


204 








• 




205 004635 


102200 


000004 


001703 


LKIP28: 


BIT 


206 004640 










BEQ 


207 004642 


103200 


000004 


001703 




BIC 


208 004645 










POP 


209 004646 


104203 


011132 






NOV 


210 004650 


100643 


000000 






NOV 


211 00h652 










BR 


212 








LK1P7: 




213 004654 








POP 


214 C04655 


104304 


002004 




LKIP33: 


NOV 


215 004657 


104303 


001714 






NOV 


216 004661 


107203 


000003 






SUB 


217 004663 


106043 








CNP 


218 004664 










BEO 


219 004666 


104135 








NOV 


220 004667 


101205 


040000 






BIS 


221 004671 


100135 








NOV 
BR 


222 004672 










223 004674 


101200 


040000 


002004 


LKIP30: 


BIS 


224 004677 


104143 






LKIP31: 


NOV 


225 004700 


101203 


100000 




BIS 


226 004702 


100143 








NOV 


227 004703 


104204 


001602 






NOV 


228 004705 


104203 


001606 






NOV 



22 PAGE 58-3 



1$ 

R3,RW.E76(R2) 
2$ 

R3,RU.E(;C(R2) 
LKIP4 

SNDCNT 

#FBDHD.R2 

NARBAD 

FT.HI(R4)-R3 

#HD.CLR,R3 

«HD.REV«R3 

R3,FT.HI(R4) 

«2,BADPBN 

LKIP4 

FT.HI(R4).R3 

#HD.CLR,R3 

#HD.BAD,R3 

R3,FT.HI(R4) 

#2,BADP6N 

#INLEN,R4 

£INAGE,R4 

LKIP29 

#INAGE«R4 

CURP6N 

PCNT 

LKIP10 

FCP6 

SECCNT 

LKIP27 

#RPRIH,FLAG1 
LKIP7 

#RPRIH,FLAG1 
R4 

«GD6LK,R3 

R3,FT.BUF(R4> 

LKIP33 

R4 

INSTAR,R4 

EIHAGE,R3 

«INLEIV.R3 

R4,R3 

LKIP30 

(R3),R5 

«RECIR,RS 

RS,(R3) 

LKIP31 

«RECIR,INSTAR 

(R4},R3 

#LAST,R3 

R3,(R4} 

«H0LDPN,R4 

#SECTRK,R3 



;IF CLEAR THEN 512 
.•STORE IT 576 BUFFER 
;SKIP 512 SETUP 
: STORE IT 512 BUFFER 
.-SKIP SECONDARY REVECTOR 



INC IT 

HEADER IN ERROR CODE IN FCT ? 

YUP - NARK BAD 

GET HIGH ORDER HEADER 

CLEAR HEADER CODE 

SET HEADER TO SECONDARY REVECTOR 

STORE IN INAGE 

INCREMENT BADPBN POINTER 

SKIP 6000 HARK 

;GET HIGH ORDER HEADER 
; CLEAR HEADER CODE 
:NARK AS BAD 
: STORE IN IMAGE 
; UPDATE COUNTER 



POINT TO NEXT IMAGE ENTRY 

AT THE END ? 

NOPE - CARRY ON 

POINT TO START 

DO THE INCREMENT 

DONE WITH THIS BLOCK OF PBNS? 

IF NOT DONE SKIP 

ELSE PAGE IN NEW FCT BLOCK 

DECREMENT IT 

NO - DO NEXT BLOCK 

NEED GOOD EDC ? 
NOPE 

CLEAR FLAG 

GET POINTER TO FIRST RBN ENTRY 
GET GOOD EDC BLOCK 
STORE IT IN BUFFER POINTER 
SKIP POP 

POP STACK (RBN RNTRY ADDRESS) 

POINT TO FIRST TO FORMAT ENTRY 

GET END ADDRESS 

POINT TO FLAG OF LAST ENTRY 

FIRST = LAST ? 

NO - SKIP SPECIAL STUFF 

GET FLAG WORD 

SET RECIRCULATION FLAG 

STORE IT BACK 

SKIP KLUDGE FIX TO UDA 

SET BIT IN POINTER 

GET BUFF POINTER 

SIGNAL AS LAST 

STORE IT BACK 

FOR DECREMENT 

DITTO 



n 8 
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229 004707 

230 00A711 



CALL DSUb 
RETURN 



;SUBTRAC TO GET NEXT TRACK 



N 8 
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1 
2 
3 

A 004713 

5 004715 

6 004720 

7 004722 

8 004725 

9 004727 

10 004731 

11 004734 

12 004736 



104200 
104201 



010455 
000017 



102200 000002 001702 



001740 



104200 000200 002163 



PAGE IN NEXT FCT BLOCK 



FCPG: PUSH R5,R4 

BIT #FCTEMT,FLA6 

BNE IS 

MOV #PBNBUF,BUFPNT 

MOV #F6,R1 

CALL PAGE 

MOV #128.,PCNT 

1$; POP R4.R5 
RETURN 



SAVE RS AND R4 
EMPTY FCT 

YUP - DON'T GET BLOCK 
POINT TO BUFFER 
OVERLAY F6 DOES IT 
EXECUTE IT 
RESET COUNT 
RESTORE R4 AND R5 
RETURN 
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4 

5 

6 004740 



9 


004014 


104200 


000052 


001636 


10 


004017 


104207 


001525 




11 


004021 








12 


004023 


104140 


001566 




13 


004025 


104140 


001576 




14 


004027 


104640 


000001 


001567 


15 


004032 


104640 


000001 


001577 


16 


004C35 








17 


004037 


104140 


001561 




18 


004041 


104640 


000001 


001562 


19 


004044 


104140 


001600 




20 


004046 


104640 


000001 


001601 


21 


004051 








22 


004053 








23 


004055 
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1-82 13:14:22 PAGE 60 



S£Q ICS 



.SBTTL L/RBN COMPUTE OVERLAY (68) 

THIS OVERLAY COMPUTES LBN AND RBN OF THE LAST TRACK ON LAST LBN CYLINDER 
AND COMPUTES THE PBN OF THAT LBN 

DMOVLY G8,START 



NOV #G8,CUR0VL 

MOV #SCR,RO 

CALL NUMLBN 

MOV (R4),CURBN 

MOV (R4),H0LDBN 

MOV 1(R4)«CURBN^1 

MOV 1(R4),H0LDBN»1 

CALL NUMRBN 

MOV (R4),CURRBN 

MOV 1(R4),CURRBN^1 

MOV (R4),H0LRBN 

MOV 1(R4),H0LRBNH 

CALL LPBN 

CALL SETSIZ 
RETURN 



:FOR RECORDING 
;POINT TO CHARACTERISTICS BLOCK 
;GET NUMBER OF FIRST LBN ON LAST LBN 
;GET LOW ORDER 



CYL 



:SAVE FOR LATER 
;GET HIGH ORDER 
;SAVE FOR LATER 

;GET NUM OF FIRST RBN ON LAST LBN CYLINDER 

;GET LOU ORDER 

;GET HIGH ORDER 

;SAVE LOW FOR LATER 

;SAVE HIGH FOR LATER 

;GET TBN OF FIRST SECTOR ON LAST TRACK 

;SET UP 512/576 VARIABLES 
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L/RBN COMPUTE OVERLAY (G8) 



SEO 106 



1 
2 
3 
A 

5 00A057 

6 00A062 

7 0OA065 

8 00A070 

9 00A072 

10 0OA074 

11 OOA076 

12 004100 

13 00A102 
U OOAIOA 

15 004107 

16 00A111 

17 004113 

18 004115 

19 004117 

20 004121 

21 004123 

22 004125 

23 004127 

24 004131 



104300 
104300 
103200 
104204 
104203 

104641 
105301 
100641 
102200 



001626 
001627 
170000 
001410 
001630 

000001 
002007 
000001 
020000 



COMPUTE STARTING LBN ON LAST TRACK 
RO -> CHARACTERISTICS BLOCK 



001410 NUMLBN: MOV 



001411 
001411 



001703 



104673 000011 



104673 
103203 
104030 
114000 
104203 



000015 
177400 
001403 
001404 
001403 



IS: 
2S: 



LBNCYL.TEMP 

MOV LBNCYL*1.TEf1P*1 

8IC #HD.CLR,TEHP*1 

MOV «TEMP,R4 

MOV «LBNPCY,R3 

CALL DMUL 

MOV 1(R4),R1 

ADD ST.LBN.RI 

MOV R1,1(R4) 

BIT #M0DE,FLAG1 

BNE 1$ 

MOV LBNT12(R0),R3 

BR 2$ 

MOV LBNT76(R0),R3 

BIC #HIBYTE,R3 

MOV R3«DDUNMY 

CLR D0UfWY*1 

MOV #DDUMHY,R3 

CALL DSU6 
RETURN 



GET LOU ORDER NUM OF LBN CYLINDERS 
GET HIGH ORDER 

CLEAR STARTING CYLINDER BITS 
DITTO 

GET LBN'S/CYLINDER 

GET FIRST LBN ON LAST CYLINDER 

GET LBN 

ADD STARTING LBN TO GET ABSOLUTE LBN 

STORE BACK 

WHAT MODE 

IF SET THEN 576 

GET LBN/TRACK FOR 512 

SKIP 576 SETUP 

GET LBN/TRAfK FOR 576 

CLEAR HIGH BYTE 

STORE IT 

FOR STORE 

LBN/TRACK 

WANT LBN ON LAST TRACK 
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L/RBN COMPUTE OVERLAY (G8) 



1 
2 
3 

5 
6 
7 
8 
9 
TO 
11 
12 
13 
U 
15 
16 
17 
18 
19 
20 



004133 
004136 
0041A1 
0041 4A 
004146 
004150 
004152 
004154 
004156 
004160 
004162 
004164 
004166 
004170 
004172 
004174 



104300 001626 001410 

104300 001627 001411 

103200 170000 001411 

104204 001410 

104203 001632 

104641 000001 

105301 002010 

100641 000001 

104673 000004 

103203 177600 

104030 001403 

11400D 001404 

104203 001403 



COMPUTE STARTING RBN ON LAST TR 
RO -> CHARACTERISTICS 8L0CK 



NUNRBN: NOV LBNCYL.TENP 

MOV LBNCYL*i.TEMP*1 

BIC «HD.CLR,T£MP«1 

NOV «TENP,R4 

MOV «RBNPCY,R3 

CAL>. DNUL 

NOV 1(R4),R1 

ADD ST.RBN.Rl 

NOV R1,1(R4) 

NOV RBNTRK(R0).R3 

BIC #H11BYTE,R3 

NOV R3«DDUNNY 

CLR DDURNY*1 

NOV #D0UNNY,R3 

CALL DSUB 

RETURN 



IN L3N AREA 



GET LOU ORDER NUMBER Of LBN CYLINDER 
GET HIGH ORDER 

CLEAR STARTING CYLINDER BITS 
DITTO 

GET RBN'S/CYLINDER 

GET FIRST RBN ON LAST CYLINDER 

GET HIGH ORDER 

ADD TO GET ABSOLUTE LBN 

STORE BACK 

GET RBN/TRACK 

CLEAR our GARBAGE 

STORE IT 

FOR STORE 

WANT LAST TRACK 

GET IT 
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L/RBN COMPUTE OVERlAf (68) 



S£Q 108 



1 

c 

5 


004176 


104300 


001566 

w ■ ^ww 


001410 


6 

w 


004201 
004204 


104300 


001567 


001411 


7 


104204 


001410 




6 


004206 

W** » fit, WW 


104641 


000001 




9 


004210 


107301 


002007 

WWfc WW ■ 




10 


004212 


100641 


000001 




11 


004214 


102200 

1 WbfcWW 


020000 


001703 


12 


004217 








15 


004221 


104673 


00001 1 




14 


004223 








15 


004225 


104673 


00001 5 

wwww • ^ 




16 


004227 


103203 


1 77400 




17 


004231 


104030 


001403 




18 


004233 


114000 


001404 




19 


004235 


104203 


001403 




20 


004237 








21 


004241 
004243 


104673 

1 W^W • 


000004 

W WW ww~ 




22 


103203 


1 77600 




23 


004245 


104030 


001403 




24 


004247 


114000 


001404 




25 


004251 


104203 


001403 




26 
27 


004253 








004255 


104300 


U01566 


001403 


28 


004260 


104300 


00^567 


001404 


29 


004263 


107300 


002007 


001404 


30 


004266 


104203 


001403 




31 


004270 








32 


004272 


104140 


001602 




33 


004274 
004277 


104640 


000001 


001603 


34 









COMPUTE PBN FROM GIVEN LSN 
RO -> CHARACTERISTICS BLOCK 



BN: NOV CURBN,TEMP 

NOV CURBN^l.TENP^I 

NOV #TENP,R4 

NOV 1(R4),R1 

SUB ST.LBN.RI 

NOV R1J(R4) 

BIT fNODE.FLAGI 

BNE 1$ 

NOV LBNT12(R0)«R3 

BR 2$ 

1$: NOV LBNT76(R0),R3 

2$: BIC »HIBYTE,R3 

NOV R3.00UNNV 

CLR DDUHHY^I 

NOV »DDUHNY.R3 

CALL DDIV 

NOV RB»ITRK(R0>.R3 

BIC fHI1BYTE,R3 

NOV R3,DDUHNY 

CLR DDUNNY4^1 

NOV fDDliNHY,R3 

CALL DNUL 

NOV CURBII,DDUNHY 

NOV CURBM«^1 ^OOUNHYf^l 

SUB ST.LBN.DDUNNY^I 

NOV «DDUNNY.R3 

CALL DADD 

NOV (R4),H0LDPN 

NOV 1(R4),HOL0PN*l 
RETURN 



GET LOU OR^ER 
GET HIGH ORDER 
FOR SUBTRACT 
GET HIGH ORDER 

SUB STARTING LBN TO GET ABSOLUTE LBN 

STORE BACK 

WHAT NODE 

IF SET THEN 576 

GET LBN/TRACK FOR 512 

SKIP 576 SETUP 

GET LBN/TRACK FOR 576 

CLEAR HIGH BYTE 

STORE FOR COMPUTATION 

CLEAR FOR STORE 

FOR DIVIDE 

GET NUMBER OF TRACKS 

GET RBN'S/TRACK 

CLEAR GARBAGE 

f^OR COMPUTATION 

CLEAR HIGH WORD 

FOR MULTIPLY 

GET iiUMBER OF RBN'S 

GET LOU ORDER CURRENT BLOCK NUMBER 

GET HIGH ORDER 

SUBTRACT STARTING 

FOR ADD 

ADD TO GET PBN 
GET LOU ORDER 
STORE HIGH ORDER 



r 
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L/RBN CCmiTE OVERLAY (68) 



1 
2 
3 

4 004301 

5 004303 

6 004306 

7 004310 

8 004313 

9 004315 
10 004320 
11 

12 
13 

(4 004323 

15 004325 

16 004330 

17 004332 

18 004334 

19 004336 

20 004341 

21 004343 

22 004345 
^3 004347 
?4 

25 
26 

27 004351 

28 004353 

29 004355 

30 004356 

31 004360 

32 004362 

33 004364 

34 004366 

35 004367 

36 004370 

37 004372 

38 004373 

39 004374 

40 004376 

41 004377 

42 004400 

43 004402 

44 004404 

45 004405 

46 004407 

47 004412 



104207 
102200 

104300 
114000 
104200 
104200 



104203 
104200 
114000 
104204 

104200 
114000 
104203 



001525 
020000 

001610 
001607 
000440 
000437 



001610 
000003 
001411 
001410 

015763 
001404 
001403 



104140 001714 



104207 
104302 
100272 
104204 
104301 
104302 
104303 
100271 
117404 

100272 
117404 

100273 
117404 

104303 
100173 

104200 



011132 
002131 

000437 
002126 
002127 
002130 



002134 
000400 



SET UP 512/576 VARIABLES 



001703 
001606 

002171 
002124 



001410 



001403 



SETSIZ: MOV 
BIT 
BEQ 
MOV 
CLR 
MOV 
MOV 



IS: 



fSCR.RO 
#N00E,FLA61 

SETS12 

SECT76,SECTRK 
SECTRK+I 
«SECSI8«SECSI2 
fSECSI8-1.NUH 



SET UP END OF IMAGE POINTER 

NOV »SECT76,R3 

NOV f3«TEMP 

CLR TENP*1 

NOV «TEMP,R4 

CALL DHUL 

NOV fINAGE.DOUNMY 

CLR ODUNNY^I 

NOV fDDUNNY,R3 

CALL DADD 

MOV (R4).CINAGE 

INITIALIZE GOOD DATA BLOCK 



NOV 
NOV 
NOV 
NOV 
NOV 
NOV 
NOV 
NOV 
DEC 
BEQ 
NOV 
DEC 
BEQ 
NOV 
DEC 



002171 



2$: NOV 
NOV 
BR 

SETS12: NOV 
SETRET: RETURN 



tGDBLK.RO 

DURD,R2 

R2.(R0)^ 

#287. «R4 

FURD.RI 

SWRD,R2 

TWRD,R3 

MAM}* 

R4 

2t 

R2,(R0)* 

R4 

2$ 

R5.{R0)* 

R4 

1$ 

EDC76.R3 

R3,(R0) 

SETRET 

#SECSI6.SECSIZ 



POINT TO CHARACTERISTICS 

SET UHAT NODE 

IF CLEAR THEN 512 MODE 

USE 576 TRACK SIZE 

CLEAR HIGH ORDER 

SET UP SECTOR SIZE (576) 

SET UP NEU COUNT FOR COMPARE XFC 



SEC/TRACK 

FOR NULT 

FOR STORE 

SET UP FOR NULT 

GET LENGTH OF INAGE BLOCK 

FOR ADD 

CLEAR HIGH BYTE 
SET UP FOR ADD 
ADD TO GET ADDRESS 
GET ADDRESS 



POINT TO GOOD BLOCK 
DIAGNOSTIC yORO 
STORE IT 

ELSE 576 - USE 237 AS WORD COUNT 

FIRST WORD OF PATTERN 

SECOND yORD OF PATTERN 

THIRD yORD OF PATTERN 

STORE IT 

DECRENENT COUNT 

QUIT IF 0 

STORE IT 

DECRENENT COUNT 

QUIT IF 0 

STORE IT 

DECRENENT COUNTER 
REPEAT TILL DONE 
GET EDC 
STORE IT 
RETURN 

SET UP SECTOR SIZE (512) 
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FCT DOUN-LINE LOAD OVERLAY (F3) 



SEO 110 



1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
U 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



004414 

004C14 

004017 

004022 

004025 

004030 

004032 

004034 

004036 

004040 

004042 

004044 

004046 

004050 

004052 

004054 

004057 

00^061 

004063 

004065 

004066 

004067 

004071 

004073 

004075 

004076 

004077 

004100 

004102 

004103 

004105 

004107 

004111 

004113 

004115 

004117 

004121 

004122 

004124 

004126 

004130 

004132 

004133 

004135 

004140 

004143 

004146 

004150 

004152 

004154 

004155 

004157 



104200 
104200 
104300 
104300 
114000 
1U0O0 
104207 
104203 
104632 
100672 
104632 
100672 
104303 
100673 
102200 



104203 
114002 
100132 
104204 
105203 
104205 
104242 
100232 
117405 

114002 
104203 
100632 
101202 
100632 

104205 
104303 
100153 
104303 
100653 



104153 

104650 
104650 
104200 
104204 
104203 

114005 
104050 
106200 



000006 
000001 
002011 
002011 
001572 
001566 
0021 '0 
001525 
000000 
000000 
000001 
000001 
001606 
000004 
002000 



010000 



001772 
000002 
000004 



010000 
000001 
100000 
000025 

001750 
002003 

001566 
000001 



.SBTTL FCT DOWN-LINE LOAD OVERLAY (F3) 
DOWNLINE LOADER FOR FCT 



FDLL: DMOVLY F3, START 



001636 
0C2164 
001573 
001567 



001702 
J 



000001 002105 

000002 002106 
000401 002104 
002104 
010000 



007732 

000001 002164 



MOV 
MOV 
MOV 
MOV 
CLR 
CLR 
MOV 
MOV 
NOV 
MOV 
MOV 
NOV 
NOV 
NOV 
BIT 
BNE 
BR 

NODLL: NOV 
CLR 
NOV 
NOV 
ADD 
NOV 

9S: NOV 
NOV 
DEC 
BNE 
CLR 
NOV 
NOV 
BIS 
NOV 
BR 

LOOP: NOV 
NOV 
NOV 
NOV 
NOV 
CALL 
CALL 
NOV 
BNE 
NOV 
NOV 
NOV 
NOV 
NOV 
CALL 

L00PP2: CLR 
NOV 
CNP 



#F3,CUR0VL 

«n COUNT 

ST.XBN.CURXBN^I 

ST.XBN.CURBN^I 

CURXBN 

CURBN 

«C0N6LK,R0 

«SCR,R3 

CYLBN(R3},R2 

R2,V1(R0) 

CYLBN*1(R3),R2 

R2.VUUR0) 

SECTRK,R3 

R3,V3(R0) 

«BSTGS,FLA6 

NODLL 

LOOP 

«RDBUF ,R3 

R2 

R2.(R3) 

«SERNUN.R4 

«FSER,R3 

«4.R5 

(R4)*.R2 

R2,(R3>* 

R5 

9S 

R2 

fRt>BUF.R3 

R2,INST(R3> 

lfN0FCT,R2 

R2.FCTFLC(R3> 

L00PP2 

«DNBUF,R5 

FCNSG.R3 

R3-(R5) 

CURBN«R3 

R3J(RS> 

SNDNNT 

RCVNNT 

(RS),R3 

DONDLL 

1(R5),0VLBLXt1 

2(R5)*0VLBLK*2 

f257,,0VLBLK 

#0VLBLK«R4 

#RDBUF,R3 

OVRLAY 

R5 

R5,NEXT1 
#1, COUNT 



OVERLAY #3 

OVERLAY «3 

INIT COUNT TO 1 

ALSO INITIALIZE XBN COUNTER 

HIGH ORDER 

LOW ORDER IS ZERO 

DITTO 

POINT TO CONVERT BLOCK 
POINT TO CHARACTERISTICS 
GET LBN CYLINDERS 
STORE IN CONVERT BLOCK 
GET HIGH ORDER 
STORE IT 

GET SECTORS/TRACK 
STORE IN CONVERT BLOCK 
IN BEST GUESS NODE ? 
YUP - FIX UP FIRST BLOCK 
START LOOP 
POINT TO BUFFER 

SET NEDIA NODE TO 0 (IN FORMAT) 
STORE IT 

POINT TO SERIAL NUNBER 
POINT TO ENTRY IN FCT BLOCK 
INIT COUNTER 
GET WORD 
STORE WORD 
DECRHENT COUNTER 
CONTINUE TILL DONE 
FOR INSTANCE NUNBER 
RESET POINTER 

STORE INSTANCE NUNBER IN BLOCK 

SET NO FCT AVAILABLE BIT 

STONE IT IN FCT INFO BLOCK 

SKIP DLL STUFF 

POINT TO NAINT BUFFER 

GET OUP CODE 

STORE IT IN NESSAGE 

GET BLOCK NUNBER DESIRED 

STORE IT 

SEND REQUEST 

RECEIVE ANSWER 

GET STATUS WORD 

IF NOT ZERO THEN DONE 

GET LOW HOST ADDRESS 

GET HIGH HOST ADDRESS 

NUNBER OF WORDS TO TRANSFER 

FOR OVERLAY ROUTINE 

POINT TO BUFFER 

GET THE SECTOR 

CLEAR WRITE ERROR COUNT 

CLEAR REPEAT COUNT 

IS IT THE FIRST ONE ? 



U0AFS2 - UOA-52 FORMATTER DNACR X04.01 23-AU6-82 13:14 
FCT DOyN>LINE LOAD OVERLAY (FS) 



JO VVt 1 QC 










one 






001 7A6 






MOV 




1 U"tCv J 


010000 






MOV 




114005 








n ft 


^? 004171 


100135 








MOV 


63 004172 


105203 


000012 






ADD 


64 004174 


104205 


000004 






MOV 


6S 004176 


104242 






lOi' 


MOV 

nw w 


66 004177 


100232 

■ wwc 








MOV 


67 004200 


1 1 7405 

1 1 r ^W^ 








DFC 


68 004201 












69 004203 


114005 

1 1 ~WW^ 








CLP 


70 004204 


104202 


010000 

W 1 WW 




1 OOPP- 

LWW* r • 


MOV 


71 004206 


104207 


000400 

vw~ w 






MOV 

nvv 


72 004210 










CALL 


75 004212 


100623 


000400 

wv^ w 






MOV 


74 004214 


104300 


001566 

vw * ^ww 


001410 

WW 1 ^ 1 W 

?01411 

^w 1 ^ 1 ■ 




MOV 


75 004217 


104300 

1 WWW 


001567 




NOV 


76 004222 


104204 


001410 

WW ■ ^ ■ w 






HOV 


77 004224 


104641 

1 W^W~ I 


000001 

WWwWV 1 






MOV 


78 004226 


107301 


002011 

WfcW 1 1 






SUB 


79 004230 


100641 

I WWW^ 1 


000001 

WVWW 1 






MOV 


80 004232 












81 004234 


104207 

1 W~CW ■ 


001373 

WW 1 W f ^ 






NOV 


82 004236 


1 04203 


122400 






MOV 


83 004240 


104302 


001 565 






MOV 


84 004242 


101023 








BIS 


I*; 004243 


100673 


000005 

WW www ^ 






mv 


86 004245 


104203 


010000 

W I wwww 






NOV 


87 004247 


100673 


000002 

WWWWWfc 






MOV 

nwv 


88 004251 


104303 


001566 

WW I 






MOV 


89 0042S3 


100673 


000003 

wwwwww 






NOV 


90 004255 


104303 


001567 






MV 


91 004257 


101203 


120000 

1 wwwvw 






BIS 


92 004261 


100673 


000004 

wwwww^ 






NOV 


93 004263 


104203 


001400 






mv 


94 004265 


100673 


000006 






NOV 

tTW W 


95 004267 


104303 


002005 




URJTE1 : 


NOV 


96 004271 


104304 


002006 

wwfc www 




NOV 


97 004273 


104302 


001412 






NOV 

•TW W 


98 004275 


104207 


001373 






NOV 


99 004277 


101207 


100000 






BIS 


100 004301 


060012 








XFC 


101 004302 


104202 

1 W^& Vfc 


000400 

WwW^WW 






MOV 


102 004304 


060003 








XFC 


103 004305 


115001 








TST 


104 004306 










BEQ 


105 004310 


106300 


002165 


002167 




CNP 


106 004313 










BEQ 


107 004315 


115400 


002167 






INC 


108 004317 










BR 


109 004321 


104303 


002170 




1$: 


NOV 


110 004323 










BM 


111 004325 


115000 


002166 






TST 


112 004327 










BEO 


113 004331 










CALL 


114 004333 


114000 


002167 




3$: 


CLR 



H 9 

22 PAGE 65-1 



SEO 111 



LOOPP 
#DATE,R4 
#RDBUF,R3 
R5 

R5,(R3) 

#FDAT,R3 

#4fR5 

(R4>*4R2 

R2,(R3)^ 

R5 

10$ 

R5 

#RDBUF«R2 

«SEC$I6,R0 

CEDC 

R3«RU.E0C(R2) 

CURBN.TENP 

CURBNtl.TENPtI 

#TEPIP,R4 

1(R4),R1 

ST.XBN.R1 

R1,1(R4) 

CVTSK 

fURBLK,R0 

#WRCND,R3 

CURTRK,R2 

R2.R3 

R3,RU.CND(R0) 

#RD6UF«R3 

R3,RU.BUF(R0) 

CURBN«R3 

R3,RU.L0U(R0) 

CURBN>1,R3 

fHD.XBN«R3 

R3,RU.HI(R0) 

#HSLIR-1 ,R3 

R3»RU.DUN(R0) 

HPREA,R3 

0PREA.R4 

UNIT,R2 

»URBLK,R0 

f8IT15«R0 

SIP 

#SECSI6,R2 

WRITE 

R1 

NO 

RETRY.TNPTRY 
IS 

THPTRY 
URITE1 
RECTNP,R3 
2t 

RE GOV 
3$ 

ERRHND 
TNPTRY 



NO - SKIP THIS STUFF 

POINT TO SERIAL NUNBER 

POINT TO BUFFER 

FOR NEDIA FORNAT UPDATE 

SET FORNAT IN PROGRESS 

POINT TO ENTRY IN FCT BLOCK 

I NIT COUNTER 

GET WORD 

STORE WORD 

DECRNENT COUNTER 

CONTINUE TILL DONE 

CLEAR R5 (ERROR COUNTER) 

POINT TO BUFFER 

SECTOR SIZE IN WORDS 

CONFUTE EOC 

STORE IT 

GET LOW ORDER 

GET HIGH ORDER 

FOR SUB 

GET HIGH ORDER 

SUBTRACT STARTING XBN 

STORE BACK 

CONVERT AND SEEK 

POINT TO CONNAND BLOCK 

GET WRITE CONNAND 

GET CURRENT TRACK 

SET TRACK FOR WRITE 

STORE IN CONNAND BLOCK 

POINT TO BUFFER 

STICK IN CONNAND BLOCK 

GET LOW ORDER HEADER 

STORE IN WRITE BLOCK 

GET HIGH ORDER 

SET HEADER 

STORE IN WRITE BLOCK 

GET DUNNY SDI POINTER 

POINT IN CONNAND BLOCK 

GET HEADER PREANBLE 

GET DATA PREANBLE 

GET PORT NUNBER 

NAKE SURE POINTING AT BLOCK 

SET NO REVECTORING 

WAIT FOR SECTOR PULSE 

SECTOR SIZE IN WORDS 

WRITE SECTOR 

ANY ERROR ? 

NOPE 

PIAX "* 

YES - TRY SONE RECOVERY 
INC RETRY COUNT 
DO RETRY 

GET CURRENT ERROR RECOVERY LEVEL 

IF NEGATIVE THEN FRIED 

IS THERE ONLY RECOVERY LEVEL 0 ? 

YES - NO NEED TO ISSUE IT - JUST RETRY 

TRY RECOVERY 

FOR INIT 
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0091 70 

UUc 1 r U 




nu¥ 
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HUw 
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1 VICwJ 


001 79C 
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nuw 
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lUOJww 


0017X1 


0017X9 
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13A nn^XA? 
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BMP 

one 
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IUOJV3 


001 7X1 

UU I f Jl 






vnr 


l5a nA^^AA 
1 CO UU*lJOO 












190 nA&x7n 


in99nn 


009O0O 


001 709 

UU 1 r Uc 




BIT 


ixn nn£'X7T 










BMP 


1X1 nA^X7^ 


in99nn 


00^000 
UU1 uuu 


001 709 

UU 1 1 UC 




ntT 












one 


1XX on^^n9 


UOUwCC 










1 XA on^^nx 


iic^nn 


0091 A4 
UUc IO*i 






Tftir 
mi 


ix^ nnLCM 










vudihl 


1XA nn^.ix 

1 JO W*» * 1 O 


lA^xno 


001 S79 
Uv \JfC 


001 SAA 
UU 1 jOO 




■ou 


1*7 nn^^.^f, 


in^TAA 


001 S7X 
UU 1 3 1 J 


001 SA7 
UU 1 30r 






1 JO VJHHC 1 


inAxnn 

IUOjUv 


00174S 
UU 1 


0091 A4 
UUc IO*i 






1 XO t^tXLLOL 










one 


l^fl flA^^9A 

IHU 'A/'tHcO 


1174nA 


001 7X1 

vU I ' J 1 






VC V 


1^1 on^AVt 


1 vO Jvv 


001 79S 
UU 1 1 Cj 


0091 A4 
UUc 1 OH 


19t • 




1A9 nn^^xx 

IHC wvt"tJJ 










tune 
one 


I^X AA&AXf 


1 view 


000001 

UVUvU 1 


001 709 

Uv 1 1 UC 


ni 1 BT1 • 


Arc 

Da 9 




104907 


001 SI 9 

Uw 1 J 1 c 






MOW 




104A7X 


000001 






MOV 


I^A OtiLLLL 


110707 

1 1 V f V J 








CUAR 

9wmO 


1^7 (VU££^ 


10X90X 


1 777A0 






Air 

Oi V 




1 040X0 


0017X1 






MOV 


1^0 nn&^si 


104901 


ooooox 






MOV 


ISO 0(K£SX 












1S1 OfUASS 


104905 


000400 






MOV 


1S9 


1 04904 


010000 

V 1 WW 






MOV 




114003 








CLR 


154 004462 


100243 






L00P3: 


nov 


155 004463 


117405 








DEC 


156 004464 










BNE 


157 004466 


101200 


004000 


001702 




BIS 


158 004471 










BR 


159 004473 


104012 






ERROR: 


NOV 


160 004474 


104201 


000015 






NOV 


161 004476 








DLERT: 


CALL 
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SEQ 112 



RECTHP 
URITE1 

R5 

NEXT1 
TNPTRY 

RECOV.RECTHP 
fCURBN.R4 
#FCTF»T.R3 
DADD 

FCTCPV.NEXT1 
LOOPP 
FCTCPr,R5 
ERROR 

#8STGS,FLAG 

DLLRET 

#NDLL,FLAG 

DLLRTI 

UPDATE 

COUNT 

CURXBN 

CURXBN.CURBN 

CURXBN^1,CURBN4^1 

FCTNPD.COUNT 

12S 

FCTCPY 

FCTFHT, COUNT 
LOOP 

#FCTAVL,rLA6 

#CR.R0 

FRCPY(R0),R3 

#FCLR«R3 
R3.FCTCPV 

#f5,ri 

NEXT 

#SECSI6,RS 

fRDBUF,R4 

R3 

R3,(R4)« 
RS 

L00P3 

fNDLL.FLAG 

L00PP2 

R1-R2 

«13..R1 

ERRHNT 



; DECREMENT IT 
.RETRY 



YUP - INCREMENT COUNTER 
INCREMENT IT 
FOR RESET 

GET RECOVERY LEVELS 
FOR ADD 
FOR ADD 

POINT TO NEXT COPY 
DONE THIS SECTOR ? 
NO - WRITE NEXT FCT COPY 
ERROR ON EVERY WRITE ? 
YUP - BIG TROUBLE 
BEST GUESS ? 

YUP - JUST WANT TO WRITE FIRST BLOCK 
ALL DONE ??? 
YUP - EXIT 

LET HOST KNOW STILL ALIVE 

INCREMENT IT 

INCREMENT IT 

GET LOU ORDER 

GET HIGN ORDER 

AT THE LAST NON-PAD ENTRY 

NOPE 

DECREMENT - NO PAD ON LAST COPY 



NOPE - DO NEXT SECTOR 

SET FCT AVAILABLE 

POINT TO CHARACTERISTICS BLK 

GET F/RCT COPIES 

GET INTO LOU BYTE 

CLEAR OUT REST OF GARBAGE 

RESTORE NUN OF COPIES 

FOR OVERLAY #2 

LBN FORMATTING 

COUNT FOR BLOCK INIT 

POINT TO BUFFER 

INIT TO 0 

CLEAR ONE WORD 

DEC COUNTER 

CONTINUE TILL DONE 

SET FLAG 

'ONTINUE 

GET XFC ERROR CODE 
FCT WRITE ERROR 
ERROR RETURN 
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1 
2 
3 
4 
5 
6 
7 
8 
9 



004 SCO 



.SBTTL RCT UPDATE OVERLAY (F4) 
DHOVLY F4.START 



1 1 

1 1 
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1 v"f C WW 
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WWwW 1 1 


001636 
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RCTUPD: 


MOV 

nw w 


1 c 
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vv 1 
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^x 
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PUSH 


1 M 


OOAO?? 


104303 
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001604 

WW 1 Ww"t 






MOV 


IS 












PUSH 


16 

1 %j 
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001605 

WW I WW 






MOV 


17 
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PUSH 


18 

1 O 


00A030 


104300 


001616 

WW 1 U 1 U 


001712 
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NOV 


19 


004033 


104300 

1 w~^wv 


001617 

WW 1 V 1 ' 


001713 

WW ■ ■ ■ ^ 




NOV 

nw » 


?0 




10A203 


002160 






NOV 

nw » 


?1 


0OA040 


10A20A 


001712 

WW 1 ■ lb 






NOV 

nw » 




004042 










CALL 




004044 


1 OA 300 

1 w^^ww 


001707 

WV 1 • w • 


0021 57 

WWfc > ^ f 




NOV 


24 


004047 


1 0A 302 

1 V~ ^Wb 


002157 

WWb ■ ^ ■ 




ROVER: 


NOV 


25 


00A0S1 


10A120 

1 W~ 1 fcW 


001403 

WW 1 ^w^ 






NOV 


26 


004053 


10A620 

1 W^WfcW 


000001 

WWWWW 1 


001404 




NOV 


27 


004056 


102200 

■ Vfcb WW 


1C0000 


001404 




BIT 


28 


004061 










BEQ 


29 


004063 


1 0A 201 


^77777 






NOV 


30 


004065 


103200 


170000 


001404 


R0VER1 : 


BIC 


31 


004070 


10A20A 


001403 






NOV 


32 


004072 










CALL 


33 


004074 


10A1A3 








NOV 


34 


004075 


105203 


000002 






ADD 


35 


004077 


1001 A3 








NOV 


36 


004100 


104030 


002162 






NOV 


37 


004102 


104203 


001712 






NOV 


38 


004104 










CALL 


39 


004106 


104040 


001740 






NOV 


40 


004110 


104201 


000055 






NOV 


41 


004112 










CALL 


42 


004114 


104205 


013477 






NOV 


43 


004116 


104303 


001410 






NOV 


44 


004120 


105035 








ADD 


45 


004121 


104302 


002157 






NOV 


46 


004123 


104623 


000001 






MOV 


47 


004125 


103203 


007777 






BIC 


48 


004127 


106203 


110000 






CNP 


49 


004131 










BNE 


50 


004133 


104650 


000000 


001405 




MOV 


51 


004136 


104650 


000001 


001406 




MOV 


52 


004141 


103203 


170000 






BIC 


53 


004143 


101203 


040000 






BIS 


54 


004145 


103203 


007777 






BIC 


55 


004147 


100653 


000001 






MOV 


56 


004151 


114003 








CLR 


57 


004152 


100153 








MOV 



THIS OVERLAY UPDATES THE RCT UI 
IN THE ERRBUF BUFFER 



#F4,CUR0VL 
CURTRK,R3 

CYLNUN,R3 
R3 

CYLNUN*1«R3 
R3 

LBNLBN.HOLD 
LBNLBN^I ,H0LD*1 
#T0TRCT,R3 
»H0LD«R4 
DSUB 

ERRBUF, UPOPNT 

UPDPNT.R2 

(R2),DDUMNY 

1(R2).DDUHNY*1 

«6IT15,DDUNMY*1 

R0VER1 

f-1,R1 

#HD.CLR,DDUHMY*1 
#DDUNNY,R4 

UHASH 

(R4},R3 

#2,R3 

R3«(R4} 

R3«RCTCNT 

#H0LD,R3 

DADO 

R4,BUFPNT 

fHl,R1 

PAGE 

fRCTBUF,R5 

0FFSET,R3 

R3,R5 

UPDPMT,R2 

1<R2),R3 

«L0«R3 

#HD.BAD,R3 

NOTR 

0(R5),TEMP2 

1(R5).TEHP2^1 

#r,.CLR,R3 

«RC.UNU,R3 

#LG,R3 

R3,1(R5) 

R3 

R3«(RS) 



THE SECTORS 



GET OVERLAY 

GET CURRENT TRACK 

SAVE FOR RESTORE 

GET LOW ORDRE CYLINDER 

SAVE FOR RESTORE 

GET HIGH ORDER 

SAVE FOR RESTORE 

GET LOU ORDER COUNT OF LBN*S 

GET HIGH ORDER 

FOR SUBTRACT 

DITTO 

GET STARTING RCT LBN 
POINT TO ERROR BUFFER 
GET POINTER TO BAD LIST 
GET LOU ORDER 
GET HIGH ORDER 
IS IT AN RBN ?? 
NO - REGULAR HASH 
HASH FOR RBN 
CLEAR THE HEADER 
FOR HASH 

FIND THE RCT ENTRY FOR CURRENT ERR BLOCK 
GET BLOCK NUMBER 
;ADD TO GET PAST FIRST 2 BLOCKS 
STORE BACK 
FOR LATER PING-PONG 
FOR ADD 

TO GET LBN OF RCT BLOCK 
STORE POINTER TO BLOCK NUMBER 
;RCT READ OVERLAY 
DO IT 

iPOINT TO BUFFER 

GET OFFSET 

POINT TO HIT ENTRY 

RESTORE POINTER 

GET THE HEADER 

CLEAR ALL BUT HEADER 

IS IT A BAD RBN ? 

NOPE • CHECK FOR PRIMARY 

GET LOU ORDER CURRENT RESIDENT 

;GET HIGH ORDER 

; CLEAR HEADER 

MARK AS UNUSUABLE 

CLEAR LOU ORDER 

STORE IT BACK 

CLEAR FOR STORE 

CLEAR LOU ORDER 
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85 004235 










RR 


86 004237 


104650 
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MOV 
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00140^ 
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NOV 
nuv 


88 004245 
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Mnu 
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90 004247 


104623 


000001 
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nuv 
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Rir 
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93 004255 
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94 004257 


100653 


000001 






Mnu 

nuv 


95 004261 










CALL 


96 004263 


104202 


001 40S 






Mnu 


97 004265 










CALL 


98 004267 


104204 


01 ?477 






Mnu 

nuv 


99 004271 


105054 








ABB 


100 004272 


104123 








Mnu 

nuv 


101 004273 


100143 








Mnu 

nuv 


102 004274 


104623 


000001 






MOU 
nuv 


103 004276 


107303 


002007 








104 004300 


103203 


170000 
1 f www 






Rf r 

Dl V 


105 004302 


101203 


030000 






Rf S 

Dl d 


106 004304 


100643 


000001 

WW www 1 






MOU 

nuv 


107 004306 








BOTTOM* 




108 004310 


105200 


00000? 

wvl/wwC 


002157 

vwC f 






109 004313 


117400 


001 741 






DEC 


110 004315 










BNE 


111 004317 










POP 


112 004320 


104030 


001605 






NOV 


113 004322 


104030 


001552 






WV 


114 004324 










POP 
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SEQ 114 



#BIT13.TE«P2*1 

BOTTOM 

RCTUT 

PNGPG 

#RCTBUF,R4 

R5,R4 

#TEHP2-R2 

(R2),R3 

R3.(R4) 

1(R2),R3 

#HD.CLR,R3 

#RC.SND.R3 

R3J(R4) 

BOTTOff 

#HD.PRV.R3 

SECNDY 

1<R5).R3 

«L0«R3 

#RC.FRE,R3 

SWAP 

(R2),R3 

R3.(R5} 

1(R2},R3 

ST.LBN,R3 

«HD.CLR,R3 

fRC.PRV,R3 

R3J<R5) 

BOTTOM 

0(R5}.TEMP2 

1(R5).TEMP2*1 

(R2),R3 , 

R3,(R5> ' 

1(62),R3 

ST.LBN,R3 

fHD.CLR,R3 

#RC.PRV,R3 

R3J(RS) 

RCTUT 

fTEMP2,R2 

PN6PG 

fRCTBUF,R4 

RS.R4 

(R2},R3 

R3,(R4) 

1(^2), R3 

Sr.LBN,R3 

#H0.CLR,R3 

#RC.SND,R3 

R3J(R4) 

RCTWT 

fERLEN.UPOPNT 

REVCNT 

ROVER 

R3 

R3,CYLNUN>1 

R3,ISEEK^2 

R3 



ANY THING DISPLACED ??? 
NO - NO NEED TO PING-PONG 
WRITE UT BLOCK 
FIND IT A NEy HOME 
POINT TO BUFFER 
ADD OFFSET 

POINT TO OLD RESIDENT 

GET LOU ORDER 

PUT IT IN 

GET HIGH ORDER 

CLEAR HEADER 

MARK AS SECONDARY 

STORE IT 

60 TO BOTTOM OF LOOP 

PRIMARY REVECTOR ?? 

NO - TREAT AS SECONDARY 

GET RCT HEADER 

CLEAR ALL BC'T HEADER 

IS IT FREE ?? 

NO - SWAP ENTRIES 

GET LOW BLOCK NUMBER 

STORE IN RCT 

GET HIGH ORDER 

SUBTRACT STARTING LBN BITS 

CLEAR HEADER 

SIGNAL PRIMARY REVECTOR IN RCT 

STORE IN RCT 

GO TO BOTTOM Of LOOP 

GET LOU ORDER CURRENT RESIDENT 

GET HIGH ORDER CURRENT RESIDENT 

GET LOW ORDER NEW RESDENT 

PUT IN RCT 

GET HIGH ORDER NEW RESIDENT 
SUBTRACT STARTING LBN BITS 
CLEAR THE HEADER 
SET AS PRIMARY 
PUT IN RCT 

WRITE OUT PRIMARY BLOCK 
POINT TO OLD RESIDENT 
FIND RCT ENTRY FOR SECONDARY 
POINT TO BUFFER 
ADD OFFSET 

GET LOW ORDER NEW ENTRY 
PUT IN RCT 

GET HIGH ORDER NEW ENTRY 

SUBTRACT STARTING LBN BITS 

CLEAR HEADER 

FLAG AS SECONDARY 

STORE IN RCT 

WTIR OUT RCT BLOCK 

POINT TO NEXT ERROR SECOTR 

DECREMENT IT 

NOT DONE - DO NEXT SECTOR 
GET HIGH ORDER CYL 
RESTORE IT 
PUT IN SEEK COMMAND 
GET LOW ORDER 
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115 
116 
117 
118 
119 
120 
121 
122 
123 
12A 
125 
126 



00A325 
00A327 
004331 
004332 
004334 
004337 
004341 
004344 
004347 
004351 
004354 
004356 



104030 
104030 

104030 
102200 

104300 
102200 



001604 
001551 

001565 
040000 

002146 
020000 



001702 

001553 
001 703 



101200 100000 001552 



2S: 

NOSEK: 



MOV R3,CYLNUK 

nOV R3,ISEEK^1 

POP R3 

MOV R3fCURTRK 

BIT #FiNI,FLAG 

BNE NOSEK 

nOV CURGRP,ISEEK^3 

BIT #n0DE.FLA61 

BEQ 2$ 

BIS #SS,ISEEiC«2 

CALL SEEK 

RETURN 



PUT IN SEEK COMMAND 
GET TRACK NUMBER 
RESTORE IT 
DO THE SEEK ? 
NOPE 

RESTORE GROUP TO SEEK 
ARE U£ IN 576 MODE ? 
NO - EVERYTHING FINE 
ELSE SET 576 MODE IN SEEK 
GET BACK TO RIGHT CYLINDER 
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1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
U 
15 
16 
17 
18 
19 
20 
21 
22 
23 



004360 
004361 
004363 
004365 
004367 
004372 
004374 
004377 
004402 
004404 
004406 

004410 
004411 
004412 
004413 
004415 
004417 
004422 
004425 



115001 

104207 001525 



104200 
114000 
104300 
104300 
104204 
104203 



104131 
105011 
100131 

104140 
104640 
107300 



UHASH: 



000200 001410 UHKIP: 
001411 

001634 001403 

001635 001404 
001403 
001410 



001634 UHKIP1 
000001 001635 
002010 001635 



COMPUTE RCT ADDRESS FOR GIVEN 

TST R1 

8MI UHKIPI 

MOV #SCR,RO 

CALL PRIHRB 

MOV #128. -TEMP 

CLR TEMP+1 

MOV REVRBN.DDUHMY 

MOV REVRBN4^1 ,DDUNHY4-1 

MOV #DDUMHY.R4 

MOV /rTEMP,R3 

CALL DDIV 

MOV (R3).R1 

ADD R1 «R1 

MOV R1«(R3) 
RETURN 

MOV (R4),REVRBN 

MOV 1(R4),REVRBN«^1 

SUB ST.RBN.REVRBN^I 

BR UHKIP 



SEQ 116 



LBN 

:NEED TO COMPUTE PRMARY RBN ? 
;N0 - SKIP IT 

.•POINT TO CUBUNIT CHARACTERISTICS 

.■COMPUTE PRIMARY RBN 

.'DIVIDE BY 128 TO GET BLOCK NUMBER 

;FOR STORE 

.GET PRIMARY R8N 

;6£T HIGH ORDER 

;FOR DIVIDE 

;DITTO 

;DDUMHYsRCT BLOCK NUMBER 

;TEMP«OFFSET 

;6ET OFFSET 

;MULTIPLY BY 2 

; STORE BACK 

.'FORDIVIDE SETUP 
.-DITTO 

.-SUBTRACT STARTING RBN BITS 
;D0 DIVIDE 
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100A79 


000004 
UUUUUs 
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000001 
UUUW 1 




17 




107305 


007777 
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Ifl 




100A75 


000001 
UUUUU 1 
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1 14003 
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000000 




c 1 
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UUc 1 r 1 




ts 


OOA47A 
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00 A ^00 


105500 


050000 


001707 
UU 1 lyjj 


cO 


004 C07 








P7 


004^0^ 


1O0A57 


000440 




CO 


004^07 








79 


004S1 1 


1 woe J 


000400 

vWtW 




^fl 

JU 


on4Si ^ 

WIHj 1 J 




00177^ 

vU 1 J f J 




■?1 
J 1 




100A73 


000005 
vWUUC 






004S17 


10/507 
1 vtcl/J 


1 99400 






004^71 


104^03 


001 ^(\^ 




XL 




10103^ 








0A4574 




vWW7 














77 

J f 


vVt Jc r 


100X77 


00000^ 

WvWJ 




XR 


004531 


104643 


000001 

Wvvv 1 






vv*t^ Jw 


105303 


009007 

WCWf 






vv*t J J^ 


10130^ 


000000 

vvWW 




■f 1 




IOQA77 


000004 

UvWvH 




4P 


004541 


104?03 


001400 

w 1 "tW 




A'? 


004 


100x77 


OOOOOl^ 

WWvO 






004S4S 


104303 


009005 
wc w^ 




■f ^ 


004^47 


104304 


A0900A 

WCvvO 




••u 


004^^1 




001419 

W 1 H 1 C 




■t r 


004SS^ 

W"* J J J 


104907 


001 X7X 

VV 1 J> V 






W*l J J J 


vow 1 c 






ST 


W"t J JU 


1 0A 709 
1 VH JVC 


009171 

VVC 1 • 1 




50 


004560 


060003 






51 


004561 


115001 






52 


004562 








53 


004564 


10^300 


002165 


002167 


54 


004567 








55 


004571 


115400 


002167 




56 


004573 








57 


004575 


104303 


002170 





RCTUT: 



IS: 
2$: 



3S: 
4$: 



It: 



WNi 1 C 


Art KL 1 DLULK 


ri B 

tLN 


BC 


nuv 


D*! klFVTI 

nJ ,Ttt. A 1 1 


nuv 


irnfkllMMV D4 


nuv 


MCtO ox 


01 1 




one 


1* 
1 • 


MOU 

nuv 


1 RMTI 3 f D7) D3 


DD 

Dn 


3t 


unu 
nuv 


1 RklT7A(P'^) B3 
LDN 1 rOVnji «nC 


Rf r 


jfUIRVTe p5 

IFniDI 1 C > nc 


MOU 

nuv 


ifrokiBi r po 


MOU 
nuv 


D3 U'^fPO) 
nC # V J %nv# 


mOu 
nuv 


CTrVI fB?l B9 


Rf r 


ifl 0 B9 


MOU 

nuv 


B9 Ul4l(B0) 

nC » V 1 ▼ 1 VWU' 


ri fi 

LLn 


B9 

nc 


MOU 

nuv 


B9 U1 f BO) 
nc #V 1 %nU/ 




L V 1 


MOU 

nuv 


JTBTTRIir B3 
mny, 1 our f nc 


MOV 

nuv 


eerci? BO 
dCLSt/ >nu 






Rf T 




RFO 


7C 


MOU 

nuv 


B7 BU E7AfD9> 
Hjt nM • C ' 0 \ If c f 


RR 


4S 


MOV 

nuv 


Du PnrfD9) 
n j«iiw«cui> \iie« 


MOV 

nww 




mv 




MOW 

nuw 




MOV 




Rf S 


R2 R3 


NOV 


R^ RU tMOCRO) 


MOV 


(R4) R3 


MOV 


R3 RU LOy(RO) 


NOV 


1(R4) R3 


ADD 


ST LBM R3 

•LD*i#nj 


BIS 


JfUn 1 DILI p7 


NOV 


R3 Ry HHRO) 


MOV 


JfHSLIM-l R3 


MOV 

nww 


R3 RU DUH(RO) 


NOV 

nww 


HPRFA R3 


NOV 

nww 


DPRFA R4 


NOV 

nww 


UMIT R9 
v'v4 1 #nc 


MOV 

nww 


iURRI IT RO 




SIP 


NOV 


SECSIZ«R2 


XFC 


WRITE 


TST 


RI 


BEQ 


RU6D 


CNP 


RETRY. THPTRY 


BEQ 


1$ 


INC 


THPTRY 


BR 


yRITE2 


NOV 


RECTNP,R3 



CLEAR ERROR OCUNTER 

RESET NEXT COUNTER 

POINT TO BLOCK 

POINT TO CHARACTERISTICS 

WHAT NODE 

IF SET THEN 576 

GET LBN/TRACK FOR 512 

SKIP 576 SETUP 

GET LBN/TRACK FOR 576 

CLEAR HIGH BYTE 

POINT TO CONVERT BLOCK 

FOR CONVERT 

STARTING CLYLINDER 

CLEAR REST OF WORD 

STORE 

CLEAR FOR STORE 

LOU ORDER ALUAYS 0 

CONVERT AND SEEK 

POINT TO BUFFER 

SECTOR SIZE IN WORDS 

COMPUTE EDC - RETURNED IN R3 

WHAT NODE ARE WE IN 

IF CLEAR THEN 512 

STORE IT 576 BUFFER 

SKIP 512 SETUP 

STORE IT 512 BUFFER 

POINT TO COPfMND BLOCK 

STICK BUFFER PTR IN CONHAND BLOCK 

GET WRITE COWAND 

GET CURRENT TRACK 

SET TRACK FOR WRITE 

STORE IN CONHAND BLOCK 

GET LOW ORDER HEADER 

STORE IN WRITE BLOCK 

GET HIGH ORDER 

ADD STARTING LBN BITS 

SET HEADER 

STORE IN WRITE BLOCK 

GET DUMMY SDI POINTER 

POINT IN COMMAND BLOCK 

GET HEADER PREAMBLE 

GET DATA PREAMBLE 

GET PORT NUMBER 

MAKE SURE POINTING AT BLOCK 

WAIT FOR SECTOR PULSE 

SECTOR SIZE IN WORDS 

WRITE SECTOR 

ANY ERROR ? 

NOPE 

MAX ? 

YES - TRY SOME RECOVERY 
INC RETRY COUNT 
DO RETRY 

GET CURRENT ERROR RECOVE'iY LEVEL 
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58 004577 










BMI 


2% 


59 004601 


115000 


002166 






TST 


RECOV 


60 004603 










BEQ 


3S 


61 004605 










CALL 


ERRHND 


62 004607 


114000 


002167 




3S: 


CLR 


TMPTRY 


63 004611 


117400 


002170 






DEC 


RECTHP 


64 004613 










BR 


URITE2 


65 004615 








2%: 




R5 


66 004615 


115405 








INC 


67 004616 


115400 


001732 




RU6D: 


INC 


NEXT1 


68 004620 


114000 


002167 






CLh 


TMPTRY 


69 004622 


104300 


002166 


002170 




MOV 


RECOV, RECTnP 


70 004625 


104204 


001403 






nov 


#DDUnnY,R4 


71 004627 


104203 


001727 






nov 


#RCTFHT.R3 


72 004631 










CALL 


DADD 


73 004633 


106300 


001731 


001732 




CHP 


FCTCPY.NEXTI 


74 004636 










BNE 


RCTULP 


75 004640 


106305 


001731 






CMP 


FCTCPY.R5 


76 004642 










BEO 


RCTERR 


77 004644 


104303 


001732 




RCXLP: 


nov 


NEXT1 .R3 


78 004646 










BEO 


RTDON 


79 004650 


104204 


001403 






nov 


#DDUNHY,R4 


80 004652 


104203 


001727 






nov 


#RCTFnT,R3 


81 004654 










CALL 


DSUB 


82 004656 


117400 


001732 






DEC 


NEXT1 


83 004660 










BR 


RCXLP 


84 004662 


060022 






RTDON: 


XFC 


UPDATE 


85 004663 










RETURN 




86 004665 


104012 






RCTERR: 


nov 


R1,R2 


87 004666 


104201 


000017 






nov 


#15. .R1 


88 004670 










CALL 


ERRHNT 



SEO 118 



;IF NEGATIVE THEN FRIED 

:IS THERE ONLY RECOVERY LEVEL 0 ? 

:YES - NO NEED TO ISSUE IT - JUST RETRY 

;TRY RECOVERY 

:F0R INIT 

.-DECREMENT IT 

.•RETRY 

;YUP - INCREMENT COUNTER 
.-INCREnENT IT 
;FOR RESET 

;6ET RECOVERY LEVELS 
;FOR ADD 
;FOR ADD 

.•POINT TO NEXT COPY 

.♦DONE THIS SECTOR ? 

;N0 - WRITE NEST FCT COPY 

.•ERROR ON EVERY WRITE ? 

;YUP - BIG TROUBLE 

;ANY REAPEATS ? 

;N0 

;T0 GET IT BACK 
.•DITTO 

.-SUB IT 
•REPEAT 

•LET HOST KNOW STILL ALIVE 

:XFC ERROR CODE 
:RCT WRITE ERROR 
.•ERROR QUIT 
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1 
2 
3 

4 004672 

5 004673 

6 004675 

7 004676 

8 004700 

9 004701 

10 004702 

11 004704 

12 004706 

13 004710 

14 004712 

15 004714 

16 004716 

17 004720 

18 004722 

19 004723 

20 004724 

21 004725 

22 004727 

23 004731 

24 0C4733 
25 

26 
27 
28 
29 

30 004735 

31 004737 

32 004741 

33 004743 

34 004744 

35 004745 

36 004747 

37 004751 

38 004753 

39 004755 

40 004757 

41 004761 

42 004763 

43 004765 

44 004767 

45 004771 

46 004774 

47 004777 
48 

49 

50 005001 

51 003002 

52 005004 

53 005006 

54 005007 



114000 
114002 
104303 
104035 
105025 
102205 

104651 
103201 
10620^ 

106201 

104025 
114002 
107052 

105202 
106202 



115400 
104303 
104204 
100143 
114003 
100643 
104030 
104203 

104040 
104201 



104200 
104200 



104201 
114002 



002162 
002162 
001403 



000001 
001410 
001712 

001740 
000055 



104303 001705 



000002 
000002 



000020 



SEARCH FOR OPEN EMTRV IN RCT 





PNGPQ: 


PUSH 


R2 


001705 




CLR 


WRFLG 




XNG6LK: 


CLR 




001410 




nov 


OFFSET, R3 


XAGAIN: 


MOV 


R3,R5 






ADD 


R2,R5 


000400 




BIT 


#BlT8«R5 






BNE 


XFLIP 


013500 




HOV 


RCTBUF+1 (R5),R1 


007777 




BIC 


#L0«R1 


1 00000 




CMP 


#RC.NUL,R1 




BEQ 


XcORCT 


000000 




CHP 


«RC.FRE«Rt 






BEQ 


XPRET 




XFLIP: 


nov 


R2,R5 






CLR 


R2 






SUB 


R5,R2 






BHI 


XNOINC 


000002 




ADD 


#2,R2 


000400 


XNOINC: 


CHP 


#SECSI6,R2 






BNE 


XAGAIN 



IN THIS SECTION THE BLOCKS Af 
THE SEARCH WITHIN BLOCKS IS Li 
ADDRESS TO LOWEST 



XPN6RD: 



XEORCT: 



002162 
001705 



XPRET: 
XPERR: 



INC 

NOV 

NOV 

NOV 

CLR 

NOV 

NOV 

NOV 

CALL 

NOV 

NOV 

CALL 

BR 

NOV 

BNE 

NOV 

NOV 

BR 



POP 

RETURN 
NOV 
CLR 
CALL 



RCTCNT 

RCTCNT,R3 

«DDUNNY,R4 

R3,<R4) 

R3 

r|,1(R4) 

rS.offset 

#H0LD,R3 
DADD 

R4.6UFPNT 

fHl.RI 

PAGE 

XNGBLK 

WRFLG, R3 

XPERR 

#2,RCTCNT 

f2,WRFLG 

XPNGRD 



R2 

fl6.,R1 

R2 

ERRNNT 



'SAVE R2 

•CLEAR WRAP FLAG 
;FOR FLOP SET 
;GET OFFSET 

:NOV OFFSET INTO BUFF POINTER 

;ACD FLOr VALUE 

;PAST ONE kHO (OR BOTH) 

;YUP - FLIP OTHER DIRECTION 

;GET HEADER CODE 

; CLEAR LOW ORDER 

;END OF RCT ? 

;YUP - WRAP TO FIRST BLOCK 
;FREE ? 

;YUP - ALL 30NE 
;GET FLIP VAIUE 

;NEGATE IT 

;IF NEGATIVE DON'T INC 
;ADD TO NEXT VALUE 
.-DONE EVERY SLOT IN BLOCK ? 
:NOPE - TRY NEXT ONE 

PING-PONGED BUT 

:AR FRON HIGHEST BUFFER 



;INC TO NEXT ONE 
;FOR STORE 
:FOR ADD 

.•STORE BLOCK NUMBER 
;FOR RESETS 
.•CLEAR HIGH WORD 
:nAKE OFFSET AT BEGINNING 
.-POINT TO FIRST RCT LBN 
:GET LBN OF THIS RCT BLOCK 
.'STORE BLOCK NUMBER 
:READ RCT OVERLAY 
;D0 IT 

;SEW»CH THIS BLOCK 
:GET WRAP FLAG 

:IF BEEN HERE ONCE THEN RCT FULL 
.•FOR FIRST RCT BLOCK 
;NAKE WRAP FLAG NON-ZERO 
.•READ IT AND CONTINUE 



.RESTORE R2 
.•SUCCESSFUL RETURN 
;RCT FULL 
:N0 SUBCODE 
.•ERROR RETURN 
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SEQ 120 



1 
2 
3 
4 
5 
6 
7 
8 
9 
10 

n 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 



005011 



.SBTTL RCT READ OVERLAY (Hi) 
DNOVLY HI. Si ART 

BP An A BLOCK OF THE RCT 



004014 








004C22 


104200 


000055 


001636 


004025 


104*^04 


001 740 




004027 


114005 






004030 


104203 


001525 




004032 


104632 


000001 




004034 
0040^0 


103202 


007777 




■•04207 


002110 




004:-40 
004C42 


100672 


000001 




114002 






004C43 


100672 


000000 




004045 


102200 


020000 


001703 


0P'*050 








C04052 


104632 


000011 




0040S4 








00405A 


104632 


000015 




004060 


103202 


177400 




004062 


100672 


000004 




004064 








004064 








004066 


104207 


001373 




004070 


104203 


001400 




004072 


100673 


000006 




004074 


104143 






004075 


100673 


000003 




004077 


104643 


000001 




004101 


105303 


002007 




004103 


100673 


000004 




004105 


104203 


013477 




004107 


100673 


000002 




004111 


104203 


013400 




004113 


104301 


001565 




004115 


101013 






004116 


100673 


000005 




004120 


104207 


001373 




004122 


104203 


100000 




004124 


100173 






004125 


104302 


001412 




004127 


101207 


100000 




004131 


060012 






004132 


104302 


002171 




004134 


060002 






0041 35 


115001 






004136 








004140 


104673 


000001 




004142 


102203 


010000 




004144 








00^146 


103200 


010000 


001374 


004151 








004153 


115001 






004154 








004156 


104202 


013477 





1$: 
2$: 



PUSHA 
NOV 
NOV 
CLR 
NOV 
NOV 
BIC 
NOV 
NOV 
CLR 
NOV 
BIT 
BNE 
NOV 
BR 
NOV 
BIC 
NOV 
OCLOOP: 

CALL 

NOV 

NOV 

NOV 

NOV 

NOV 

NOV 

ADD 

NOV 

NOV 

NOV 

NOV 

NOV 

BIS 

NOV 

READ11: NOV 
NOV 
NOV 
NOV 
BIS 
XFC 
NOV 
XFC 
TST 
BNE 
NOV 
BIT 
BEQ 
BIC 
CALL 
TST 
BNE 

101$: NOV 



#HUCUROVL 

BUFPNT,R4 

R5 

#SCR,R3 

STCYL(R3).R2 

#L0,R2 

#CONBLK,RO 

R2,VU1(R0) 

R2 

R2,V1(R0) 

fNODE.FLAGI 

1$ 

LBNT12(R3).R2 
2t 

LBNT76(R3).R2 

fHIBYTE.R2 

R2.V3(R0) 

CVTSK 

fRDBLK.RO 

#HSLIH-1,R3 

R3,RU.DUN(R0) 

(R4),R3 

R3,RW.L0U(R0) 

1(R4).R3 

ST.LBN,R3 

RS.RU.HKRO) 

#RCTBUF,R3 

R3,RU.BUF(R0) 

#RUCHD,R3 

CURTRK.R1 

R1,R3 

R3.RU.CND(R0) 

fRDBLK.RO 

«RDCN0,R3 

R3.(R0) 

UNIT,R2 

fBITIS.RO 

SIP 

SECSIZ.R2 

READ 

R1 

100$ 

RU.ER1(R0),R3 

#ECCF,R3 

101$ 

«ECCF,RDBLK*RU.ER1 

ECCCK 
R1 

100S 

fRCTBUF,R2 



FOR INIT 

GE1 POINTER TO BLOCK NUNBER 
CLEAR ERROR COUNTER 
POINT TO CHARACTERISTICS 
GET STARTING CYLINDER 
CLEAR REST OF WORD 
POINT TO CONVERT BLOCK 
STORE FOR CONVERT 
FOR STORE 

LOU ORDER ALWAYS 0 

UHAT NODE 

IF SET THEN 576 

GET LBN/TRACK FOR 512 

SKIP 576 SETUP 

GET LBN/TRACK FOR 576 

CLEAR HIGH BYTE 

STORE IN CONVERT BLOCK 

CONVERT RCT BLOCK NUMBER AND SEEK 

PREPARE FOR READ SECTORS 

POINTER TO DUMNY SDI BLOCK 

STORE IN CONNAND BLOCK 

LO ORDER BLOCK NUNBER 

STORE IN READ COND BLOCK 

HI ORDER BLOCK NUN AND CODE 

ADD STARTING LBN BITS 

STORE IN READ CND BLOCK 

LOAD ADDRESS OF DATA BUFFER 

STORE IN CONNAND BUFFER 

LOAD SDI READ CONNAND 

GET CURRENT HEAD NUNBER IN R1 

SET IT IN CONNAND 

STORE BACK 

NAKE SURE POINTING AT BLOCK 

NARK AS ONLY REQUEST 

STORE IN CND BLOCK 

GET PORT NUNBER 

SET NO REVECTORING 

WAIT FOR PULSE 

SECTOR SIZE IN WORDS 

READ 1 SECTOR 

ANY t'RRORS ? 

YES - TRY RECOVERY 

GET KC STATUS WORD 

ECC ERROR ? 

NOF'E - VERIFY EDC 

CLEAR ECC ERROR BIT 

CORRECT ECC 

TEST FLAG 

UNCORRECTABLE 

POINT TO BUFFER 
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58 004160 


104307 


002171 






NOV 


59 004162 










CALL 


60 004164 


102200 


020000 


001703 




BIT 


61 004167 










BEQ 


62 004171 


106623 


000440 






CMP 


63 004172 










BEQ 


6'f 00^.175 










BR 


65 00417 7 


106623 


000400 




4S: 


CHP 


^ M S^M^M ^^^^^ 

66 004201 










BEQ 


67 004203 


106300 


• -JUS 


002167 


100S: 


cnp 


68 004206 










BEQ 


69 004210 


115400 


J2167 






INC 


70 004212 










BR 


71 004214 


104303 


002170 




1$: 


NOV 


72 004216 










BMI 


73 004220 


1 1 5000 


002166 






TST 


74 004Z22 










BEQ 


75 004224 










CALL 


76 004226 


114000 


002167 




3S: 


CLR 


77 004230 


117400 


002170 






DEC 


78 004232 










BR 


79 004234 








2S: 




80 004234 


t 1 5405 








INC 


81 004235 


106305 


001731 






CMP 


82 004237 










BEQ 


83 004241 


104203 


001727 






NOV 


84 004243 










CALL 


85 004245 


114000 


002167 






CLR 


86 004247 


4 A / 9 AA 

104300 


002166 


002170 




NOV 


87 004252 










BR 


88 004254 








102S: 




AA AA^ ^ ^ J 

89 004354 


4 4/ AAA 

114000 


002167 




OCDONE : 


CLR 


AA AA4 

90 004256 


104300 


002166 


002170 




NOV 


A A # A ^ 4 

91 004261 


4 « VAAV 

115005 








TST 


AA AA / A^ A 

92 004262 










BEQ 


A9 A A t A^ M 

93 004264 


4 A / A A9 

104203 


001727 






MOV 


A # A A t ^£ ^ 

94 00<*266 










CALL 


A i* A A > '^^A 

95 004270 










CALL 


96 004272 


104207 


001373 






NOV 


A 9 AA^ 

''7 004274 


4 A / ^ A9 

104203 


122400 






NOV 


98 004276 


4 A/ 9 A^ 

104302 


001565 






NOV 


AA AAJ 9AA 

99 004300 


4 A4 A A9 

101023 








BIS 


« A A AA/ 9A4 

100 004301 


4 AA^ 99 

100673 


000005 






NOV 


4A« AA4 VAV 

101 004303 


4 A / A9 

104203 


013477 






NOV 


« AA AA/9A^ 

102 004305 


100673 


000002 






NOV 


4 A9 AA/ VA^ 

103 004307 


4 A / 4 / 9 

104143 








NOV 


4 A / A A J 9 4 A 

104 004310 


4 A A^ 99 

100673 


000003 






NOV 


4 Ar AA/ 94 ^ 

105 004312 


4 A/ ^ / 9 

104643 


000001 






NOV 


4 A^ AA/ 94 / 

106 004314 


4 Ar9A9 

105303 


002007 






ADD 


4 A9 AA^94^ 

107 004316 


4 /%A^ 99 

100673 


000004 






NOV 






001400 






MOV 


109 004322 


100673 


000006 






NOV 


110 004324 


104303 


002005 




URIT12: 


NOV 


111 004326 


104304 


002006 






NOV 


112 004330 


104302 


001412 






MOV 


113 004332 


104207 


001373 






NOV 


114 004334 


101207 


100000 






BIS 



E 10 

22 PAGE 70-1 



SEO 121 



SECSIZ.RO 
CEDC 

fNODE.FLAGI 
4S 

RU.E76(R2},R3 

102$ 

100$ 

RU.EDC(R2)«R3 
102$ 

RETRY. TMPTRY 
1$ 

TMPTRY 
READ11 
RECTMP,R3 
2$ 

RECOV 
3$ 

ERRHNO 
TMPTRY 
RECTMP 
READ11 

R5 

FCTCPY.R5 

ORFTAL 

»RCTFNT,R3 

DADD 

TMPTRY 

RECOV.RECTMP 
OCLOOP 

TMPTRY 

RECOV.RECTMP 
R5 

RLDONE 

#RCTFHT,R3 

DSUB 

CVTSK 

fURBLK,RO 

«WRCHD,R3 

CURTRK,R2 

R2,R3 

R3,RW.CN0(R0) 

»RCTBUF,R3 

R3.RU.BUF(R0} 

<R4),R3 

R3,RU.LOy(R0) 

1(R4),R3 

ST.LBN.R3 

R3,RU.HI(R0) 

#HSLIN-1,R3 

R3.RU.DUM(R0) 

HPREA.R 

DPREA,R4 

UNIT.R2 

#URBLK,RO 

fBITIS.RO 



SECTUR SIZE IN WORDS 
COMPUTE EDC 
WHAT NODE ARE WE IN 
IF CLEAR THEN 512 
OK ' 

YUP'-' CONSIDER GOOD 
NOPE - RETRY 
O.K. ? 

YUP - CONSIDER GOOD 
MAX ? 

YES - TRY SOME RECOVERY 
INC RETRY COUNT 
DO RETRY 

GET CURRENT ERROR RECOVERY LEVEL 

IF NEGATIVE THEN FRIED 

IS THERE ONLY RECOVERY LEVEL 0 ? 

YES - NO NEED TO ISSUE IT - JUST RETRY 

TRY RECOVERV 

FOR INIT 

DECRENENT IT 

RETRY 

INCRENENT BAD COUNTER 

ALL BAD ? 

YUP - ALL OVER 

SIZE OF TABLE - R4 -> BLOCK NUNBER 
ADD TO POINT TO NEXT COPY 
RESET RETRY COUNT 
DITTO RECOVERY LEVELS 
BRANCH BACK 

FOR RESET 

GET RECOVERY LEVELS 

ANY ERRORS ? 

NO - EXIT 

SIZE OF TABLE 

GET BACK TO PREVIOUS COPY 

CONVERT AND SEEK 

POINT TO CONNAND BLOCK 

GET WRITE COHNANO 

GET CURRENT TRACK 

SET TRACK FOR WRITE 

STORE IN CONNAND BLOCK 

POINT TO BUFFER 

STICK IN CONNAND BLOCK 

GET LOW ORDER HEADER 

STORE IN WRITE BLOCK 

GET HIGH ORDER 

ADD STARTING LBN BITS 

STORE IN WRITE BLOCK 

GET DUNNY SDI POINTER 

POINT IN CONNAND BLOCK 

GET HEADER PREAMBLE 

GET DATA PREANBLE 

GET PORT NUNBER 

NAKE SURE POINTING A1 BLOCK 

SET NO REVECTORING 
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RCT READ OVERLAY (Hi) 

SIP 

SECSIZ,R2 
WRITE 
R1 
2$ 

RETRY, TMPTRY 
U 

THPTRY 
WRIT12 
RECTHP.R3 
2$ 

RECOV 
3S 

ERRHNO 
THPTRY 
RECTMP 
WRIT12 

R5 

RECOV, RECTMP 
9CD0NE 



R1.R2 
#14., R1 
ERRNNT 



sEQ m 



IIS 004336 


060012 








XFC 


116 004337 


104302 


002171 






NOV 


117 004341 


060003 








XFC 


118 004342 


115001 








TST 


119 004343 










BEQ 


120 00434S 


106300 


002165 


002167 




CMP 


121 0043S0 










BEQ 


122 004352 


1 1 5400 


002167 






INC 


123 0043S4 










BR 


124 004356 


104303 


002170 




1$: 


MOV 


125 004360 










BMI 


126 004362 


115000 


002166 






TST 


127 004364 








BEQ 


128 004366 










CALL 


129 004370 


114000 


002167 




3$: 


CLR 
DEC 


130 004372 


117400 


002170 






131 004374 










BR 


132 004376 








2S: 


133 004376 


117405 








DEC 


134 004377 


104300 


002166 


002170 




NOV 


135 004402 










BR 


136 004404 








RLDONE: 


POPA 


137 004412 










RETi.'<>N 


138 004414 


104012 






ORFTAL: 


NOV 


139 004415 


104201 


000016 






NOV 


140 004417 










CALL 



WAIT FOR SECTOR PULSE 

SECTOR SIZE IN WORDS 

WRITE SECTOR 

ANY ERROR ? 

NO - SKIP RETRY 

MAX ? 

YES - TRY SOME RECOVERY 
INC RETRY COUNT 
DO RETRY 

GET CURRENT ERROR RECOVERY LEVEL 

IF NEGATIVE THEN FRIED 

IS THERE ONLY RECOVERY LEVEL 0 ? 

YES - NO NEED TO ISSUE IT - JUST RETRY 

TRY RECOVERY 

FOR INIT 

DECREMENT IT 

RETRY 

DEREMENT COUNTER 
GET RECOVERY LEVELS 
SEE IF ANY MORE TO DO 

ALL DONE 
XFC ERROR CODE 
RCT READ ERROR 
ERROR RETURN 
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^t^U.Z JiPf:52 fORHATTER DNACR XW.Ol 25-AU6-82 13:14:22 PAGE 71 
RCT READ OVERLAY 'Hi) 



SEO 123 



1 

! 

4 
5 
6 

7 004421 
8 
9 
10 

11 004014 



.S8TTL FC»RCT CONVERSION OVERLAY (f5) 
CONVERT FCT INTO RCT 

DNOVLY F5, START 
JHP START2 



;SKIP SUBROUTINES 
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FCT->RCT CONVERSION OVERLAY (F5) 



1 
2 
3 

A 00A016 

5 004017 

6 004021 

7 004C23 

8 004025 

9 004030 

10 004032 

11 00403S 

12 004040 

13 004042 

14 004044 
15 

16 004046 

17 004047 

18 004050 

19 004051 

20 004053 

21 004055 

22 004060 

23 004063 



104131 
105011 
100131 

104140 
104640 
107300 



115001 




HASH: 


104207 


001525 




104200 


000200 


001410 KKIP: 


114000 


001411 




104300 


001634 


001403 


104300 


001635 


001404 


104204 


001403 




104203 


001410 





001634 HKIP1: 
000001 001635 
002010 00163S 



COMPUTE RCT ADDRESS FOR GIVEN 

TST R1 

BMI HKIP1 

NOV #SCR,RO 

CALL PRINRB 

NOV #128.. TEMP 

CLR TEMP*1 

MOV REVRBN.DDUMMY 

NOV REVRBN^nDOUMMYi-l 

MOV #DDUHNY,R4 

MOV »TENP,R3 

CALL DDIV 

NOV (R3}.R1 

ADD R1 ,R1 

NOV R1,(R3) 
RETURN 

MOV (R4),REVRBN 

NOV 1(R4)«REVRBN«1 

SUB ST.RBN.REVRBN^I 

BR HKIP 



L. 



SEQ 124 



;NEED TO COMPUTE PRNARY RBN ? 
;N0 - SKIP IT 

.•POINT TO CUBUNIT CHARACTERISTICS 

.'COMPUTE PRIMARY RBN 

;DIVIDE BY 128 TO GET BLOCK NUMBER 

.-FOR STORE 

;6ET PRIMARY RBN 

;GET HIGH ORDER 

:FOR DIVIDE 

.-DITTO 

;DDUMMYsRCT BLOCK NUMBER 

.•TEMPsOFFSET 

:6ET OFFSET 

.MULTIPLY BY 2 

.•STORE BACK 

.•FGRDIVIDE SETUP 
.-DITTO 

.-SUBTRACT STARTING RBN BITS 
;D0 DIVIDE 
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FCT->RCT CONVERSION OVERLAY (F5) 



1 
2 
3 
4 
5 
6 
7 



004065 
004067 
004070 
004C72 

8 004073 

9 004074 

10 004076 

11 004100 

12 004102 

13 004104 

14 004106 

15 004110 

16 004112 

17 004114 

18 004115 

19 004116 
2C 004117 

21 004121 

22 004123 

23 004125 
24 

25 
26 
27 
28 

29 004127 

30 004131 

31 004133 

32 004135 

33 004136 

34 004140 

35 004142 

36 004144 

37 004146 

38 004150 

39 004152 

40 004154 

41 004156 

42 004160 

43 004162 

44 004165 

45 004170 
46 

47 

48 004172 
49 

50 004174 

51 004176 

52 004177 



114000 
114002 
104303 
104035 
105025 
102205 

104651 
103201 
106201 



001705 
001410 

000400 

013500 
007777 
100000 



106201 000000 

104025 
114002 
107052 



105202 
106202 



000002 
000400 



115400 
104303 
104204 
100143 
114000 
114000 
104203 

104040 
104201 



002162 
002162 
001403 

001404 
001410 
001712 

001740 
000055 



SEARCH FOR OPEN ENTRY IN RCl 







URFI fi 




CI R 


R2 






ur r 9c 1 J 




MOV 


R1 RS 




ADD 


R2 R5 




BIT 


JtDtTB BC 
t 1 w # 




BN^ 


FLIP 




MOV 


ftCTBUFi'l (R51 R1 




Air 


MIQ P1 




CMP 


#RC.NUL.R1 




BEQ 


EORCT 




CMP 


#RC.FRE.R1 




BEQ 


PRET 


FLIP: 


MOV 


R2,R5 




CLR 


R2 




SUB 


RS,R2 




BMI 


NOINC 




ADD 


f2,R2 


NOINC: 


CMP 


«SECSI6.R2 




BNE 


PAGAIN 



104303 001705 

104200 000002 002162 
104200 000002 001705 



104201 000020 
114002 



^RET: 
PERR: 



IN THIS SECTION THE BLOCKS 
THE SEARCH UITHIN BLOCKS IS 
ADDRESS TO LOWEST 



INC 
PNGRO: NOV 
NOV 
NOV 
CLR 
CLR 
NOV 
CALL 
NOV 
NOV 
CALL 
BR 

EORCT: NOV 
BNE 
NOV 
NOV 
BR 



RETURN 

MOV 
CLR 
CALL 



RCTCNT 

RCTCNT«R3 

«D0UNNY,R4 

R3«(R4) 

DDUNMYf^l 

OFFSET 

«N0L0,R3 

DADO 

RA.BUFPNT 

fHl.RI 

PAGE 

PNGBLK 

URFLG,R3 

PERR 

#2, RCTCNT 

«2,URFL6 

PNGRD 



#16.«R1 
R2 

ERRMNT 



SEQ 125 



: CLEAR WRAP FLAG 
;FOR FLOP SET 
;6ET OFFSET 

;MOV OFFSET INTO BUFF POINTER 

:ADD FLOP VALUE 

:PAST ONE END (OR BOTH) 

;YUP • FLIP OTHER DIRECTION 

;GEr HEADER CODE 

: CLEAR LOU ORDER STUFF 

;END OF RCT ? 

:YUP - WRAP TO FIRST BLOCK 
.FREE ? 

;YUP - ALL DONE 
:GET FLIP VALUE 

; NEGATE IT 

;IF NEGATIVE DON'T INC 
:ADD 70 NEXT VALUE 
;DONE EVERY SLOT IN BLOCK ? 
;NOPE - TRY NEXT ONE 

ARE PING-PONGED BUT 
LINEAR FROM HIGHEST BUFFER 



INC TO NEXT ONE 
FOR STORE 
FOR ADD 

STORE BLOCK NUMBER 

FOR RESETS 

MAKE IT AT ZERO 

POINT TO FIRST RCT LBN 

GET LBN OF THIS RCT BLOCK 

STORE POINTER TO BLOCK NUMBER 

RCT READ OVERLAY 

DO IT 

SEARCH THIS BLOCK 
GET WRAP FLAG 

IF BEEN HERE ONCE THEN RCT FULL 
FOR FIRST RCT BLOCK 
MAKE WRAP FLAG NON-ZERO 
READ IT AND CONTINUE 



SUCCESSFUL RETURN 
R5=0FFSET 
RCT FULL 
NO SUBCODE 
ERROR RETURN 
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FCT->RCT CONVERSION OVERLAY (FS) 



1 
2 
3 
A 
5 
6 

7 004201 

8 004201 

9 004204 

10 004206 

11 004207 

12 004211 

13 004212 

14 004214 

15 004215 

16 004217 

17 004221 

18 004223 

19 004224 

20 004225 

21 004227 

22 004232 

23 004234 

24 004236 

25 004240 

26 004243 

27 004245 

28 004250 

29 004252 

30 004255 

31 004260 

32 004263 

33 004266 

34 004270 

35 004272 

36 004274 

37 004276 

38 004300 

39 004302 

40 004304 

41 004307 

42 004311 

43 004314 

44 004317 

45 004321 

46 004323 

47 004326 

48 004330 

49 004332 

50 004335 
004337 

_ 004341 

53 004343 

54 004345 

55 004347 

56 004351 

57 004353 



51 
52 



104200 
104303 

104303 

104303 

104204 
104203 

104143 

114000 
104200 
104201 

104204 
102200 



000014 
001565 

001604 

001605 

001743 
002151 



001743 
010000 
000017 

010000 
020000 



104640 000020 



104640 
104200 
104300 
104300 
104203 
104204 

104201 

104303 

102200 

105300 
104200 
104201 

104200 
104304 
104140 
104640 
104201 

104303 
103203 
106203 

104203 
104204 



001723 
010000 
000017 

010000 
001742 
001563 
000001 
000044 

001567 
007777 
000000 

001566 
001576 



THIS OVERLAY UPDATES THE R( 
IN THE ERRBUF BUFFER 



001636 



001740 

001703 

001747 

001747 
002137 
001712 
001713 



000016 
000200 
001616 
001617 
002160 
001712 

000022 

001747 



020000 001703 



001743 
001740 



001742 
0C1564 



START2: 

FCTRCT: «0V 
NOV 
PUSH 
ffOV 
PUSH 
NOV 
PUSH 
NOV 
NOV 
CALL 
NOV 
PUSH 
CLR 
NOV 
NOV 
CALL 
NOV 
BIT 
BEQ 
NOV 
BR 

1$: NOV 
2$: NOV 
NOV 
NOV 
NOV 
NOV 
CALL 
NOV 
CALL 
NOV 
BEQ 
BIT 
BEQ 
ADD 

FBE6IN: NOV 
NOV 
CALL 
NOV 
NOV 

FBE62: NOV 
NOV 
NOV 
CALL 
NOV 
BIC 
CNP 
6NE 
NOV 
NOV 



#F5,CUR0VL 

CURTRK,R3 

R3 

CYLNUN,R3 
R3 

CYLNUN*1.R3 
R3 

#FCTCNT«R4 

#0NE,R3 

DSUB 

(R4),R3 

R3 

FCTCNT 

#RDBUF,BUFPNT 

#F6,R1 

PAGE 

#RDBUF,R4 

«NO0E«FLAG1 

1$ 

C576(R4),HNCNT 
2S 

C512(R4),HNCNT 

#128.,SECCNT 

LBNlBN.HOLD 

LBNLBN^I .HOLD^^I 

#T0TRCT-R3 

#H0LD.R4 

DSUB 

fF7,R1 

PAGE 

NNCNT.R3 

FCTSP 

fNODE.FLAGI 
FBEGIN 

fCTSUB. FCTCNT 
fRDBUF^BUFPNT 
#F6,R1 
PAGE 

#RDBUF,FCTPTR 

FCTPTR,R4 

(R4),CURPBN 

1(R4>.CURP6N*1 

#G5,R1 

PAGE 

CURBNi^l «R3 

#L0.R3 , 

#HD.LBN,ft3 

NOLBN 

fCURBN,R3 

#H0L0BN.R4 



WITH THE SECTORS 



GET OVERLAY NUNBER 
GET CURRENT TRACK 
SAVE IT 

GET LOU ORDER CVLINDR 
SAVE FOR RESTORE 
GET HIGH ORDER 
SAVE FOR RESTORE 
FOR SUB 
DITTO 

SUB TO GET CURRENT FT BLOCK NUN 
GET IT 

FOR LATER RESTORE 

CLEAR FOR INIT 

POINT TO BUFFER 

READ A BLOCK OF THE FCT 

EXECUTE IT 

NAKE SURE POINT TO IT 

WHAT NODE ARE UE IN 

IF CLEAR THEN 512 NODE 

GET COUNT OF USED ENTRIES •576) 

SKIP 512 STUFF 

GET COUNT OF USED ENTRIES 

ENTRIES IN A FCT SECTOR 

GET LOU ORDER COUNT OF LBN'S 

GET HIGH ORDER 

FOR SUBTRACT 

DITTO 

GET STARTING RCT LBN 
RCT INIT OVERLAY 
INIT RCT 
GET COUNT 

QUIT IF NO ENTRIES 

UHAT NODE ARE UE IN 

512 NODE - NO ADJUSTNENT 

POINT TO 576 TABLE 

POINT TO BUFFER 

FCT READ OVERLAY 

DO IT 

NAKE SURE POINT TO TI 
FOR USE 

GET LOU ORDER PBN 
GET HIGH ORDER 

OVERLAY TO CONVERT FORN PBN TO OTHER BN 
EXECUTE IT 

GET HIGH ORDER CONVERTED BLOCK NUN 

CLEAR ALL BUT HEADER 

IS IT AN LBN ? 

NO - SKIP DOUN 

FOR CONAPRE 

DITTO 
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FCT->RCT CONVERSION OVERLAY (F5) 





UU*i J j3 










CALL 


CO 
3T 














oU 


UvKi30 1 


4 A/. OA/. 


nni CAA 






MOV 


01 












CALL 




UU*l jO J 


ICu^lLX 








MOV 




/W.7AA 
UvKlSOO 


inCOAT 

1 UjcUj 


nOAAA? 






ADD 


AL 












MOV 

PI WW 


O J 






AA?1<^? 






NOV 


OO 




10^9AT 


AA1 71? 






MOV 


Or 












CALL 


Aft 
OO 




in^o^n 


AA1740 

WW 1 f 






MOV 

nvw 


AO 
Ot 




10^901 
1 vHCv 1 


AAAA^^ 






MOV 


f U 












CALL 


f 1 




in^9nc 


A1 ^477 






MOV 


73 




1 A^^n^ 


AA1410 

WV IH 1 V 






NOV 


7X 

1 3 


f>A^/.1 1 


^Mnx^ 








ADD 

AW 


7/. 




^(\Lt^^X 

tyjHOjj 


AAAAA1 






Nov 


7C 


WHH !•» 




0A7777 

VWi t f f 






BIC 

DA V 


7A 
r O 


UU*l*» lO 


1A/^9AT 


AAAAAA 

WW Www 






CMP 


77 












DCV 


70 


nA£A99 




AAAAAA 






CNP 


70 


nA£A9A 










DCH 


OU 


VUhHcO 


lA^I ^A 


AAIAA^ 






NOV 


fli 

01 




1 AAA^A 

IUhOjU 


AAAAA1 


AA140A 

Uw 1*1110 




NOV 


ft? 






AA1 SAA 






NOV 


Oj 




1AA1 








NOV 


Oh 




1 AATAT 


AA1 ^A7 
UU 1 jOi 






NOV 


O J 




107^0^ 
Ivr jvj 


00?007 






SUB 

WWW 


ftA 
OO 


nAA^^9 




170000 






BIC 


fl7 

Of 




1A19A'^ 


o?oooo 






BIS 

D« w 


OO 




1(MW^5^ 

1 vVw^ J 


000001 

WWWW W 1 






NOV 


AO 
07 




1A99AA 

1 vCCWf 


000400 


001 70? 




BIT 

wl 1 


on 












BEG 

WbW 


Q1 




104 509 


001 74? 

WW 1 f 






NOV 

rfw V 






^nLf^yx 


AAAA01 






NOV 






101 POX 


100000 

1 wwwww 






BIS 








000001 






NOV 

riw w 




00£&<^^ 




010000 

V 1 WW 






CMP 


QA 












BNE 


07 




104300 


001403 


001572 

W 1 ^ ■ b 




NOV 


TO 




104300 


001404 


001573 

W 1 ^ ■ ^ 




NOV 

nw » 


00 


OOA&77 










CALL 


100 


00AS01 


104300 


001 572 


001403 




NOV 


Irtl 

1 w 1 




104300 


001^73 


001404 




NOV 

nvw 


10? 
1 vc 


00^^07 










BR 


in^ 


AA^SII 

WHJ 1 1 


10750? 


000001 

VvvW ■ 






SUB 

wWw 


lAA 


nn^si'^ 


104173 








NOV 


in^ 


nn^^i^ 


10^?0^ 


100000 

1 VWW 






BIC 

WAV 


1 VO 


W** J 1 o 


1001?? 








NOV 


107 


0OA517 








FCrSKP: 


CALL 


108 


004521 










CALL 


109 


004523 


104204 


013477 






NOV 


110 


004525 


105054 








ADO 


111 


004526 


104202 


001405 






NOV 


112 


004530 


104123 








NOV 


113 


004531 


100143 








NOV 


1U 


004532 


104623 


000001 






NOV 



K 10 

22 PAGE 74-1 



SEO 127 



OCHP 
XY21 

«CURBN.R4 

HASH 

(R4).R3 

«2,R3 

R3,(R4) 

R3«RCTCNT 

#H0LD.R3 

DADO 

R4,BUFPNT 

#H1,R1 

PAGE 

#RCTBUF,R5 

OFFSET, R3 

R3,R5 

1(R5>.R3 

#L0,R3 

#RC.FRE.R3 

FILLIT 

#RC.UNU,R3 

BADRBN 

(R5),TENP2 

1(R5).TENP2*1 

CURBN,R3 

R3,(R5> 

CURBN«1.R3 

ST.LBN«R3 

fHI>.CLR,R3 

#RC.PRV,R3 

R3,1(RS) 

f DLL, FLAG 

FCTSKP 

FCTPTR,R2 

1(R2),R3 

fPRNY,R3 

R3J(R2) 

fRDBUF,R2 

FCTSKI 

ODUNHY,CUftXBN 

0DUIWY«1«CURXBN>1 

FIXFCT 

CURXBN.OOUfWY 

CURXBN^I ,00UHNY>1 

FCTSKP 

f1-R2 

<R2),R3 

#PRNY,R3 

R3.(R2) 

RCTURT 

PNGPNG 

fRCTBUF,R4 

R5,R4 

#TENP2-R2 

(R2>,R3 

R3,(R4) 

1(R2).R3 



;IN RCT ?? 
;YUP 

.•POINT TO BLOCK NUMBER 
; COMPUTE RCT ENTRY 
;GET RCT BLOCK 

:ADD TO GET BY FIRST 2 BLOCKS 
; STORE BACK 

;SAVE FOR LATER PNGPNG 
:FOR ADD 

:T0 GET LBN OF RCT BLOCK 

; STORE POINTER TO BLOCK NUNBER 

;RCT READ OVERLAY 

.•EXECUTE IT 

.•POINT TO BUFFER 

;GET OFFSET 

; POINT TC ENTRY 

;GET HIGH ORDER 

.CLEAR ALL Bl<T HEADER 

;IS IT FREE ? 

;YES - FILL IT 

.•UNUSABLE R6N ? 

:YES - NUST BE SECONDARY 

.•ELSE SWITCH 

.-HIGH ORDER 

.-GET NEW RESIDENT LOW ORDER 

.•STORE IN RCT 

.-GET HIGH CRDEP 

.•SUBTRACT STARTING LBN BITS 

.CLEAR THE HEADER 

.-NARK AS PRIMARY 

.STORE IT 

;DIO WE CREATE THE FCT ? 

:N0 - THEN DON'T CHANGE IT 

.•GET POINTER TO CURRENT FCT BLOCK POS 

;GET HIGH ORDER FCT ENTRY 

;NAKE IT SECONDARY 

.•STORE IT BACK 

:IS THIS THE FIRST ENTRY IN THE BLOCK 
.NOPE WE'RE SAFE 
;SAVE RCT BLOCK NUMBER 
;DITTO 

;YUP - GOT SOME GYRATIONS TO 00 
.•RESTORE RCT BLOCK NUMBER 

; DITTO 

.-THEN CONTINUE ON 
.•POINT BACK ONE 
;GET HIGH ORDER 
.CLEAR PRIMARY IF SFf 
.•STORE IT 

.•WRITE OUT CHARNGEJ BLOCK 
;FIND IT A NEW HOME 
; POINT TO BUFFER 
;ADD OFFSET 

; POINT TO OLD RESIDENT 
:GET LOW ORDER 
;PUT IT IN 
.-GET HIGH ORDER 
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FCT*>RCT CONVERSION OVERLAY (F5) 



SEQ 



115 004534 

116 004536 

117 004540 

118 004542 

119 004544 
004546 
004550 
004552 

123 004554 

124 004556 

125 004560 

126 004562 

127 004564 
004565 
004567 
004570 
004572 
004574 

133 004576 

134 004600 
004602 
004604 
004606 

138 004610 

139 004611 
004613 
004615 
004617 
004621 
004623 
004625 

. 004627 

147 004631 

148 004634 

149 004637 

150 004641 
004643 
004645 
004647 
004650, 
004651 

156 004653 

157 004655 

158 004657 

159 004660 

160 004662 

161 004663 

162 004664 

163 004666 

164 004670 

165 004672 

166 004674 

167 004677 

168 004701 

169 004703 

170 004705 

171 004706 



120 
121 
122 



128 
129 
130 
131 
132 



135 
136 
137 



140 
141 
142 
143 
144 
145 
146 



151 
152 
153 
154 
155 



103203 
101203 
100643 



170000 
030000 
000001 



106203 060000 



104303 
103203 
104030 
104201 
104204 

104143 
105203 
100143 
104030 
104203 

104040 
104201 

104205 
104304 
105045 
104653 
103203 
106203 

103203 
101203 
100653 

104650 
104650 
103203 
101203 
103203 
100653 
114003 
100153 



104204 
105054 
104202 
104123 
100143 
104623 
103203 
101203 
100643 
102200 

104302 
107202 
104123 
103203 



001567 
170000 
001567 

mill 

001566 



000002 

002162 
001712 

001740 
000055 

013477 
001410 

000001 
007777 

000000 ; 

170000 
040000 
000001 

000000 ' 001405 

000001 001406 
170000 
040000 
007777. 
000001 



013477 
001405 



000001 
170000 
030000 
000001 

000400 001702 



001742 
000001 

100000 



BIC «H0.CLR,R3 

BIS #RC.SND,R3 

nOV R3,1 (R4} 

BR XYZ 

NOLBN: CMP «H0.RBN,R3 

BNE XYZ1 

NOV CURBN^1«R3 

BIC «H0.CLR,R3 

NOV R3,CURBN4^1 

NOV «-1«R1 

NOV #CURBN.R4 

CALL HASH 

NOV (R4),R3 

ADD #2,R3 

NOV R3,(R4) 

NOV ^ R3,RCTCNT 

NOV «H0LD.R3 

CALL DADD 

NOV . R4,BUFPNT 

NOV . «H1,R1 

CALL PAGE 

NOV . »RCTBUF,R5 

NOV 0FFSET,R4 

ADD , R4.R5 

, NOV, ,1<R5).R3 

BIC \#LC,R3 

CHP m.FRE,R3 

BNE jRRPL 

BIC «HD.CLR,R3 

' BIS «RC.UNU.R3 

NOV R3.1(R5). 

BR XVZ ^ . ' 

RRPL: NOV . ; 0(R5);TEHP2 

NOV - J(R5)*TEHP2*1 

.:BIC . #HD.CLR.R3 

BIS V«RC;UNU,R3 

BIC ,«L0.R3 * 

NOV R3,1(H5) 

CLR . R3 : 

NOV V R3,(RS) 

CALL, RCTURT 

CALL PNGPNG 

NOV «RCTBUF,R4 

ADD . R5,R4 . 

NOV «TEHP2,R2 

NOV (R2),R3 

NOV R3,(R4) 

NOV 1(R2);R3 

BIC ,#HD.CLR,R3 

BIS #RC.SND,R3 

NOV R3 J (R4) 

BIT «DLL,FLAG 

BEQ FCTSLP 

NOV FCTPTR,R2 

SUB /ri,R2 

NOV (R2),R3 

BIC fPRHY.RS 



CLEAR HEADER 
NARK AS SECONDARY 
STORE IT 
SKIP TO END 
BAD RBN ? 

NO - THEN DON'T CARE ABOUT IT 

GET HEADER 

CLEAR IT 

STORE IT BACK 

SIGNAL RCT BLOCK 

POINT TO BLOCK NUHBER 

GET RCT BLOCK AND OFFSET 

GET RCT BLOCK 

ADD TO GET BY 2 BLOCKS 

STORE BACK 

SAVE FOR LATER PNGPNG 
FOR ADD 

TO GET LBN OF RCT BLOCK 
STORE POINTER TO BLOCK NUNBER 
RCT READ OVERLAY 

DO IT ' 

POINT TO BLOCK 
GET OFFSET 
POINT TO ENTRY 
GET HIGH ORDER 
CLEAR ALL BUT HEADER 
IS IT FREE ? 

NO - RELOCATE CURRENT RESIDENT 

CLEAR THE HEADER 

HARK AS UNUSABLE 

STORE IT BACK ^ 

BRANCH TO -THE END 

GET LOU ORDER CURRENT RESIDENT 

GET HIGH ORDER 

CLEAR HEADER 

NARK AS UNUSUABLE 

CLEAR LOU ORDER 

STORE IT BACK 

CLEAR FOR STORE 

CLEAR. LOU ORDER 

URITE UT BLOCK 

FIND IT A NEU HONE 

POINT TO BUFFER 

POINT TO ENTRY 

POINT TO OLD RESIDENT 

GET LOU ORDER 

PUT IT IN 

GET HIGH ORDER 

CLEAR HEADER 

NARK AS SECONDARY 

STORE IT 

DID UE CREATE THE FCT ? 
NO - THEN DON'T CHANGE IT 
GET FCT PPOINTER 
POINT BACK ONE 
GET HIGH ORDER 
CLEAR PRIHARY IF SET 
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UDAf52 - UDA-52 FOR«ATTr»« OMACR XW.OI 23-AU6-82 13:14:22 PAGE 74-3 
FCT->RCT CONVERSION OVE<)LAV (F5) 



1 70 

\fc 


An/ 71 f\ 


1 AA1 7T 








MAU 


DT /D7> 

Alt 


1 71 

1 fi 


f\A/ 71 1 








c rrci D • 
r 1 1 aLr : 


DO 


17/ 


AA/ 71 'X 

UO*r 13 










lALL 


rNUrflU) 


1 7C 


AA/ 71 C 


1 A/ 7 A/ 


A1 T/77 

\)l y*f f 






nUV 


jrOfTBIIF DA 
(Vlft 1 OUr ,KH 


^^^^ 


AA/.71 7 


inCACA 








Ann 


D4 


177 

Iff 


004720 


1 AA7A7 
1U4»£U£ 


AA1 CAA 
UUl 700 






■nu 

nuv 


irn iBBki D7 

wLUnDIV* n£ 

(R2),R3 


1 7fi 

1 fo 


AA/.757 
UUMf ££ 


1 AA1 71 






MOU 

nuv 


1 70 


AA/.77'< 


1 AAIAT 
1 WWI*l3 








nuv 


DT IttLS 


iBn 


AA/.75Z 


1AAA7T 


AAAA01 






MOU 

nuv 


1fR71 DT 
1 \ n£ / « n3 


1 SI 


nAZ77iL 




1 70A00 






Rtr 

DIL 


muxs n D DT 


1B9 


on/. 770 


101 onx 

lU l£wj 


OTOOOO 






Rf C 


Mor CUD DT 

vnL a dlVv#ll J 


1 


An/.7'V7 
vU*ir3£ 




AA0A01 






MOU 

nuv 


R3«1(R4) 


IB/. 


UU*»> 30 










DO 
BN 


y V7 

ATA 


lO J 


1 OA TOT 


001 CAA 
UU 1 300 




Pill f T • 


MOU 

nuv 


rilDRII DT 
DT (Os\ 


1 BA 

loo 




1 A01 CT 








MOU 

nuv 


1 B7 

lOf 


nn/, 7A1 


1 AAtAT 


A01 CA7 
UU 1 70 r 






MOW 

nuv 


rilDDkl^l DT 


IBB 

1 oO 


.VIA 7 At 


1 07T0T 
lUr JWJ 


007007 






cm 

9UD 


CT 1 D|| DT 


IBQ 
107 


AA/7/C 


10T70T 


1 70000 








MUt\ CI D DT 


ion 




10170T 
1 w I£Uj 


070000 






Rf C 


MOr PBU dT 
DT l/D^l 


101 
1 7 1 


AnA7C1 
UU*»r 7 1 




OA AO A 1 






MOU 

nuv 


1Q5 




1 A770A 


A AAA OA 


001 707 
UU 1 ' U£ 




RIT 
Bl ( 




lot 

1 7 J 












RPQ 
BCU 


y v7 

ATA 


1QA 
1 7H 


AAA7AA 
UU*»f OU 


1 0A TOT 


AA17A7 






MOU 

nuv 


CrTPTD DT 


IOC 

1 7 J 


nOA7A7 
UVHr 0£ 


10AATA 


ilOOOOl 






MOU 

nuv 


I/DT) D4 


1QA 
I70 


AAA7AA 
UU*»f 0*1 


101 70A 


1 00000 






RTC 
Bl 9 


ilPDMV D4 


1Q7 
l7r 


AAA7AA 


100ATA 


000001 






MOU 

nuv 


D4 1 f DT) 


lOB 
l70 


<WA770 
Wnf fV 








ATI • 


TAI 1 


BPTUDT 


177 


nnA777 


10C700 


000007 


001 747 
UU 1 • 


ATA 1 • 


Allb 
nW 


il? FTTPTD 
w£ # r V 1 r 1 n 


cUv 


00A77S 


1 1 7400 


001 747 
vw 1 r H r 






VC V 


MMrilT 
nfiulf 1 




004 777 










RFQ 






AACAAI 
UU3UU 1 


117400 
Mr HW 


0071 T7 








ac k kiv 1 




UU7wUj 










RMF 
Dnc 






oocooc 


107700 
1 w££ww 


000400 


001 707 

UU 1 ' w£ 




Rf T 


Mbl 1 Fl AG 




00^010 










RFQ 




CVO 


00^017 

WJV I £ 


104700 

1 w*l£UU 


010000 

U 1 wvwv 


001 740 

VU 1 f Hw 




MOU 
nuv 




507 


00^01 S 
wv3U 1 J 


104701 

IU*l£w 1 


OOOOTO 

wwUwJw 






MOV 
nuv 


AFO R1 


7 nit 


00^017 










TAI i 

WILL 


PACF 


700 

Cw7 


00^071 










DO 

on 


FBFGIN 


710 


00S07'? 

vv^U£ J 


104T04 

1 W*t JW*t 


00174? 

Wv 1 ■ ■•£ 






MOV 


FCTPTR ft4 


711 


00S07^ 


01^0077 

wUvw££ 








XFC 


IIPDATF 

wi l/n 1 b 


71? 












RR 


FRFC? 


71? 




107700 


000400 


001 70? 

vv 1 > v£ 


r ffi wivC • 


RIT 
Dl 1 


#DLL FLAG 


714 


WW JUJJ 










RFQ 


FCTSP 


71 S 


00^0?^ 

ww3w3 J 


104700 


01 0000 

V 1 V V wv 


001740 

l/V 1 f "tv 




MOV 
nuv 


ifRDRUF RIIFPMT 

frnl/Owf #DU* > W 1 


71A 




104701 


OOOOTO 






MOV 

nuv 


#F0 Rl 


717 

£ 1 f 


00^047 










TAI 1 


r wye 


71Jt 


00S044 

WW JWWM 








r W 1 • 


POP 

rUr 


R3 


710 

£ 1 7 


WW JwH ^ 


1040T0 

1 wHw Jw 


001 743 






MOV 

nuw 


dT FfTfMT 


770 
ecu 


UV3wt r 


104700 

1 wH£ww 




001 740 

Uv 1 f 




MOV 

nuv 


#PRIIRIIF RMFPMT 
#rDff our # Dur r n i 


22y 


005052 


104201 


000017 






HOV 


#F6,R1 


222 


005054 










CALL 


PAGE 


223 


005056 










POP 


R3 


22^ 


005057 


104030 


001605 






HOV 


R3«CYLNUH^1 


225 


005061 


104030 


001552 






HOV 


R3JSEEK*2 


226 


005063 










POP 


R3 


227 


005064 


104030 


001604 






HOV 


R3«CYLNUH 


228 


005066 


104030 


001551 






HOV 


R3,ISEEK«1 



SEO 129 



STORE IT 

GO TO END 

FIND A NEW SLOT 

POINT TO BUFFER 

POINT TO ENTRY 

POINT TO OLD RESIDENT 

GET LOW ORDER 

PUT IT IN 

GET HIGH ORDER 

CLEAR HEADER 

HARK AS SECONDARY 

STORE IT 

60 TO END 

GET LOU ORDER BN 

PUT IN RCT 

GET HIGH ORDER AND HEADER 
SUBTRACT STARTING LBN BITS 
CLEAR HEADER 
HARK AS PRIHARY 
STORE IN RCT 
DID WE CREATE THE FCT ? 
NO - THEN DON'T CHANGE IT 
GET POINTER TO FCT ENTRY 
GET HIGH ORDER 
SET AS PRIHARY 
STORE BACK 
WRITE OUT BUFFER 
: POINT TO TO NEXT ENTRY 
DEREHENT IT 
IF ZERO THEN DONE 
iDECREHENT IT 

;IF STILL IN BLOCK - CONTINUE 

:DID WE CREATE THE FCT ? 

;N0 - THEN DON'T CHANGE IT 

;POINT TO BUFFER 

: FCT WRITE OVERLAY 

; EXECUTE IT 

;AND GET A NEW ONE 

;ELSE GET CURRENT POINTER 

:LET HOST KNOW STILL ALIVE 

;AND DO NEXT ENTRY 

;DID WE CREATE THE FCT ? 

;N0 - THEN DON'T CHANGE IT 

;POINT TO BUFFER 

;WRITE LAST FCT BLOCK 

;D0 IT 

:GET CURRENT FCT BLOCK NUH 
; RESTORE IT 

:RE-READ IT IN CASE OF HEADER CHANGES 
;FCT READ OVERLAY 

;D0 IT 

;GET HIGH ORDER CYLINDER 
; STORE IT 

; STORE IN SEEK COHHANO 
;GET LOW ORDER 
; RESTORE IT 

; STORE IN SEEK COHHAND 



N 10 



U0AFS2 - U0A-S2 FORMATTER DMACR X04.01 23-AUG-82 13:14:22 PAGE 74-4 
FCT->RCT CONVERSION OVERLAY (F5) 

POP R3 

NOV R3,CURTRK 

MOV CURGRP.ISEEKt3 

BIT «N0DE,FLAG1 

BEQ 2% 

BIS #SS,ISEEK^2 

CALL SEEK 
RETURN 













1 UsU jU 






CJf \J\lj\Jfj 


1 0A "xnn 

1 Uh jUU 


wic do 






1 vccwU 


090000 


noi 707 
Uw 1 r Uj 










101 20O 

1 U 1 £ WW 


1 ooooo 


001 






5XA 00S110 
















C JO 








239 
















?41 








242 








?4? 0OS11? 


10^20^ 


001 ILX 




?44 00S114 


i W*fCwJ 


0021 

UwC 1 j3 




?4S 






246 00S1?0 


104200 

1 W*ffcwv 




001 7^0 


247 005123 


104201 


000017 




248 00S12^ 








249 005127 


1 0^20'^ 

1 VHCvJ 


01 ^7ftX 




C^V l/V J 1 J 1 




000777 




251 005133 


104632 


000001 




252 005135 


103202 


100000 




253 005137 


100632 


000001 




254 005141 


104200 


015763 


001740 


255 005144 


104201 


000030 




256 005146 






257 005150 








258 005tS6 









2$: 



GET CURRENT TRACK 

RETORE IT 

RESTORE GROUP 

ARE UE IN 576 NODE ? 

NO - EVERYTHING FINE 

ELSE SET 576 NODE IN SEEK 

RESTORE TO PREVIOUS CYLINDER 



THIS ROUTINE FIXES UP THE PREVIOUS BLOCK 

OF THE FCT. IT CLEARS THE PRIMARY FLAG OF THE 

LAST ENTRY. 



FIXFCT; 



MOV 

MOV 

CALL 

MOV 

MOV 

CALL 

MOV 

ADD 

MOV 

BIC 

MOV 

MOV 

MOV 

CALL 

DUBINC 

RETURN 



#FCTCNT.R'4 

#TyOC,R3 

DSUB 

#IMA6E«BUFPNT 

#F6,R1 

PAGE 

«IMAGE,R3 

#255. ,R3 

1(R3),R2 

fPRMY,R2 

R2,1(R3) 

flHAGE.BUFPNT 

#F9,R1 

PAGE 

FCTCNT 



FOR SUBTRACT 
DOUBLE WORD OF 2 

SUBTRACT TO GET BACK TO RIGHT NUM 

USE IMAGE BUFFER 

FCT READ OVERLAY 

READ THE BLOCK 

POINT TO BUFFER 

POINT TO LAST ENTRY 

GET HIGH ORDER 

CLEAR FLAG 

STORE IT BACK 

STORE BUFFER POINTER 

FCT UftlTE OVERLAY 

WRITE IT BACK OUT 

GET FCTCNT BACK TO NORMAL 



B 11 



1 



UDAFS2 - UDA-S2 FORnATTcR DHACR X04.01 23-AUG-d2 13:U:22 PAGE 7S 
FCT->RCT CONVERSION OVERLAY (F5) 



SEO 131 1 



1 

2 
3 
4 
5 


005160 


114005 






6 


005161 


104050 


001732 




7 


005163 


104204 


001403 




8 


005165 


104203 


001525 




9 


005167 


104207 


002110 




10 


005171 


102200 


020000 


001703 


11 


005174 








12 


005176 


104632 


000011 




13 


005200 








14 


005202 


104632 


000015 




15 


005204 


103202 


177400 




16 


005206 


100672 


000004 




17 


005210 


104632 


000001 




18 


005212 


103202 


007777 




19 


005214 


100672 


000001 




20 


005216 


114002 






21 


005217 


100672 


000000 




22 


005221 








23 


005223 


104202 


013477 




24 


005225 


104307 


002171 




25 


005227 








26 


005231 


102200 


020000 


001703 


27 


005234 








28 


005236 


100623 


000440 




29 


005240 








30 


005242 


100623 


000400 




31 


005244 


104207 


001373 




32 


005246 


100672 


000002 




33 


005250 


104203 


122400 




34 


005252 


104302 


001565 




35 


005254 


101023 






36 


005255 


100673 


000005 




37 


005257 


104143 






38 


005260 


100673 


000003 




39 


005262 


104643 


000001 




40 


005264 


105303 


002007 




41 


005266 


101203 


000000 




42 


005270 


100673 


000004 




43 


005272 


104203 


001400 




44 


005274 


100673 


000006 




45 


005276 


104303 


002005 




46 


005300 


10'. 304 
104302 


002006 




47 


005302 


001412 




48 


005304 


104207 


001373 




49 


005306 


101207 


100000 




50 


005310 


060012 






51 


005311 


104302 


002171 




52 


005313 


060003 






53 


005314 


115001 






54 


005315 








55 


005317 


106300 


002165 


002167 


56 


005322 








57 


005324 


115400 


002167 





WRITE AN RCT BLOCK 

DOUmY s BLOCK NUMBER TO BE WRITTEN 



IS: 
2S: 



3S: 
AS: 



CLR 


R5 ; 


CLEAR ERROR COUNTER 


nov 


R5,NEXT1 


INIT NEXT COPY COUNTER 


NOV 


#DDUNnY,R4 


POINT TO RCT LBN 


mv 


#SCR,R3 


POINT TO CHARACTERISTICS 


nov 


#CONBLK,R0 


POINT TO CONVERT BLOCK 


BIT 


#N0DE.FLAG1 


WHAT NODE 


BNE 


IS 


IF SET THEN 576 


NOV 


LBNT12(R3),R2 


GET LBN/ TRACK FOR 512 


BR 


2S 


SKIP 576 SETUP 


NOV 


LBNT76(R3),R2 


GET LBN/TRACK FOR 576 


BIC 


#HIBYTE.R2 


CLEAR HIGH BYTE 


NOV 


R2,V3(R0} 


FOR CONVERT 


NOV 


STCYL(R3),R2 


STARTING CLYLINDER 


BIC 


#L0,R2 


■CLEAR REST OF WORD 


NOV 


R2«VU1(R0) 


•STORE 


CLR 


R2 


■FOR STORE 


NOV 


R2,V1(R0) 


■LOW ORDER ALWAYS 0 


CALL 


CVTSK 


; CONVERT AND SEEK 


NOV 


#RCTBUF,R2 


;P0INT TO BUFFER 


NOV 


SECSIZ.RO 


rSECTOR SIZE IN WORDS 


CALL 


CEDC 


;CONPUTE EDC - RETURNED IN R3 


BIT 


#N0DE,FLAG1 


•WHAT NODE ARE WE IN 


BEO 


3S 


;IF CLEAR THEN 512 


NOV 


R3,RU.E76(R2) 


; STORE IT 576 BUFFER 


BR 


4S 


;SKIP 512 SETUP 


NOV 


R3,RW.EDC(R2) 


[STORE IT 512 BUFFER 


NOV 


#URBLK,R0 


; POINT TO CONPMND BLOCK 


NOV 


R2,RW.BUF(R0) 


;STICK BUFFER PTR IN CONPIAIM) BLOCK 


NOV 


i'URCND,R3 


;GET WRITE COMPIAM) 


NOV 


CURTRK,R2 


;GET CURRENT TRACK 


BIS 


■ft^ aft 4* 

R2,R3 


;SET TRACK FOR WRITE 


NOV 


R3.RW.CND(R0) 

^■ft J ^ fl^V 

(R4),R3 


; STORE IN CONNAND BLOCK 


NOV 


;GET LOW ORDER HEADER 


NOV 


R3,RU.L0V(R0) 


; STORE IN WRITE BLOCK 


NOV 


1(R4),R3 


^ft^» ^P a a # ^ftk A ^ft^ft ^ 

;GET HIGH ORDER 


ADD 


ST.LBN,R3 


;ADD STARTING LBN BITS 


BIS 


#HD.LBN,R3 


[SET HEADER 


NOV 


R3,RW.HI(R0) 


; STORE IN WRITE BLOCK 


NOV 


#HSLIN-1 ,R3 


;GET DUNNY SDI POINTER 


NOV 


R3,RW.DUH(R0) 


;POINT IN CONHAM) BLOCK 


NOV 


HPREA,R3 


;GET HEADER PREANBLE 


NOV 


DPREA,R4 


•GET DATA PREANBLE 


NOV 


UNIT,R2 


;GcT PORT NUNBER 


NOV 


#URBLK,RO 


;NAKE SURE POINTING AT BLOCK 


BIS 


»BIT1S,R0 


•SET NO REVECTORING 


XFC 


SIP 


;WAir FOR SECTOR PULSE 


NOV 


SECSIZ.R2 


; SECTOR SIZE IN WORDS 


XFC 


WRITE 


IWRITE SECTOR 


TST 


R1 


•ANY ERROR ? 


BEO 


RWGOOO 


;NOPE 


CNP 


RETRY, TNPTRY 


•NAX ? 


BEO 


IS 


;YES - TRY SONE RECOVERY 


INC 


TNPTRY 


;INC RETRY COUNT 



UDAF52 - UDA-52 FORMATTER DPIACR XOA.01 23-AUG-82 13:U! 
FCT->RCT CONVERSION OVEF.LAY (FS) 



58 005326 








59 005330 


104303 


002170 




60 005332 








61 00S33A 


115000 


002166 




62 005336 








63 005340 








64 005342 


114000 


002167 




65 005344 


117400 


002170 




66 005346 








67 005350 








68 005350 


115405 






69 005351 


115400 


001732 




70 005353 

71 005355 


114000 


002167 




104300 


002166 


002170 


72 005360 


104204 


001403 


73 005362 


104203 


001727 




74 005364 








75 005366 


106300 


001731 


001732 


76 005371 








77 005373 


106305 


001731 




78 005375 








79 005377 


104303 


001732 




80 005401 








81 005403 


104204 


001403 




82 005405 


704203 


001727 




83 005407 








84 005411 


117400 


001732 




85 005413 








86 005415 








87 005417 


104012 






88 005420 


104201 


000017 




89 005422 









IS: 



3S: 



BR 
MOV 
BHI 
TST 
BEQ 
CALL 
CLR 
DEC 
BR 



2$: 

INC 

RUGOOD: INC 
CLR 

nov 

NOV 

nov 

CALL 

C«P 

BNE 

CNP 

BEQ 

RCFXLP: NOV 
BEQ 
NOV 
NOV 

CALL 

DEC 

BR 

RUTDON: RETURN 
RCUERft: NOV 
NOV 
CALL 



C 11 

22 PAGE 75-1 



UR1TE3 


;D0 RETRY 


RECTNP,R3 


;GET CURRENT E.1R0R RECOVERY LEVEL 


2$ 


•IF MFCATIVF TMFM FftlFD 


RECOV 


;IS THERE ONLY RECOVERY LEVEL 0 ? 


3$ 


;YES - NO NEED TO ISSUE IT - JUST RETRY 


ERRHND 


;TRV RECOVERY 


TNPTRY 


;FOR INIT 


RECTNP 


;DECRENENT IT 


URITE3 


.•RETRY 


R5 


:YUP - INCRENENT COUNTER 


NEXT1 


;INCREN£NT IT 


TNPTRY 


;FOR nesil 


RECOV. RECTNP 


;GET RECOVERY LEVELS 


#DDUNNY,R4 


:FOR ADD 


*RCTFNT,R3 


;FOR ADO 


DADD 


; POINT TO NEXT COPY 


FCTCPY.NEXT1 


;D(ME THIS SECTOR ? 


RCTRLP 


;N0 - WRITE HEXl FCT COPY 


FCTCPY.R5 


: ERROR ON EVERY WRITE ? 


RCWERR 


;YUP • BIG TROUBLE 


NEXT1 R3 


•ANY REAPEATS "* 


RWTDON 


;N0 


#DDUNNY,R4 


;T0 GET IT BACK 


#RCTFNT,R3 


.DITTO 


OSUd 




NEXT1 


:SUB IT 


RCFXLP 


.•REPEAT 


R1.R2 


;XFC ERAOR CODE 


f1S.,R1 


;RCT WRITE ERROR 


ERRNNT 


.•ERROR RETURN 
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RCT INITIALIZE OVERLAY (F7) 



5E0 133 



1 
2 
3 
4 

5 
6 
7 



0OSh2A 



GOAOU 
0OAC17 

8 00A021 

9 0OA022 

10 00A024 

11 004025 

12 004026 

13 004030 

14 004032 

15 004034 

16 004036 

17 004040 

18 004041 

19 004042 

20 004043 

21 004045 

22 004047 

23 004050 

24 004052 

25 004053 

26 004055 

27 004056 

28 004061 

29 004064 

30 004066 

31 004071 

32 004C73 

33 004075 

34 004077 

35 004102 

36 004105 

37 004107 

38 004111 

39 004113 

40 004116 

41 004121 

42 004124 

43 004127 

44 004131 

45 004133 

46 004135 

47 004140 

48 004142 

49 004144 

50 004146 

51 004150 

52 C0415r 

53 004154 

54 0G4156 

55 004160 

56 004162 

57 004163 



104200 
104303 
114001 
104204 
100241 
117403 

104201 
104204 
105204 
104205 
104212 
100242 
117405 

104303 

104303 



000014 
002171 

010000 



001772 
010000 
000000 
000004 



001565 
001604 



104303 0G1605 



104300 
104300 
104204 
104200 
114000 
104203 

104300 
104300 
104203 
104204 

104300 
104300 
104300 
104300 
114000 
104203 
10'.207 
102200 



001620 
001621 
0014^0 
000400 
001404 
001403 

001616 
001617 
002160 
001712 

001712 
001712 
001713 
001713 
002164 
001525 
002110 
020000 



104632 000011 



104632 
103202 
100672 
104632 
103202 
100672 
114002 
100672 



000015 
177400 
000004 
000001 
007777 
000001 

000000 



001636 RCTINI 
RCLP: 



6$: 



001410 
001411 

001403 



001712 
001713 



001566 
001570 
001567 
001571 



001703 



IS: 
2S: 



.SBTTL RCT INITIALIZE OVERLAY (F7) 
DHOVLY F7, START 



INITIALIZE RCT TO ALL UNUSED 

nOV #F5,CUR0VL 

nOV SECSIZ,R3 

CLR R1 

NOV #RDBUF,R4 

nOV R1,(R4)^ 

DEC R3 

BNE RCLP 

mv «SERNUN,R1 

NOV #RDBUF ,R4 

ADD #RSER,R4 

NOV #4.R5 

NOV (R1)^,R2 

NOV R2.(R4}^ 

DEC R5 

BNE 6$ 

NOV CURTRK.R3 

PUSH R3 

NOV CYLNUN,R3 

PUSH R3 

NOV CYLNUN^1,R3 

PUSH R3 

NOV RBNLBN.TENP 

NOV RBNLBN^UTENP^I 

NOV #TENP,R4 

NOV #256.«DDUNNY 

CLR DDUNHY«^1 

NOV «DDUNHY.R3 

CALL DADD 

NOV LBNLBN,HOLD 

NOV LBNLBN^I ,H0LD4-1 

NOV fT0TRCT,R3 

NOV #N0L0,R4 

CALL DSUB 

NOV HOLD,CURBN 

NOV HOLD,CURLBN 

NOV HOLD^^I.CURBNtl 

NOV HOLD^I ,CURLBN«1 

CLR COUNT 

NOV «SCR,R3 

NOV fCONBLK.RO 

BIT fNODE.FLAGI 

BNE IS 

NOV LBNT12(R3),R2 

BR 2S 

NOV LBNr76(R3),R2 

BIC fHIBYTE,R2 

NOV R2,V3(R0) 

NOV STCYL(R3),R2 

BIC #L0.R2 

NOV R2,VU1(R0) 

CLR R2 

NOV R2,V1(R0) 



FOR OVERLAY INIT 
SECTOR WORD COUNT 
FOR INIT OF RCT WORDS 
BUFFER 

STORE IN BUFFER 
DECRENENT COUNTER 
BRANCH BACK TILL DONE 
POINT TO SERIAL NUNBER 
POINT TO BUFFER 
POINT TO SERIAL NUNBER 
COUNTER 
GET WORD 
STORE WORD 
DECRENENT COUNTER 
CONTINUE TILL DONE 
GET CURRENT TRACK 
SAVE IT 

GET LOW ORDER CYLINDR 

SAVE FOR RESTORE 

GET HIGH ORDER 

SAVE FOR RESTORE 

GET NUNBER OF RBN'S IN LBN AREA 

HIGH ORDER 

FOR ADD 

2 BLOCKS (CONTROL) WORTH OF RBN'S 
CLEAR HIGH ORDER 
FOR ADD 

ADD TO GET "HEAL" NUNBER OF RBN'S 
GET LOW ORDER COUNT OF LBN'S 
GET HIGH ORDER 
FOR SUBTRACT 
DITTO 

GET STARTING RCT LBN 

GET STARTING RCT BLOCK NUNBER 

ALSO SAVE 

GET HIGH ORDER 

AND SAVE 

CLEAR BLOCK COUNTER 

POINT TO CHARACTERISTICS 

POINT TO CONVERT BLOCK 

WHAT NODE 

IF SET THEN 576 

GET LBN/TRACK FOR 512 

SKIP 576 SETUP 

GET LBN/TRACK FOR 576 

CLEAR HIGH BYTE 

FOR CONVERT 

STARTING CLYLINDER 

CLEAR REST OF WORD 

STORE 

FOR STORE 

LOW ORDER ALWAYS 0 
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RCT INITIALIZE OVERLAY (F7) 



SEO 13* 



58 0OA16S 

59 00A166 

60 004170 

61 004172 

62 004174 

63 004176 

64 004200 

65 004202 

66 004205 

67 004207 

68 004211 

69 004213 

70 004215 

71 004217 

72 004221 

73 004223 

74 00422S 

75 0042:6 

76 004230 

77 004232 

78 004234 

79 004236 

80 004240 

81 004242 

82 004244 

83 004246 

84 004250 

85 004252 

86 004254 

87 004256 

88 004260 

89 004261 

90 004263 

91 004264 

92 004265 

93 0(y>267 

94 004272 

95 004274 

96 004276 

97 004300 

98 004302 

99 004304 

100 004*06 

101 004310 

102 004312 

103 004314 

104 004316 

105 004320 

106 004320 

107 004321 

108 004323 

109 004325 

110 004330 

111 004332 

112 004334 

113 004336 

114 004341 



114005 
104050 
104204 

10^202 
104307 

102200 

100623 

100623 
104207 
100672 
104203 
104302 
101023 
100673 
104303 
100673 
104303 
105303 
101203 
100673 
104203 
100673 
104303 
104304 
104302 
104207 
060012 
104302 
060003 
115001 

106300 

115400 

104303 

115000 



114000 
117400 



115405 
115400 
114000 
104300 
104204 
104203 



001732 
001566 

010000 
002171 

020000 

000440 

000400 
001373 
000002 
122400 
001565 

000005 
001566 
000003 
001567 
002007 
000000 
000004 
001400 
000006 
002005 
002006 
001412 
101373 

002171 



002165 
002167 
002170 
002166 



002167 
002170 



001732 
002167 
002166 
001566 
001727 



001703 



002167 



002170 



106300 001731 001732 



RCINLP: 


CLR 


R5 




>NOV 


R5,NEXT1 


RCLP2: 


NOV 


#CURBN,R4 




CALL 


cvrsK 




KOV 


«RDBUF,R2 




MOV 


SECSIZ.RO 




CALL 


CEDC 




BIT 


«N0DE,FLAG1 




BEQ 


3$ 




MOV 


R3,RU.E76(R2) 




BR 


4$ 


3$: 


nov 


R3,RU.EDC(R2) 


4$: 


MOV 


«URBLK,RO 




MOV 


R2.R^J.BUF{R0) 




NOV 


«URCND,R3 




NOV 


CURTRK,R2 




BIS 


R2,R3 




NOV 


R3,RW.CND(R0) 




NOV 


CURBN,R3 




NOV 


R3,Ry.L0U(R0) 




NOV 


CURBN*1,R3 




'ADD 


ST.LBN«R3 




BIS 


#HD.LBN,R3 




NOV 


R3,RU.HI(R0) 




NOV 


#HSLIN-1,R3 




NOV 


R3,RU.DUN(R0) 


URITE4: 


NOV 


HPREA,R3 




NOV 


DPREA,R4 




NOV 


UNIT,R2 




NOV 


f<URBLK!BIT15>,R0 




XFC 


SIP 




NOV 


SECSIZ«R2 




XFC 


WRITE 




TST 


R1 




BEQ 


NOGOOD 




CNP 


RETRY. TNPTRY 




BEQ 


U 




INC 


TNPTRY 




BR 


URITE4 


1$: 


MV 
BNI 


RECTNP,R3 
2% 




TST 


RECOV 




BEQ 


3$ 




CALL 


ERRHND 


3$: 


CLR 


TNPTRY 




DEC 
BR 


RECTRP 
VRITE4 


2S: 








INC 


R5 


NOGOOD: 


INC 


NEXT1 




CLR 


TNPTRY 




NOV 


RECOV.RECTNP 




NOV 
NOV 


fCURBN,R4 
#RCTfNT,R3 




CALL 


DADD 




CNP 


fCTCPY,MEXT1 




.BNE 


RCLP2 



.CLEAR ERROR COUNTER 

:INIT COPY COUNT 

;F0R CONVERT 

.CONVERT AND SEEK 

.•POINT TO BUFFER 

.•SECTOR SIZE IN WORDS 

:C0NPUTE EDC - RETURNED IN R3 

;UHAT NODE ARE WE IN 

;IF CLEAR THEN 512 

;ST09E IT 576 BUFFER 

.•SKIP 512 SETUP 

.•STORE IT 512 BUFFER 

.•POINT TO COMMAND BLOCK 

.STICK BUFFER PTR IN COMNANd BLOCK 

;GET WRITE COMMAND 

.GET CURRENT TRACK 

.SET TRACK FOR WRITE 

.•STORE IN COMMAND BLOCK 

;GET LOW ORDER HEADER 

.•STORE IN WRITE BLOCK 

;6ET HIGH ORDER 

;ADD STARTING LBN BITS 

.SET HEADER 

.-STORE IN WRITE BLOCK 

.GET DUMMY SDI POINTER 

.•POINT IN COMMAND BLOCK 

;GET HEADER PREAMBLE 

.-GET DATA PREAMBLE 

.-GET PORT NUMBER 

;MAKE SURE POINTING AT BLOCK 

;WAIT FOR SECTOR P>iLSE 

.•SECTOR SIZE IN WORDS 

.WRITE SECTOR 

;ANY ERROR ? 

:NOPE 

•MAX '* 

•YES - TRY SOME RECOVERY 
;INC RETRY COUNT 
:D0 RETRY 

;6ET CURRENT ERROR RECOVERY LEVEL 

;IF NEGATIVE THEN FRIED 

;IS THERE ONLY RECOVERY LEVEL 0 ? 

;YES - NO NEED TO ISSUE IT - JUST RETRY 

;TRY RECOVERY 

;FOR INIT 

.-DECREMENT IT 

.•RETRY 

;YUP - INCREMENT COUNTER 
;INC;)ENENT IT 
;FOR RESET 

.•GET RECOVERY LEVELS 
;FOR ADD 
.•FOR ADD 

.•POINT TO NEXT COPY 
.DONE THIS SECTOR ? 
;N0 - WRITE NEXT FCT COPY 
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FCTCPY.RS 
RCINER 

#RC INI T, FLAG 
4$ 

#T£HP.R4 

«128.,0DUHHY 

DDUHHY^I 

#DDUmY,R3 

DSUB 

OCHP 

4$ 

4S 

FIXBLK 

COUNT 

7$ 

H5 

fRDb*JF.R4 

R5,(Ri>> 

R1 

5$ 

fRcINDN.FLAGI 

RCLP6 

CURLBN 

CURLBN.CURBN 

CURLBN^I.CURBN^I 

COUNT 

RCTLBN^COUNT 

RCFIX 

UPDATE 

rctfut, COUNT 

RCINLP 
R3 

R3,CVLNUN^1 

R3,1SEEK^2 

R3 

R3,CYLNUfl 
R3,ISEEKH 

"I 

R3,CURTRK 
CUR6RP,ISEEK^3 
fWOE.FLAGI 
2$ 

fSS.ISEEK^2 
SEEK 

#128., R2 

#RDBUF,R4 

R3 

R5 

fRC.NUL.RS 
R3,(R4)* 
R5.(RA>* 
R2 

RCLP3 

fRClNDN.FLAGI 
RCLP4 



SEO 135 



INITIALIZE 




(F7) 
\ r f / 








115 


004343 




001 7^1 






CMP 


116 


004345 










BEQ 


117 


004347 


10??00 

1 VCCW 


000040 


001702 

VV 1 ■ Wfc 




BIT 


118 


004352 










BNE 


119 


00435^ 




001410 






NOV 


120 


004356 


104200 


00C200 


001403 




NOV 


121 


004361 


114000 

1 1 ^ WW 


00(404 






CLR 


122 


004363 


10^203 


001403 






NOV 


123 


00436S 










CALL 


12A 


00436r 










CALL 


125 


004371 










BMI 


126 


004373 










BEQ 


127 


004375 










CALL 


128 


004377 


11S000 


002164 




4$: 


TST 


129 


004401 










BNE 


130 


004403 


114005 








CLR 


131 


004404 


104204 


010000 

W 1 WW 






NOV 


132 


004406 


104201 


000004 

WWW" 






NOV 


133 


004410 


10024S 






5$ 


NOV 


13A 


004411 


1 1 7401 








DEf 


135 


004412 










Bfic 


136 


004414 


102200 


000100 

WW 1 WW 


001703 


7S* 


aiT 


137 


004417 










BNE 


138 


004421 










DUBINC 


139 


004427 


104300 


001570 

W 1 V • w 


001566 

WW 1 ^ w 




NOV 


KO 


004432 


104300 


001571 


001567 




NOV 


HI 


004435 


115400 


002164 

wc ■ 


002164 




INC 


K2 


004437 


106300 


001746 

WW • ' ~ w 




CNP 


U3 


004442 








RCLP4: 


BEQ 


HA 


004444 


060022 






XFC 


U5 


004445 


106300 


001727 


002164 




CNP 


K6 


004450 










BNE 


U7 


004452 








RCLP6: 


POP 


U8 


004453 


104030 


001605 

WW • WW ^ 






NOV 


149 


004455 


104030 


001552 






NOV 


150 


004457 










POP 


151 


004460 


104030 


001604 

WW " ^ 






NOV 


152 


004462 


104030 


001551 






NOV 


153 


004464 










POP 


154 


004465 


104030 


001 565 


001553 




NOV 


155 


004467 


104300 


002146 




NOV 


156 


004472 


102200 


020000 


001703 




BIT.' 


157 


004475 










BEQ 


158 


004477 


101200 


100000 


001552 


2S: 


BIS 


159 


004502 








CALL 


160 


004504 










RETURN 


161 


004506 


104202 


000200 




RCFIX: 


NOV 


162 


004510 


104204 


010000 






NOV 


163 


004512 


114003 








CLR 


164 


004513 


114005 








CLR 


165 


004514 


101205 


100000 




RCLP3: 


BIS 


166 


004516 


100243 






NOV 


167 


004517 


100245 








NOV 


168 


004520 


117402 








DEC 


169 


004521 






001703 




BNE 


170 


004523 


101200 


000100 




BIS 


171 


004526 










BR 



.ERROR ON EVERY WRITE ? 

.-VUP - BIG TROUBLE 

.•ALREADY FIXED IT UP 

:YUP - NO NEED TO DO IT AGAIN 

.FOR SUBTRACT (RBN'S NOT DONE) 

.SUBTRACT ONE BLOCKS WORTH 

:FOR CLEAR 

;FOR SUBTRACT 

.•SUBTRACT 

;IN LAST BLOCK ? 

:NOPE 

'IF EQUAL - NO PARTIAL BLOCK 

;YES - CHANGE HEADERS TO NULL 

;0N FIRST BLOCK ? 

:N0 - NO NEED TO FIX UP 

:FOR BLOCK FIXUP 

;POINT TO BUFFER 

; COUNTER 

; CLEAR DATE AREA 

.•DECRENENT COUNTER 

:CONT TILL DONE 

.ALL DONE ?? 

;VUP - CUT OIJT 

.'INCRENENT IT 

;6ET LOW ORDER 

;6ET HIGH ORDER 

; INCRENENT BLOCK COUNTER 

;DONE RCT BLOCKS(NOT PAD) 

;YUP - REJNIT BLOCK 

;LET HOST KMNM STILL ALIVE 

;DONE ? 

;NOP£ - DO NEXT SECTOR 
;GET HIGH ORDER CYLINDER 
; STORE IT 

.STORE IN SEEK COMMAND 
;6ET LOU ORDER 
.RESTORE IT 

.STORE IN SEEK CONHAND 
;GET CURRENT TRACK 
.-RETORE IT 

.•RESTORE GROUP NUMBER 
.'ARE WE IN 576 NODE ? 
;N0 - EVERYTHING FINE 
;ELSE SET 576 NODE IN SEEK 
.•RESTORE TO PREVIOUS CYLINDER 

:INIT COUNT 
;INIT POINTER 
;FOR STORE 
.DITTO 

.SET NULL HEADER 
.•STORE LOU ORDER 
.•STORE HIGH ORDER 
.-DECRENENT COUNTER 
.•LOOP UNTIL DONE 

;DONE ALL NON-PAD - ONE MORE THEN FINISH 
;C0NTINIJE WITH LAST SECTOR 
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RCT IKITIALIZE OVERLAY If?) 



SEO 136 



172 OOA530 

173 004531 

174 004533 



104012 

104201 000017 



RCINER: MOV R1.R2 
NOV #15., R1 
CALL ERRNNT 



:XFC ERROR CODE 
;RCT INIT ERROR 
; ERROR RETURN 
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RCT INITIALIZE OVERLAY (F7) 



SEO 137 



1 
2 
3 
4 

5 

6 004535 1K002 

7 004536 11 4005 

8 004537 104303 001410 

9 004541 101205 100000 

10 004543 104204 010000 

11 004 S45 104201 000200 

12 004547 107031 

13 004550 105033 

14 004551 105034 

15 004552 100242 

16 004553 100245 

17 004554 117401 

18 004555 

19 004SS7 101 200 000040 001702 

20 004562 



CHANGE UNUSED ENTRIES TO NULL HEADERS 



FIXBLK: 


CLR 


R2 


■FOR LOW ORDER 




CLR 


R5 


-FOR HIGH ORDER 




HOV 


TENP.R3 


■GET REMAINDER FROM TENP 




BIS 


m.NUL«RS 


■SET IN NEU HEADER CODE 




W)V 


#RDBUF,R4 


-POINT TO BUFFER 




NOV 


#128.. R1 


■TOTAL COUNT 




SUd 


R3.R1 


•SUBTRACT USED ENTRIES 




ADD 


R3,R3 


•ADD TO GET OFFSET (NULT BV 2) 




ADD 


R3,R4 


;POINT TO FIRST UNUSED ENTRY 


fIXLP: 


nov 


R2.(R4)* 


; STORE LOW ORDER 




NOV 


R5,(R4)t 


;STORE HIGH ORDER 




DEC 


R1 


; DECREMENT COUNT 




BNE 


FIXLP 


;l00P TILL DONE 




BIS 


miNir.FLAG 


;SET DONE IT 




RETURN 
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FCT READ OVERLAY (F6) 



004S64 



1 
2 
3 
4 
5 
6 

7 004CU 

8 0OA017 

9 004022 

10 004024 

11 004025 

12 004027 

13 004031 

14 004033 

15 004035 

16 004037 

17 004041 

18 004043 

19 004045 

20 004047 

21 004051 

22 004C53 

23 004055 

24 004057 

25 004061 

26 004063 

27 004065 

28 004067 

29 004071 

30 004073 

31 004075 

32 004077 

33 004101 

34 004102 

35 004104 

36 004106 

37 004110 

38 004112 

39 004113 

40 004115 

41 004116 
004120 
004121 
004122 

45 004124 

46 004126 

47 004130 

48 004132 

49 0041 3S 

50 004137 

51 004140 

52 004142 

53 004144 

54 004146 

55 004150 

56 004152 

57 004154 



4 
4 

44 



104200 
104300 
114000 
114005 
104204 
104303 
104207 
100673 
104303 
100673 
104303 
100673 

104207 
104203 
100673 
104303 
100673 
104303 
105303 
101203 
100673 
104303 
100673 
104203 
104301 
101013 
100673 
104207 
104203 
104302 
100173 
101207 
060012 
104202 
060002 
115001 

104673 
102203 

103200 

115001 

104302 
104207 

106623 

106300 



000017 001636 
001743 001403 
001404 

001403 
001626 
002110 
000000 
001627 
000001 
001612 
000004 

001373 
001400 
000006 
001403 
000003 
001404 
002011 
120000 
000004 
001740 
000002 
013400 

001 sr^ 

0000C5 
001 37S 
100000 
001412 

100000 

000400 



000001 
010000 

010000 001374 



001740 
000400 

000400 

002165 002167 



.SBTTL FCT READ OVERLAY (F6) 
DNOVLY F6«START 

READ A BLOCK OF THE FCT 
R5 -> BUFFER 



NOV 
NOV 

CLR 
CLR 

FOLOOP: MOV 
NOV 
NOV 
NOV 
NOV 
NOV 
NOV 
NOV 
CALL 
NOV 
NOV 
NOV 
NOV 
NOV 
NOV 
ADD 
BIS 
NOV 
NOV 
NOV 
NOV 
NOV 
BIS 
NOV 

REA07: NOV 
NOV 
NOV 
NOV 
BIS 
XFC 
NOV 
XFC 
TST 
BNE 
NOV 
BIT 
BEO 
BIC 
CALL 
TST 
BNE 

101S: NOV 
NOV 
CALL 
CNP 
BEO 

100$: CNP 



#F6,CUR0VL 
FCTCNT^DDUHNY 
DDUNNYi^l 
R5 

4'0DUNNY,R4 

LBNCYL,R3 

fCONBLK.RO 

R3,V1(R0) 

LBNCYL*1,R3 

R3«VU1(R0) 

SECT12,R3 

R3,V3(R0) 

CVTSK 

#ftDBLK.R0 

#HSLIN-1«R3 

R3,RU.0UN(R0) 

DDUNNY«R3 

R3,RU.LOy(R0) 

DDUNNY*1,R3 

ST.XBN«R3 

#HD.XBN,R3 

R3,RW.HI(R0) 

BUFPNT.R3 

R3,RU.BUF(R0) 

fRWCN0,R3 

CURTRK.RI 

R1,R3 

R3,RV.CND(R0) 

#RDBLK«RO 

fRDCHD.R3 

UNIT,R2 

R3,<R0) 

»8IT1S.R0 

SIP 

#SECSI6«R2 

READ 

R1 

loot 

RW.ER1(R0),R3 

#ECCF,R3 

lOlt 

#ECCF,R0BLK*Ry.ER1 

ECCCK 
R1 

100S 

BUFPNT,R2 

#SECSI6,R0 

CEDC 

RU.EDC(R2),R3 
102t 

R£TRY,TNPTRY 



OVERLAY MUNBER 
GET CURRENT COUNT 
FOR HIGH ORDER STORE 
CLEAR ERROR COUNTER 
FOR CONVERT 
GET LBN CYLINDERS 
POINT TO CONVERT BLOCK 
STORE IT FOR CONVERT 
HIGH ORDER 
STORE IT 

GET SECTORS/TRACK (512) 

STORE FOR CONVERT 

CONVERT FCT BLOCK NUMBER AND SEEK 

PREPARE FOR READ SECTORS 

POINTER TO DUNNY SDI BLOCK 

STORE IN CONNAND BLOCK 

LO ORDER BLOCK NUMBER 

STORE IN READ COHD BLOCK 

GET HIGH ORDER 

ADD STARTING LBN BITS 

HEADER CODE 

STORE IN READ CND BLOCK 
GET BUFFER POINTER 

STORE BUFFER ADDRESS IN COHHAND BUFFER 

LOAD SDI READ COMMAND 

GET CURRENT HEAD NUNBER IN R1 

SET IT IN COMMAND 

STORE BACK 

NAKE SURE POINTING AT BLOCK 

NARK AS ONLY REQUEST 

GET PORT NUNBER 

STORE IN CND BLOCK 

SET NO REVECTORING 

WAIT FOR PULSE 

SECTOR SIZE IN WORDS 

READ 1 SECTOR 

ANY ERRORS 

YES - TRY RECOVERY 

GET ECC STATUS WORD 

ECC ERROR ? 

NOPE - VERIFY EDC 

CLEAR ECC ERROR BIT 

CORRECT ECC 

TEST FLAG 

UNCORRECTABLE 

POINT TO BUFFER 

SECTOR SIZE IN WORDS 

CONPUTE EDC 

OK ' 

YUP*-' CONSIDER GOOD 
NAX ? 
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58 
59 
60 
61 
62 
63 
64 
6S 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 



004157 
004161 
004163 
004165 
004167 
004171 
004173 
004175 
004177 
004201 
004203 
004205 
004205 
004206 
004210 
004212 
004214 
004216 
004220 
004222 
004225 
004227 
004227 
004231 
004234 
004235 
004237 
004241 
004243 
004245 
004247 
004251 
004253 
004255 
004256 
004260 
004262 
004264 
004266 
004270 
004272 
004274 
004276 
004300 
004302 
004304 
004306 
004310 
004312 
004314 
004316 
004317 
004321 
004322 
004323 
004325 
004330 



115400 
104303 
115000 



114000 
117400 



115405 
10e305 

104204 
104203 

114000 
104300 



114000 
104300 
115005 

104204 
104203 



104207 
104203 
104302 
101023 
100673 
104303 
100673 
104303 
100673 
104303 
105303 
101203 
100673 
104203 
100673 
104303 
104304 
104302 
104207 
101207 
060012 
104202 
060003 
115001 



002167 
C02170 
002166 



002167 
002170 



001731 

001 40i 
001725 

002167 
002166 



002167 
002166 



001403 
001725 



001373 
122400 
001565 

000005 
001740 
000002 
001403 
000003 
001404 
002011 
120000 
000004 
001400 
000006 
002005 
002006 
001412 
001373 
100000 

000400 



002170 



002170 



106300 002165 002167 





DEW 




IMf 
1 flW 






It • 


MOV 




RMI 




rsT 








CALL 




CLR 
lit" 




DEC 




BR 








1 Wli 








BEQ 




nww 




NOV 




L ALU 




CLR 




MOV 




BR 

an 


10?$- 






CLR 




MOV 








BEQ 




NOV 




NOV 




CALL 




CALL 




NOV 




NOV 




NOV 




BIS 




NOV 

nw w 




NOV 




NOV 




NOV 

nw w 




MOV 




NOV 

nw w 




ADD 




BIS 




MOV 




MOV 

nww 




MOV 

nw • 


WRITES: 


MOV 

nw w 




NOV 

nw w 




NOV 

nw w 




NOV 

nw w 




BIS 




XFC 




MOV 




XFC 




TST 




BEQ 




CMP 




BEQ 



J 11 

22 PAGE 78-1 



SEO 139 



It 

TMPTRY 
READ7 
RECTMP.R3 
2$ 

RECOV 
3$ 

ERRHND 
TNPTRY 
RECTNP 
READ7 

R5 

FCTCPY,R5 

OFATAL 

«DDUMMY,R4 

#FCTFMT,R3 

DADD 

TNPTRY 

RECOV, RE CTMP 
FOLOOP 

TNPTRY 

RECOV.RECTNP 
R5 

OLDONE 

«DDUHMY«R4 

*FCTFNT.R3 

DSUB 

CVTSK 

#URBLK«RO 

fURCN0,R3 

CURTRK,R2 

R2,R3 

R3,RW.CMD(R0) 

6UFPNT,R3 

R3,RU.BUF(R0) 

DDUHHY,R3 

R3,RW.IOU(RO) 

DDUMMY*1.R3 

ST.XBN.R3 

#HD.XBN.R3 

RS.RU.HKRO) 

fHSLIM-1.R3 

R3,RW.DyM(R0) 

HPREA,R3 

DPREA,R4 

UNIT.R2 

fURBLIC.RO 

#BIT15.R0 

SIP 

#SECSI6,R2 

WRITE 

R1 

2$ 

RETRY, TMPTRY 
1$ 



;YES - TRY SOME RECOVERY 
;INC RETRY COUNT 
;D0 RETRY 

:GET CURRENT ERROR RECOVERY LEVEL 

;IF NEGATIVE ^HEN FRIED 

;IS THERE ONLY RECOVERY LEVEL 0 ? 

;YES - NO NEED TO ISSUE IT - JUST RETRY 

;TRY RECOVERY 

;FOR INIT 

.•DECREMENT IT 

.•RETRY 

.•INCREMENT BAD COUNTER 

;ALL BAD ? 

;YUP - ALL OVER 

.•POINT TO COUNT 

:SIZE OF TABLE 

:ADD TO POINT TO NEXT COPY 

.•RESET RETRY LEVEL 

.-DITTO RECOVERY LEVELS 

.•BRANCH BACK 

:FOR RESET 

.GET RECOVERY LEVELS 
:ANY ERRORS ? 
;N0 - EXIT 

.•POINT TO BLOCK COUNT 

.•SIZE OF TABLE 

;GET BACK TO PREVIOUS COPY 

.CONVERT AND SEEK 

.POINT TO COMHAND- BLOCK 

.GET WRITE COMPIAND 

;GET CURRENT TRACK 

;SET TRACK FOR WRITE 

; STORE IN COMPIAND BLOCK 

:GET BUFFER ADODRESS 

.STICK IN COIMAND BLOCK 

.GET LOW ORDER HEADER 

.STORE IN WRITE BLOCK 

;GET HIGH ORDER 

;ADO STARTING XBN BITS 

.•HEADER CODE 

.•STORE IN WRITE BLOCK 

;GET DUMMY SDI POINTER 

.•POINT IN COMMAND BLOCK 

;6ET HEADER PREAMBLE 

:GET DATA PREAMBLE 

;GET PORT NUMBER 

:MAKE SURE POINTING AT BLOCK 

;SET NO REVECTORING 

;WAIT FRO SECTOR PULSE 

.SECTOR SIZE IN WORDS 

.•WRITE SECTOR 

:ANY ERROR ? 

;N0 - SKIP RETRY 

:MAX ? 

;YES - TRY SOME RECOVERY 
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FCT READ OVERLAY (F6) 



15 
^6 



004332 
004334 

17 004336 

18 004340 

19 004342 

20 004344 

21 004346 

22 004350 

23 004352 

24 004354 

25 004356 

26 004356 

27 004357 

28 004362 

29 004364 

30 004366 

31 004370 

32 004372 

33 004374 

34 004377 

35 004401 

36 004404 

37 004407 

38 004411 

39 004413 

40 004415 

41 004416 

42 004420 



115400 


002167 






104303 


002170 




1$: 


115000 


002166 






114000 
1 1 7400 


002167 
0021 70 




3S: 


117405 
104300 


002166 


002170 


2>: 


115400 


001743 




OLDONE: 


115000 


001743 




OFATAL: 


102200 


000020 


001702 




101200 
103200 
104201 


002004 
000001 
000000 


001702 
001702 




104012 
104201 


000021 




OQUIT: 



INC 


TNPTRY 


BR 


WRITE8 


NOV 


RECTHP,R3 


BMI 


2% 


TST 


RECOV 


BEQ 


3$ 


CALL 


ERRHNO 


CLR 


TNPTRY 


DEC 


RECTMP 


BR 


URITE8 


DEC 


R5 


MOV 


RECOV, RECTNP 


BR 


FODONE 


INC 


FCTCNT 


RETURN 




TST 


FCTCNT 


BEQ 


OQUIT 


BIT 


#G06AD,FLAG 


BEQ 


OQUIT 


BIS 


«FCTBAO^BSTGS,FLAG 


BIC 


#FCTAVL,FLAG 


MOV 


#F1,R1 


CALL 


NEXT 


RETURN 




NOV 


R1.R2 


MOV 


#17.,R1 


CALL 


ERRNNT 



INC RETRY COUNT 
DO RETRY 

GET CURRENT ERROR RECOVERS LEVEL 

IF NE'iATIVE THEN FRIED 

IS THERE ONLY RECOVERY LEVEL 0 ? 

YES - NO NEED TO ISSUE IT - JUST RETRY 

TRY RECOVERY 

FOR INIT 

DECREMENT IT 

RETRY 

DEREMENT COUNTER 
GET RECOVERY LEVELS 
SEE IF ANY MORE TO DO 
INCREMENT IT 
;ALL DONE 

iSECTOR 0 ? (MEDIA INFO) 

;IF vES THEN IT'S ALL OVER 

; CONTINUE AS BEST GUESS? 

;N0PE - GIVE UP 

;SET rCT BAD FLAG 

;N0 MORE FCT 

;SET IN D/XBN OVERLAY 

; START OVER IN BEST GUESS MODf: 

^RETURN 

;XFC ERROR CODE 
;FCT READ ERROR 
; ERROR RETURN 
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GET FCT 


BLOCK 


1 

2 




3 




4 




5 




6 




7 


004422 


8 




9 




10 




n 


004014 


12 


004017 


13 


004021 


U 


004023 


15 


004024 


16 


004026 


17 


004030 


18 


004032 


19 


00^ 034 


20 


004035 


21 


0i)4037 


22 


004042 


23 


004045 


24 


004050 


25 


004052 


26 


004054 


27 


004056 


28 


004060 


29 


004062 


30 


004064 



104200 
104205 
104303 
100153 
104303 
100653 



104153 

104650 
104650 
104200 
104204 
104203 



104201 
104302 



000033 001636 

001750 

002003 

001743 
000001 



000001 002105 

000002 002106 
000401 002104 
002104 
010455 



.SBTTL GET FCT BLOCK FOR D/XBN FORMAT (G2) 



GET'S ONE FCT BLOCK FROM HOST FOR D/BN FORMATTING 



000023 
001743 



OLERR: 



DMOVLY G2, START 



NOV #G2,CUR0VL 

MOV #DMBUF«R5 

MOV FCMSG.R3 

MOV R3.(R5) 

MOV FCTCNT.R3 

MOV R3J(R5} 

CALL SNDMNT 

CALL RCVMNT 

NOV (R5),R3 

BNE OLERR 

NOV 1(R5),0VLBLKt1 

NOV 2(R5).OVLBLK*2 

NOV #257.«OVLBLK 

NOV «0VLBLK,R4 

NOV «PBNBUF«R3 

CALL OVRLAY 
RETURN 

NOV #19., R1 

NOV FCTCNT,R2 

CALL ERRNNT 



SIGNAL OVERLAY 11 
POINT TO NAINT BUFFER 
GET OUP CODE 
STORE IT 

GET BLOCK NUMBER DESIRED 

STORE IT 

SEND REQUEST 

RECEIVE ANSWER 

GET STATUS WORD 

ERROR IF NOT ZERO 

GET LOW HOST ADDRESS 

GET HIGH HOST ADDRESS 

GET LENGTH 

FOR OVERLAY ROUTINE 

POINT TO BUFFER 

GET THE SECTOR 

: SIGNAL DLL ERROR 
;BLOCK FAILED ON 
.•ERROR RETURN 



N n 
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GET FCT BLOCK FOR LBN FORMAT (G3) 



SEQ U2 



U( 
R( 



1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
15 
U 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
AO 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



004C66 



004014 

0C4017 

004021 

004024 

004026 

004030 

004033 

004035 

004037 

004040 

004042 

004044 

004046 

004050 

004051 

004053 

004055 

004057 

004061 

004063 

004066 

004070 

004072 

004074 

004076 

004100 

004102 

004105 

004106 

004107 

004111 

004112 

004114 

004116 

004120 

004122 

004124 

004125 

004126 

004127 

004131 

004134 

004136 

004140 

004142 

004144 

004147 



104200 
114000 
104200 
104201 

102200 

104207 
104173 
106203 

106203 

115003 

104673 
102203 

104204 
102200 



104643 
104030 

101200 
114003 
100173 
104673 
115403 
100673 
104203 
105203 
104204 
104205 
104232 
100242 
117405 

104200 
104201 



000036 
001743 
010455 
000017 

000001 

010455 

126736 

074161 



000025 
100000 

010455 
020000 



104643 000020 



000001 
010455 
000002 
001772 
000004 



010455 
000030 



001636 
001740 

001702 



13$: 



001703 



000016 
001722 

000002 001702 



000001 



IS: 
2S: 



12$: 



8$: 



115000 001722 



104200 
102200 



000001 
020000 



001740 



001743 
001703 



.SBTTL GET FCT BLOCK FOR LBN FORMAT (G3) 



GET RIGHT FCT BLOCK FOR LBN FORMATTING 



DNOVLY 63, START 



MOV «G3,CUR0VL 

CLR FCTCNT 

MOV «PBNBUF«BUFPNr 

MOV #F6,R1 

CALL PAGE 

BIT #FCTAVL,FLAG 

BEQ NGO 

NOV #PBNBUF,RO 

NOV (R0).R3 

CMP #M512,R3 

BEQ 13$ 

CMP «M576,R3 

BEQ 13$ 

TST R3 

BNE N6D 

MOV FCTFLG(R0),R3 

BIT #N0FCT,R3 

BNE NGD1 

MOV #PBNBUF,R4 

BIT «NO0E,FLAG1 

BEQ 1$ 

NOV C576(R4),R3 

BR 2$ 

NOV CS12(R4)«R3 

MOV R3-FCNT 

BNE 12$ 

BIS #FCTENT,FLAG 

CLR R3 

NOV R3,(R0) 

NOV INST(R0),R3 

INC R3 

NOV R3,INST(R0} 

NOV #PBNBUF,R3 

ADD #FSER,R3 

NOV #SERNUN,R4 

NOV #4.R5 

NOV (R3)«,R2 

NOV R2,(R4)« 

DEC R5 

BNE 8$ 

NOV #PBNBUF,6UFPNT 

NOV #F9,R1 

CALL PAGE 

TST FCNT 

BEQ RDONEl 

NOV #1, FCTCNT 

BIT #N0DE,FLA61 



FOR CURRENT OVERLAY 

FOR FIRST FCT BLOCK 

POINT TO BUFFER 

FCT READ OVERLAY 

READ IT IN 

FCT STILL HERE ? 

NOPE - CAN IT 

POINT TO BUFFER 

GET FORNAT MEDIA WORD 

IS IT 512 ? 

YUP ■ O.K. 

IS IT 576 ? 

YUP * 0 K 

IS IT FORNAT IN PROGRESS 

NOPE - FCT NO GOOD 

GET FLAG UORD 

IS THERE REALLY AN FCT ?? 

NOPE - FIND OUT IF UE QUIT OR ROUGH IT 

POINT TO BUFFER 

WHAT NODE ARE WE IN 

IF CLEAR THEN SI 2 NODE 

GET COUNT OF USED ENTRIES *576) 

SKIP 512 STUFF 

GET COUNT OF USED ENTRIES 

STORE IT 

IF NOT ZERO THEN ENTRIES EXIST 
SET EMPTY FLAG 
FOR FCT INIT 

SIGNAL FORNAT IN PROGRESS 

FORNAT INSTANCE NUHBER 

INCRENENT IT 

STORE IT BACK 

POINT TO BUFFER 

POINT TO SERIAL NUNBER 

SERIAL NUMBER BLOCK 

COUNTER 

GET yORO 

STORE UORD 

DECRENENT COUNTER 

CONT TILL DONE 

POINT TO BUFFER 

FCT WRITE OVERLAY 

DO IT 

ANY ENTRIES ? 
NOPE - ALL DONE 
FOR FCT COUNT INIT 
WHAT NODE ARE UE IN 
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GET FCT BLOCK FOR LBN FORMAT (G3) 













DCU 


Bl MAD 






MM I f cj 


MM 1 r H J 




Ann 


FrTCIIB FfTrUT 




106200 


ni06S^ 


001760 
MM 1 ' 


01 nop- 


MOV 


APRMRIIF RIIFPklT 




106201 


00001 7 

WUM 1 ' 






MOt/ 


Mffi Rl 


OC \J\JH 1 QH 
















102200 


000001 


001702 

MM 1 r vC 




RIT 


irFTTAVI Fl AG 


OH vvH 1 r 1 










RFO 






106206 


0106S^ 






NOV 


irPRMRilF B6 




10S206 


000^76 

\JMMJ ' 0 






ADD 


#254., R4 


O r VV*t Iff 


10620^ 


0016^7 






MOV 


JTHGHPRM R? 


68 no4?oi 

oo UvHCv 1 














6Q onA?n^ 

oT v/uhcUj 










RPI 


Rl KFun 


70 004?0S 


1 07200 


000200 

MMMCMV 


001722 




CI in 


IV 1 CO • # r CIV 1 


71 006210 










SR 
on 


Rl OOP 


77 006? 1? 


1 06200 


000200 


002163 




NOV 


#128 PCNT 


7l 00421 S 


104204 


010455 






MOV 


#PBNBUF R4 

1 \ n't / # Hw 


74 004217 


104647 

1 W*tO"t f 


000001 




Rl OOPI • 


MOW 


f W**CC 1 


104071 








MOW 


RO R1 


76 004222 


103207 


1 70000 

1 ■ WW 






RIC 

D A ^ 


MM riR RO 


77 004224 


100647 


000001 








RO 1(R4j 


78 004226 




0016^7 

MM 1 O'J ■ 






PlOU 


JfHGUPRM R? 


79 0042^0 














80 0042^2 










RPI 


RDOMF 


81 0042'^4 


100641 


000001 






MOW 

nu w 


Rl 1fR41 


82 0042^6 

OC vwHC^O 


117400 

1 1 f *fVW 


00216^ 

MMC 1 O-J 






OFT 


PfMT 


8? 004240 


1 1 7400 
1052C'. 


001 722 

W 1 f cc 








FCNT 


86 004242 


000002 
wwvc 


001722 

W 1 f fcfc 






#2 R4 


85 004244 


1 06200 


000001 

WV W 1 






#1 FCNT 


86 004247 

OU V\/~t~f 












RDQNF 


87 004251 










BR 


RLQ0P1 


88 004253 


100641 


000001 

WV W 1 




RDONE ; 


MOV 

n V w 


Rl 1(R4) 


89 004255 


104040 


001706 

W 1 f WW 






NOV 


R4 BADPBM 


90 004257 


104300 


001722 


001776 




NOV 


FCMT FCTRFV 


91 004262 










RETURN 


92 004264 


102200 


000020 


001702 


N6D: 


BIT 


#GOBAI> FLAG 


93 004267 










BEQ 


RQUIT 


94 004271 


101200 


002004 


001702 

VV 1 ■ Vb 




BIS 


#FCTBAI>4-BSTGS FLAG 


95 004274 


103200 


000001 

www 1 


001702 

VV 1 • Vfc 




BIC 


#FCTAVL FLAG 


96 004277 


104201 


000000 

w www 






NOV 


#F1 Rl 


97 004301 










CALL 


NEXT 


98 004303 








RD0NE2: 


RETURN 




99 004305 


101200 


002004 


001702 


NG01: 


BIS 


#FCTBA0^BST6S«FLA6 


100 004310 


103200 


000001 


001702 




BIC 


#FCTAVL.FLAG 


101 004313 










BR 


RD0NE2 


102 004315 


104201 


000022 




RQUIT: 


NOV 


#18., Rl 


103 00i317 


114002 








CLR 


R2 


104 004320 










CALL 


ERRMNT 



SEQ 143 



512 • NO ADJUSTMENT NEEDED 

POINT TO 576 TABLE 

POINT TO BUFFER 

FCT READ OVERLAY 

DO THE READ 

STILL HAVE FCT ? 

NOPE - CAN IT 

POINT TO THE BUFFER 

POINT TO LAST ENTRY 

HIGHEST PBN IN LBN AREA 

IS IT RIGHT BLOCK ? 

YES - FIND RIGHT ENTRY 

SUBTRACT ONE BLOCKS WORTH 

BRANCH BACK 

FOR INIT OF COUNT 

POINT TO PBN BUFFER 

GET HIGH ORDER 

SAVE IT TEMPORARILY 

CLEAR FOR COMPARE 

STORE IT BACK 

POINT TO HIGHEST PBN 

COMPARE 

IF LESS THAN OR EQUAL THEN FOUND FIRST L6BN 
STORE HEADER BACK 
DECREMENT COUNT 
DEC IT 

POINT TO NEXT ENTRY 
COUNT AT 1 ? 

YUP - THEN LAST ENTRY IS IT 

TRY NEXT ENTRY 

STORE HEADER BACK 

MAKE CURRENT BAD POINTER 

FCT ENTRY COUNT FOR LAFER USE 

RETURN 

CONTINUE AS BEST GUESS ? 
NOPE - GIVE UP 
SET BAD FCT FLAG 
NO MORE FCT 

POINT TO D/XBN OVERLAY 

START OVER IN BEST GUESS MODE 

SET FCT NOT USED FLAG 

NO MORE FCT (SO WILL DO EXTEN READS) 

EXIT 

ERROR CODE 
NO SUBCODE 
ERROR RETURN 
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RCT CLEANUP OVERLAY (6A) 



SEO U4 



1 
2 
3 

5 
6 
7 
8 
9 
10 
11 
12 
13 

15 

16 

^7 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 



004322 



004014 

004017 

004021 

004023 

004024 

004025 

004027 

004031 

004034 

004036 

004040 

004043 

004046 

004050 

004052 

004054 

004056 

004060 

004062 

004064 

004065 

004066 

004070 

004072 

004074 

004075 

004077 

004100 

004102 

004103 

004105 

004107 

004111 

004113 

004115 

004123 

004125 

004127 

004131 

004133 

004136 

004140 

004142 

004144 

004147 

004151 

004153 

004156 

004160 



104200 


000041 


001636 




104207 


AAA A 

001750 






104303 


002155 






100173 








115003 








104202 


012264 






104200 


000100 


002164 




114000 


001 561 






11400O 


001 562 






104200 


000002 


002162 




104200 


000200 


0021 37 


CLELP2: 


104304 


002162 






104205 


013477 






104653 


A A AAA* 

000001 




CLELP: 


103203 


007777 






106203 


030000 






104153 








100223 








104653 


000001 






103203 


170000 






101203 


030000 






100223 








104303 


001561 






100223 








104303 


001562 






100223 








117400 


002164 






117400 


002155 






104303 


002164 







105205 
117400 

115400 
106300 



000002 
002137 

002162 
001727 



CLESKP: 



104200 000100 
104202 012264 

106200 000100 



002162 

002164 
002164 



CLSKP2: 

CLEDON: 
CLSKP4: 



.SBTTL RCT CLEANUP OVERLAY (64) 
RCT CLEANUP AND FINAL STATS 
DNOVLV 64, START 



NOV 

NOV 

NOV 

NOV 

TST 

BEQ 

NOV 

NOV 

CLR 

CLR 

NOV 

NOV 

NOV 

CALL 

NOV 

NOV 

BIC 

CNP 

BNE 

NOV 

NOV 

NOV 

BIC 

BIS 

NOV 

NOV 

NOV 

WV 

NOV 

DEC 

DEC 

BEQ 

NOV 

BEQ 

DUBINC 

ADD 

DEC 

BNE 

INC 

CNP 

BNE 

BR 

CALL 

NOV 

NOV 

BR 

CNP 

BEQ 

CALL 



#64,CUR0VL 

#DNBUF,RO 

SNDCNT,R3 

R3,(R0) 

R3 

CLSKP3 

#REVBUF.R2 

#64.,C0JNT 

CURRBN 

CURRBN41 

#2.RCTCNT 

#128.,SECCNT 

RCTCNT,R4 

RRC 

#RCT6UF,R5 

1(R5),R3 

#L0,R3 

#RC.SND,R3 

CLESKP 

(R5),R3 

R3,(R2)* 

1(R5),R3 

#HD.CLR,R3 

#HD.REV,R3 

R3,(R2>* 

CURR6N,R3 

R3,<R2)* 

CURRBN^I .R3 

R3,(R2)t 

COUNT 

SNDCNT 

CLSKP4 

COUNTERS 

CLSKP2 

CURRBN 

#2,R5 

SECCNT 

CLELP 

RCTCNT 

RCTFNT,RCTCNT 

CLELP2 

CLEDON 

CLEURT 

#64., COUNT 

#REVBUF,R2 

CLESKP 

#64., COUNT 

CLSKP3 

CLEVRT 



FOR OVERLAY IDENT 

NESSAGE BUFFER 

ANY SECONDARY REVECTORS ? 

STORE IT 

ARE THERE ANY ? 

NOPE - JUST EXIT 

POINT TO REVECTOR BUFFER 

COUNT OF NAX TO REVECTOR AT ONCE 

CLEAR FOR INIT 

HIGH ORDER TOO 

INIT RCT BLOCK 

GET COUNT OF RCT ENTRIES 

GET DLOCK NUMBER TO READ 

READ IT 

POINT TO BUFFER 
GET HEADER 

CLEAR OUT LOU GARBAGE 

IS IT A SECONDARY ? 

NO - SKIP REVECTORING 

GET LOW ORDER 

STORE IN REVECTOR BUFFER 

GET HIGH ORDER 

CLEAR HEADER 

SET AS AN LBN REVECTOR 

STORE IT 

GET LOU ORDER R8N NUMBER 

STORE IT 

GET HIGH ORDER 

STORE IT 

DEC NUN OF EMPTY REVECTOR SLOTS 

DECREMENT IT 

IF ZERO THEN DONE 

FULL BLOCK ? 

IF 0 > PROCESS BLOCK 

INCERNENT IT 

POINT TO NEXT RBN ENTR 

DECRENENT IT 

DO NEXT ENTRY IF NOT ZERO 
INCRENENT IT 
DONE ? 

NOPE - READ IN NEXT BLOCK 

ELSE DODtE 

PROCESS THE BLOCK 

FOR COUNTER INIT 

RESET POINTER 

BRANCH BACK 

DONE ANY ? 

NO - DONE 

URITE OUT ANY LEFTOVERS 



J 
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Rct^CLE^NUP^SvlRLArCGl)'* '*''**°^ 23-AU6-82 13:14:22 PAGE 81-1 



58 00A162 

59 004162 

60 004164 

61 004166 

62 004170 

63 '*,04172 

64 004173 



104201 000066 



114007 
060021 



CLSKP3: 



CALL 

CALL 

CALL 

CLR 

XFC 



#H2,R1 

PAGE 

SNORES 

DISCON 

RO 

DONE 



FINAL CHECK OF FCT.RCT. HEADS OVERLAY 

PAGE IT IN 

SEND FINAL STATS 

DISCONNECT/SPINDOWN DRIVE 

MAKE SURE QUITS NICELY 

DONE 
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UDAF52 - UOA-52 FORMATTER OHACR 
RCT CLEANUP OVERLAY (GA) 

1 
2 
3 

4 0OA17A 

5 

6 

7 

8 

9 

10 004203 030001 

11 004204 106 157 

12 000012 
13 

14 
15 

16 004215 040014 

17 004216 106 103 

18 000014 
19 

20 
21 

22 004231 040015 

23 004232 106 103 

24 000012 
25 

26 
27 

28 004243 030020 

29 004244 127 101 

30 000040 
31 

32 

33 004303 

34 

35 

36 

37 004303 000015 

38 004304 004311 

39 004305 030002 

40 004306 

41 004311 

42 004311 040 122 

43 000015 
44 

45 
46 

47 004322 000021 

48 004323 004330 

49 004324 030003 

50 004325 

51 004330 

52 004330 040 120 

53 000021 
54 

55 
56 

57 004345 000026 



X04.01 23-AUG-82 13:14:22 PAGE 82 



SEO 146 



162 



124 



124 



122 



145 



162 



DATA STRUCTURES FOR STATUS RESPONSE 
PARNTB: .BLKU 7 .-PARAMETER TABLE 



FINNSG: 
LFINMS 

FCTUSD: 
LFCTUS 

FCTNOT: 



FORMAT COMPLETE 

.ENABL LC 

.WORD 30001 

.ASriZ *Fornat conpleted' 

- .'FINMSG 

FCT USED 

.WORD 40014 

.ASCI2 'FCT used successfully* 
= .-FCTUSD 

FCT NOT USED 



.WORD 40015 

.ASCIZ 'FCT was not used' 
LFCTNT = .-FCTNOT 



;DUP WORD 



;DUP WORD 



;DUP WORD 



WARNING OF POSSIBLE HEAD PROBLEM 



URN: 



.WORD 30020 ;DUP WORD 

.ASCIZ 'WARNING - possible head addressing problea - run diagnostics' 
WRNLN - .-WRN 



RESTAB: 



IS: 

LBUFE 

LLEN 



2S: 

P8UFE 

PLEN 



RE VECTORED LBNS 



.WORD 
.WORD 
.WORD 
.BLKW 

Tasciz 

= .-1» 



LLEN 
LBUFE 
30002 
3 



LENGTH 

END OF BUFFER 
DUP WORD 
CONVERT BUFFER 



Revectored LBNS* 



PRIFURY REVECTORS 



.WORD 
.WORD 
.WORD 
.BLKW 

Tasciz 



PLEN 
PBUFE 
30003 
3 



LENGTH 

END OF BUFFER 
DUP WORD 
CONVERT BUFFER 



* Prlaary revectored LBNS' 
.-21 



SECONDARY REVECTORS 
.WORD SLEN 



.•LENGTH 
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U0AF52 - UDA-52 FORMATTER DNACR X04.01 23-AUG'-82 13:U:22 PAGE 82-1 
RCT CLEANUP OVCRLAY (G4) 



SEO U7 



58 


004346 


004353 


59 


004347 


030004 


60 


004350 




61 




004353 


62 


004353 


040 


63 




000026 


64 






65 






66 






67 


004375 


000034 


68 


004376 


004403 


69 


004377 


030005 


70 


004400 




71 




004403 


72 


004403 


040 


73 




000034 


74 






75 






76 






77 






78 


004433 


000034 


79 


004434 


004441 


80 


004435 


030007 


81 


004436 




82 




004441 


83 


004441 


040 


84 




000034 


85 






86 






87 






88 


004471 


000034 


89 


004472 


004477 


90 


004473 


030010 


91 


004474 




92 




004477 


93 


004477 


040 


94 




000034 


95 






96 






97 






98 


004527 


000025 


99 


004530 


004535 


100 


004531 


030013 


101 


004532 




102 




004535 


103 


004535 


040 


104 




000025 


105 






106 






107 






108 






109 
110 


004556 


000000 


111 






112 






113 






114 


004557 


104207 



123 



102 



102 



102 



102 



145 



141 



141 



141 



154 



3$: 

SBUFE 

SLEN 



4$: 

RCBUFE 
RCLEN 



5$: 

OBBUFE 
DBLEN 



6$: 

XB8UFE 
XBLEN 



7$: 

REBUFE 
RELEN 



.WORD SBUFE 
.WORD 30004 
.BLKU 3 



END OF BUFFER 
DUP WORD 
CONVERT BUFFER 



.ASCIZ * Secondary/tertiary revectored LBNS* 
.-3$ 



RCT BAD BLOCKS 

.UOftO RCLEN 

.WORD RCBUFE 

.WORD 30005 

.BLKW 3 



.•LENGTH 
:END OF BUFFER 
:DUP WORD 
.-CONVERT BUFFER 



.ASCIZ ' Bad blocks in the RCT area due to data errors' 
.-4S 



DBN BAD BLOCKS 

.WORD DBLEN 

.WORD DBBUFE 

.WORD 30007 

.BLKU 3 



LENGTH 

END OF BUFFER 
DUP WORD 
CONVERT BUFFER 



.ASCIZ ' Bad blocks In the DBN area due to data errors' 
.-5$ 



XBN BAD BLOCKS 



.WORD 
.UORD 
.VORD 
.BLKU 



XBLEN 
XBBUFE 
30010 
3 



.-LENGTH 

;END OF BUFFER 
:DUP UORD 
.-CONVERT BUFFER 



.ASCIZ * Bad blocks in the XBN area due to data errors' 
.-6S 



RETRIED BLOCKS 



.UORD 
.UORD 
.UORD 
.BLKU 



RELEN 
REBUFE 
30013 
3 



LENGTH 

END OF BUFFER 
DUP UORD 
CONVERT BUFFER 



.ASCIZ * Blocks retried on the check pass* 

.-7$ 
.DSABL LC 



END OF LIST 
.UORD 0 

BUILD AND SEND STAT RESPONSES 
SNDRES: NOV fFINHSG.RO 



.•POINT TO "COMPLETE" MESSAGE 



2 - UDA-52 FORHATTER DHACR X04.01 23-AUG-82 13:14: 



LEANUP OVERLAY (64) 



15 


004561 


104201 


000012 






MOV 


116 


004563 


060016 








XFC 


117 


004564 


1^4204 


004 3C3 






nov 


118 


00^.566 


104203 


004174 






MOV 


119 


004570 


104302 


001777 






MOV 


120 


004572 


100232 








MOV 


121 


004573 


107302 


001750 






SUB 


122 


004S75 


100232 








MOV 


123 


004576 


104302 


001750 






MOV 


124 


004600 


100232 








MOV 


125 


004601 


104302 


002000 






MOV 


126 


004603 


100232 








MOV 


127 


004604 


104302 


002001 






MOV 


128 


004606 


100232 








MOV 


29 


004607 


104302 


002002 






MOV 


30 


004611 


100232 








MOV 


31 


004612 


104302 


002156 






MOV 


32 


004614 


100232 


004174 






MOV 


33 


004615 


104203 






MOV 


34 


004617 


104242 








MOV 


35 


004620 


104245 






SNDLP: 


MOV 


136 


004621 










CALL 


37 


004623 


104047 








MOV 


38 


004624 


103200 


000400 


001703 




BIC 


139 


004627 


104231 








MOV 


40 


004630 










CALL 


41 


004632 


104021 








MOV 


42 


004633 










PUSH 


43 


004634 


060016 








XFC 


44 


004635 










POP 


45 


004636 


105024 








ADO 


46 


004637 


104242 








NOV 


47 


004640 










BNE 


48 


004642 


102200 


002000 


001702 




BIT 


49 


004645 










BEQ 


50 


004647 


1C''207 


004231 






NOV 


51 


004651 


104201 


000012 






NOV 


52 


004653 


060016 








XFC 


53 


004654 




004215 






BR 


54 


004656 


104207 




USOFCT: 


NOV 


155 


004660 


104201 


000014 






NOV 


56 


004662 


060016 








XFC 


157 


004663 








OONFCT: 


RETU 



F 12 

2 PAGE 82-2 



#LFINHS,R1 

MAINTR 

#RESTAB,R4 

#PARHTB,R3 

LBNBADfR2 

R2,(R3)+ 

DM6UF.R2 

R2,(R3)* 

DM6UF.R2 

R2,(R3)* 

RCTBAD,R2 

R2,(R3)* 

DBBAD.R2 

R2,(R3)* 

XBBAD.R2 

R2.(R3)* 

RTYCNT,R2 

R2,(R3)* 

#PARHTB.R3 

(R4)^,R2 

(R4)^,R5 

CLRBUF 

R4«R0 

#FLIP0N,FLAG1 

(R3)*,R1 

OECASC 

R2.R1 

R2 

NAINTR 
R2 

R2,R4 , 
(R4)^,R2 
SNDLP 

fBSTGS.FLAG 

USOFCT 

fFCTNOT^RO 

fLFCTNT.RI 

NAINTR 

DONFCT 

#FCTUSD,R0 

fLFCTUS.RI 

NAINTR 



.■LENGTH OF MESSAGE 
.-SEND IT 
.•POINT TO TABLE 
.•PARAMETER TABLE 
.LBN'S BAD 
.STORE IT 

.•SUBTRACT STORED SECONDARIES TO GET PRIMARY 
.•STORE IT 

.STORED SECONDARY COUNT 

.STORE IT 

;RCT BAD BLOCKS 

.STORE IT 

;DBN BAD BLOCKS 

; STORE IT 

:XBN BAD BLOCKS 

.STORE IT 

.•RETRIES 

.•STORE IT 

.POINT BACK TO BEGINNING 

;6ET LENGTH OF MESSAGE 

;6ET CNO OF BUFFER ADDRESS (FOR CONVERT) 

.•INITIALIZE THE BUFFER 

;NOVE ADDRESS OF STRING TO RO 

.CLEAR FLAG (FOR CONVERT) 

;GET WORD TO CONVERT 

.•CONVERT TO ASCII 

;6ET LENGTH IN R1 

;SAVE LENCTH 

;SEND TO THE HOST 

.RESTORE LENGTH 

.•POINT TO THE NEXT NESSAGE 

;GET LENGTH 

.•BRANCH IF NOT ZERO 

;DID VE USE FCT ? 

;YES - PRINT THAT NESSAGE 

.•POINT TO NOT USED NESSAGE 

; LENGTH OF NESSAGE 

;SENO IT 

;EXIT 

.•POINT TO USED NESSAGE 
.•LENGTH OF NESSAGE 
.SEND IT 
; RETURN 
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UDAF52 ' UDA-52 FORMATTER DHACR X04.01 23-AU6-82 13:U:22 PAGE 83 
RCT CLEANUP OVERLAY (6A) 



SEO U9 



1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 



00A66S 

004667 104207 000003 
004671 104202 020040 

004673 100452 

004674 117407 
004675 
004677 
004701 



INIT A 3 WORD BUFFER TO ASCII BLANKS 
R5 •> END OF BUFFER 



CLRBUF: PUSH 
NOV 
NOV 

CLRLP: NOV 
DEC 
BNE 
POP 

RETURN 



R5.R2 
f3,R0 

#6LANU0,R2 

R2,-'R5) 

RO 

CLRLP 
R2,R5 



SAVE R5 
yORD COUNT 

WORD OF 2 ASCII BLANKS 
STORE UORD IN BUFFER 
DECREMENT COUNT 
LOOP TILL DONE 
RESTORE RS 
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UDAFS2 - UDA-S2 FORnATTER DNACR X04.01 23-AUG-82 13:U:22 PAGE 84 
RCT C'.EANUP OVERLAY (G4) 



SEO 150 



1 
2 
3 
4 

5 
6 

7 004703 

8 004707 

9 004711 

10 004713 

11 004716 
1? 004720 

13 004722 

14 004724 

15 004726 

16 004727 

17 004731 

18 004734 

19 004736 

20 004737 

21 004742 

22 004744 

23 004745 

24 004746 

25 004747 

26 004752 

27 004753 

28 004755 

29 004760 

30 004762 

31 004763 

32 004765 

33 004766 

34 004772 



1C4010 
114000 
104200 
114000 
104204 
104203 

104132 
105202 
102200 

104027 
101200 

110707 
101027 
100457 
103200 
104141 

102200 

110707 
101207 
100457 



CONVERT FROM BINARY TO DECIMAL ASCII 



R1 = VALUE TO OE CONVERTED 

R5 -> END OF BUFFER TO PUT RESULT 



001410 
001411 
000012 
001404 
001410 
001403 



000060 
000400 



000400 

000400 
000400 
000040 



001403 



001703 
001703 

001703 
001703 



DECASC: PUSH 
DECALP: NOV 
CLR 
MOV 
CLR 
NOV 
NOV 
CALL 
NOV 
ADD 
BIT 
BNE 
NOV 
BIS 
BR 

SWAB 
BIS 
NOV 



IS: 



2S: 



3S: 



NOV 
BNE 
BIT 
BEQ 
SUAB 
^BIS 
NOV 
POP 

RETURN 



R0,R2«R3,R4 

R1,TENP 

TENP^I 

«10.,DDUmiY 

DDUNNY^I 

#TENP.R4 

«DDUNNY,R3 

DDIV 

(R3},R2 

#'0,R2 

#FLIP0N,FLAG1 
1$ 

R2,R0 

#FLIP0N,FLAG1 

2S 

RO 

R2,R0 

R0,-(R5) 

fFLIPON.FLAGI 

(R4},R1 

DECALP 

#FLIP0N,FLA61 
3$ 

RO 

#LOBL,RO 
i*0.-<R5) 
Rs.R3«R2.R0 



SAVE SOME REGS 

STORE VALUE TO BE CONVERTED 

CLEAR HIGH ORDER 

FOR DIVIDE BY 10 

CLEAR HIGH ORDER 

DIVIDENT 

DIVISOR 

do the divide 

get renainder (value of interest) 

nake it ascii 

which byte are ue on ? 

if set - thfn high byte 

if lou byte - save in ro 

set nou on high byte 

cont:nue on 

get first digit into high byte 
or in lou byte 
store it in buffer 
set nou on lou byte 
get quotient 

if not zero then continue 
uhich byte did ue end on ? 
if clear then - ue are finished 
get digit in high order 
set in lou order blank 
and urite out lou byte 
restore regs 
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UOAF52 - UOA-52 FORMATTER DNACR XCK.OI 23-AU6>82 13:U:22 PAGE 85 
RCT CLEANUP OVERLAY (64) 



SEQ 151 



1 
2 
3 

A 004774 

5 005002 

6 005004 

7 005C07 

8 005011 

9 005013 

10 005015 

11 005017 

12 005021 

13 005022 

14 005023 

15 005024 

16 005026 

17 005030 

18 005033 

19 005035 

20 005037 

21 005041 

22 005043 

23 005045 

24 005047 

25 005051 

26 005053 

27 005055 

28 005057 

29 005060 

30 005062 

31 005064 

32 005066 

33 005070 

34 005072 

35 005075 

36 005077 

37 005101 

38 005103 

39 005105 

40 005107 

41 005111 

42 005113 

43 005115 

44 005116 

45 005120 

46 005121 

47 005123 

48 005125 

49 005127 

50 005131 

51 005133 

52 005135 

53 005137 

54 005141 

55 005143 

56 005145 

57 005147 



104204 
104300 
104642 
104643 
101203 
104205 
104201 
100252 
100253 
117401 

104203 
102200 



012264 

002164 001410 

000002 

000003 

060000 

015306 

000200 



001525 

020000 001703 



CLEyRT: 



CLHERE: 



yiOOP: 



104632 000011 



104632 
103202 
104207 
100672 
104632 
103202 
100672 
114002 
100672 

104202 
104307 

102200 

100623 

100623 
104207 
100672 
104203 
104302 
101023 
100673 
104143 
100673 
104643 
105303 
100673 
104203 
100673 
104040 
104303 
104304 
104302 
104207 
101207 



000015 
177400 
002110 
000004 
000001 
007777 
000001 

000000 

015306 
002171 

C20000 001703 

000440 

000400 
001373 
000002 
122400 
001565 

000005 

000003 
000001 
002007 
000004 
001400 
000006 
001403 
002005 
002006 
001412 
001373 
100000 



IS: 
2S: 



3$: 
4S: 



yRITE9: 



PROCESS REVECTOR BLOCK 
PUSHA 

NOV «HEVBUF,R4 

WV COUNT, TENP 

MOV 2(R4).R2 

MOV 3(R4),R3 

BIS «HD.RBN.R3 

MOV #CL6UF,R5 

NOV «RBNRPT,R1 

NOV R2,(R5)* 

NOV R3,(R5}^ 

DEC R1 

BNE WLOOP 

NOV fSCR.RS 

BIT «N0DE.FLA61 

BNE IS 

NOV LBNT12(R3),R2 

BR 2S 

NOV LBNT76(R3).R2 

BIC #HIBYTE,R2 

NOV fCONBLK.RO 

NOV R2,V3(R0) 

MOV STCYL(R3).R2 

BIC #L0«R2 

NOV R2.V1*1(R0) 

CLR R2 

NOV R2«V1 (R0> 

CALL CS 

NOV fCLBUF ,R2 

NOV SECSIZ.RO 

CALL CEOC 

BIT #NC0E.FLA61 

BEQ 3S 

NOV R3,RU.E76(R2) 

BR 4S 

NOV R3«RU.E0C(R2) 

NOV #URBLK,RO 

NOV R2,Rtf.BUF(R0) 

NOV fWRCND«R3 

NOV CURTRK.R2 

BIS R2«R3 

NOV R3.RU.CN0(R0) 

NOV (R4)«R3 

NOV R3,RU.LOU(R0) 

NOV 1(R4),R3 

ADD ST.LBN,R3 

NOV R3«RW.HI(RQ) 

NOV #HSLIH-1,R3 

NOV R3,Ry.0UN(R0) 

NOV R4,D0UWIY 

NOV HPREA,R3 

NOV DPREA.R4 

NOV UNIT,R2 

NOV fWRBLK.RO 

BIS «BIT1S.R0 



POINT TO BUFFER 

GET COUNT 

GET LOU ORDER R8N 

GET HIGH ORDER R8N 

SET IN MIt CODE 

POINT TO BUFFER 

INIT COUNTER 

STORE LOU ORDER 

STORE HIGH ORDER 

DECREMENT COUNTER 

CONTINURE TILL DONE 

POINT TO CHARACTERISTICS 

UHAT NODE 

IF SET THEN 576 

GET LBN/TRACtC FOR 512 

SKIP 576 SETUP 

GET LBN/TRACK FOR 576 

CLEAR HIGH BYTE 

POINT TO CONVERT BLOCK 

FOR CONVERT 

STARTING CLYLINDER 

CLEAR REST OF UORD 

STORE 

FOR STORE 

LOW ALUAYS ZERO 

CONVERT AND SEEK 

POINT TO BUFFER 

SECTOR SIZE IN UORDS 

COMPUTE EDC - RETURNED IN R3 

UHAT MODE ARE UE IN 

IF CLEAR THEN 512 

STORE IT 576 BUFFER 

SKIP 512 SETUP 

STORE IT 512 BUFFER 

POINT TO COMMAND BLOCK 

STICK BUFFER PTR IN COMMAND BLOCK 

GET URITE COMMAND 

GET CURRENT TRACK 

SET TRACK FOR URITE 

STORE IN COMMAND BLOCK 

GET LOU ORDER HEADER 

STORE IN URITE BLOCK 

GET HIGH ORDER 

ADD STARTING LBN BITS 

STORE IN URITE BLOCK 

GET DUMMY SDI POINTER 

POINT IN COMMAND BLOCK 

SAVE R4 

GET HEADER PREAMBLE 

GET DATA PREAMBLE 

GET PORT NUMBER FOR SIP 

MAKE SURE POINTING AT BLOCK 

SET NO REVECTORING 
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58 005151 

59 005152 

60 005154 

61 005155 

62 005156 

63 005160 

64 005163 

65 005165 

66 005167 

67 005171 

68 005171 

69 005173 

70 005175 

71 005177 

72 005201 

73 005204 

74 005206 

75 005210 

76 005216 
77 

78 
79 
80 

81 005220 

82 005222 

83 005223 

84 005225 

85 005227 

86 005231 

87 005233 

88 005235 

89 005236 

90 005241 

91 005244 

92 005247 

93 005252 

94 005255 

95 005257 

96 005261 

97 005263 

98 005265 

99 005270 

100 005272 

101 005273 

102 005275 

103 005277 

104 00S301 

105 005303 

106 005305 



060012 
104302 
060003 
115001 

106200 

115400 



114000 
104304 
105204 
115400 
106200 



104201 
104207 
104672 



002171 

000010 
002167 



002167 
001403 
000004 
002164 
000100 



000012 
002! 10 
000006 



002167 



1$: 



002164 



104207 


002110 




104143 






100673 


000002 




104643 


000001 




103203 


170000 




100673 


000003 




104201 


001525 




060020 






104670 


000011 


001565 


104670 


000006 


001551 


104670 


000007 


001552 


104670 


000010 


001553 


102200 


020000 


001703 


104671 


000004 




106010 


001612 




101200 


100000 


001 •?52 


115001 







CS: 



1$: 



CKR: 



XFC 


SIP 


:UAIT FOR SEC TOP PULSE 


NOV 


SECSIZ«R2 


.SECTOR SIZE IN WORDS 


XFC 


WRITE 


; WRITE SECTOR 


TST 


R1 


;ANY ERROR ? 


BEQ 


U 


;N0 - SKIP RETRY 


CNP 


«NAXTRY,TNPTRY 


;NAX ? 


BEQ 


1$ 


;YES - GIVE UP 


INC 


TNPTRY 


:INC RETRY COUNT 


BR 


URITE9 


;D0 RETRY 


CLR 


TNPTRY 


: CLEAR RETRY COUNT 


NOV 


DDUnNY,R4 


;RESTORE R4 


ADD 


«REVLEN,R4 


; POINT TO NEXT ENTRY 


INC 


COUNT 


;INC COUNTER 


CNP 


#64., COUNT 


:DONE ? 


BNE 


CLHERE 


;N0 - REPEAT 


CALL 


RBNURT 


:WRITE GOOD EDC'S TO RBN'S 


POPA 






RETURN 







CONVERT BLOCK NUN6ER TO PHYSICAL ADDRESS AND SEEK 
R4 -> BLOCK NUNBER 



NOV fCONBLK^RO 

NOV (R4).R3 

NOV R3.V2(R0) 

NOV 1(R4),R3 

BIC #HD.CLR,R3 

NOV R3«V24-1(R0) 

NOV fSCR^RI 

XFC CVT 

NOV TRK(RO),CURTRK 

NOV CYL(R0).ISEEK*1 

NOV CYL*1(r6).ISEEK*2 

NOV GRP(R0),ISEEK*3 

BIT #N0DE,FLAG1 

BEQ 1$ 

NOV V3(R0).R1 

CNP R1,SECT12 

BEQ IS 

BIS «SS,ISEEK«2 

CALL SEEK 

TST R1 

BNE CKR 

RETURN 

NOV #10. .R1 

NOV #C0NBLK«R0 

NOV CYL(R0).R2 

CALL ERRNNT 



POINT TO CONVERT BLOCK 

GET LOW ORDR 

STORE IT 

HIGH ORDER 

CLEAR HEADER 

STORE I T 

POINT TO SUBUNIT CHARACTERISTICS 

CONVERT IT 

GET TRACK NUNBER 

LOW gNDER XYLINDER 

HIGH ORDER CVLINDR 

GROUP NUNBER 

WHAT NODE ARE WE IN 

512 - SEEK BIT O.K. 

GET VARIABLE 3 

IF EA TO SECT12 THEN D/XBN 

AND SEEK BIT O.K. (512) 

ELSE L/RBM - SET S76 BIT 

DO SEEK 

ANY ERROR 

YUP 

SEEK ERROR 
CONVERT BLOCK 
CYLINDER FAILD ON 
ERROR RETURN 
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SEQ 153 



1 
2 
3 
A 
5 
6 
7 



005307 
005311 
005313 
005315 
005320 
005322 
005324 

8 005326 

9 005330 

10 005332 

11 005334 

12 005336 

13 005340 

14 005342 

15 005345 

16 005347 

17 005351 

18 005353 

19 005355 

20 005357 

21 005361 

22 005363 

23 005365 

24 005367 

25 005370 

26 005372 

27 005375 

28 005400 
?9 005402 

30 005^04 

31 003<iU6 

32 005410 

33 005412 

34 005414 

35 005415 

36 005417 

37 005421 

38 005423 

39 005424 

40 005426 

41 005430 

42 005432 

43 005434 

44 005436 

45 005440 

46 005442 

47 005444 

48 005446 

49 005450 

50 005452 

51 005454 

52 005455 

53 005457 

54 005460 

55 005461 

56 005463 

57 005466 



104204 
104203 
104302 
102200 



012264 
011132 
002132 
020000 



100622 000440 



100622 
104203 
104632 
103202 
104207 
100672 
102200 



104632 
103202 
100672 
104632 
103202 
100672 
114002 
100672 
1046^0 
104640 
104040 
104204 

104207 
104203 
104302 
101023 
100673 
104202 
100672 
104143 
100673 
104643 
105303 
101203 
100673 
104203 
100673 
104303 
104304 
104302 
104207 
101207 
060012 
104302 
060003 
11S001 



000400 
001325 
000004 
177600 
002110 
000004 
020000 



104632 000011 



000015 
177400 
000005 
000001 
007777 
000001 

000000 
000002 
000003 
001403 
001405 

001373 
122400 
001565 

000005 
011132 
000002 

000003 
000001 
002010 
060000 
000004 
001400 
000006 
002005 
002006 
001412 
001373 
100000 

002171 



001703 



001703 



001405 
001406 



m 

F 



106300 002165 002167 



RBNyRT: 


mv 


«REV3UF,R4 


POINT TO BUFFER 




HOV 


#60BLK,R3 


POINT TO GOOD BLOCK 




NOV 


EDC,R2 


GET GOOD EDC 




BIT 


#N0DEJLAG1 


WHAT NODE ARE WE IN 




BEO 


3$ 


IF CLEAR THEN 512 




nov 


R2,RW.E76(R2) 


STORE IT 576 BUFFER 




BR 


4$ 


SKIP 512 SETUP 


3$: 


NOV 


R2,Ry.EDC(R2) 


STORE IT 512 BUFFER 


4S: 


NOV 


#SCR,R3 


POINT TO CHARACTERISTICS 




NOV 


rbntrk(r3).r2 
«hiibyte,r2 


GET R6N/TRACK 




BIC 


■CLEAR HIGH GARBAGE 




NOV 


#CONBLK,R0 


POINT TO CONVERT BLOCK 




NOV 


R2,V3(R0) 


FOR CONVERT 




BIT 


#N0DE«FLAG1 


WHA< NODE 




BNE 


IS 


•IF SET THEN 576 




NOV 


LBNT12(R3),R2 


;6ET LBN/TRACK FOR 512 




BR 


2S 


;SKIP 576 SETUP 


It: 


NOV 


LBNT76(R3),R2 


;6ET LBN/TRAfK FOR 576 


2$: 


BIC 


#HlBYTk.R2 
R2,V4(R0) 


;CLEAR HIGH BYTE 
■SET UP FOR RBN'S 




NOV 




NOV 


STCYL(R3),R2 


; STARTING CLYLINOER 




BIC 


#L0,R2 


; CLEAR REST OF WORD 




NOV 


R2,V1*1<R0) 


; STORE 




CLR 


R2 


;FOR STORE 




NOV 


R2,V1(R0) 


;LOW ALWAYS ZERO 


RNWHER: 


NOV 


2<R4),TENP2 


;GET LOW ORDER R8N 




NOV 


3(R4),TENP2*1 


;GET HIGH ORDER 




NOV 


R4,0DUNNY 


;SAVE R4 




NOV 


#TENP2,R4 


;FOR CONVERT 




CALL 


CVTSK 


; CONVERT AND SEEK 




NOV 


fWRBLK,R0 


; POINT TO COHNAND BLOCK 




NOV 


#URCND,R3 


;GET WRITE CONPMND 




NOV 


CURTRK«R2 


;6ET CURRENT TRACK 




BIS 


R2,R3 


;SET TRACK fOU WRITE 




NOV 


R3,RU.Cffi>(R0) 


; STORE IN COHNAND BLOCK 




NOV 


f6DBLK,R2 


; POINT TO BLOCK 




NOV 


R2(RU.BUF(R0) 


; STICK IN CONNAND BLOCK 




NOV 


(R4),R3 


;6ET LOW ORDER HEADER 




NOV 


R3,RU.LOU(R0) 


; STORE IN WRITE BLOCK 




NOV 


1CR4),R3 


;GET HIGH ORDER 




ADO 


ST.RBN,R3 


;AOD STARTING RBN BITS 




BIS 


«H0.RBN,R3 


;GIVE RBN HEADER 




NOV 


R3,RU.HI(R0) 


; STORE IN WRITE BLOCK 




NOV 


fHSL INCURS 


;GET OUNHY SDI POINTER 




NOV 


R3,RU.0L|H(R0) 
HPREA,R3 


; POINT IN CONNAND BLOCK 


yRIT13: 


NOV 


;GET HEADER PREANBLE 




NOV 


DPREA.R4 


;GET DATA PREANBLE 




NOV 


UNIT,R2 


;GET PORT NUNBER FOR SIP 




NOV 


#URBLK«RO 


;NAKE SURE POINTING AT BLOCK 




BIS 


fBIT15.R0 


;SET NO REVECTORING 




XFC 


SIP 


;WAIT FOR SECTOR PULSE 




NOV 


SECSIZ,R2 


; SECTOR SIZE IN WORDS 




XFC 


WRITE 


; WRITE SECTOR 




TST 


R1 


;ANY ERROR ? 




BEO 


2$ 


;N0 - SKIP RETRY 




CNP 


RETRY,THPTRV 


;NAX ? 




BEQ 


IS 


;YES - TRY SONE RECOVERY 
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58 005470 


115400 


002167 






INC 


TNPTRy 


59 005472 










BR 


URIT13 


60 305474 


104303 


002170 




1$: 


NOV 


RECTHP,R3 


61 005476 










mi 


2$ 


62 005500 


115000 


002166 






TST 


RECOV 


63 005502 










BEQ 


3$ 


64 005504 










CALL 


ERRHNO 


65 005506 


r.4000 


002167 




3$: 


CLR 


TNPTRY 


66 005510 


117400 


002170 






DEC 


RECTNP 


67 005512 










BR 


URIT13 


68 005514 








2$: 






69 005514 


114000 


002167 






CLR 


TNPTRY 


70 005516 


104300 


002166 


002170 




NOV 


RECOV, RECTNP 


71 005521 


104304 


001403 






NOV 


DDUNNY,R4 


72 005523 


105204 


000004 






ADD 


«REVLEN,R4 


73 005525 


115400 


001410 






INC 


TENP 


74 005527 


106200 


000100 


001410 




CNP 


«64.,TENP 


75 005532 










BNE 


RNVHER 


76 005534 


104207 


002110 






NOV 


fCONBLK.RO 


77 005536 


114002 








CLR 


R2 


78 005537 


100672 


000005 






NOV 


R2.V4(R0) 


79 005541 










RETURN 





L 



SEQ 154 



U 
F 



;1NC RETRY COUNT 
:D0 RETRY 

:6ET CURRENT ERROR RECOVERY LEVEL 

;IF NEGATIVE THEN FRIED 

:IS THERE ONLY RECOVERY LEVEL 0 ? 

; YES - NO NEED TO ISSUE IT - JUST RETRY 

:TRY RECOVERY 

:FOR INIT 

.-DECRENENT IT 

; RE TRY 

.RESET 

;DITTO 

.•RESTORE R4 

.•POINT TO NEXT ENTRY 

;INC COUNTER 

.•DONE ? 

;N0 - REPEAT 

;FOR RESET 

.•DITTO 

.•RESET FOR NON-RBN'S 



L 
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SEQ 155 



1 
2 
3 
4 

5 00SS43 

6 00S5S1 

7 005552 

8 005554 

9 005556 

10 005560 

11 005562 

12 005564 

13 005565 

14 005567 

15 005572 

16 005574 

17 005576 

18 005600 

19 005602 

20 005604 

21 005606 

22 005610 

23 005612 

24 005614 

25 005616 

26 005620 

27 005622 

28 005624 

29 005626 

30 005630 

31 005631 

32 005633 

33 005635 

34 005637 

35 005641 

36 005643 

37 005645 

38 005647 

39 005651 

40 005652 

41 005654 

42 005656 

43 005660 

44 005661 

45 005663 

46 005665 

47 005666 

48 005670 

49 005671 

50 005672 

51 005674 

52 005676 

53 005700 

54 005702 

55 005705 

56 005707 

57 005710 



114005 
104203 
104632 
103202 
104207 
100672 
114002 
100672 
102200 



104632 000011 



104632 
103202 
100672 
104040 
114000 
104204 
104203 



104207 
104203 
100673 
104143 
100673 
104643 
105303 
100673 
104203 
100673 
104203 
104301 
101013 
100673 
104207 
104203 
100173 
104302 
101207 
060012 
104302 
060002 
115001 

104673 
102203 

103200 

115001 



000015 
177400 
000004 
001403 
001404 
001403 
001712 



001373 
001400 
000006 

000003 
000001 
002007 
000004 
013477 
000002 
013400 
001565 

000005 
001373 
100000 

001412 
100000 

002171 



001525 
000001 
007777 
002110 
000001 

000000 

020000 001703 



000001 
010000 

010000 001374 



READ A BLOCK OF THE RCT 
R4 ->BLOCK NUMBER OF RCT 



RRC: PUSHA 

CLR R5 

nOV #SCR,R3 

MOV STCYL(R3),R2 

BIC «L0,R2 

MOV #CONBLK,RO 

MOV R2,VU1(R0) 

CLR R2 

MOV R2,V1(R0) 

BIT #M00E,FLAG1 

BNE IS 

MOV LBNT12(R3),R2 

BR 2$ 

1$: MOV LBNT76(R3),R2 

2S: BIC #HIBrTE.R2 

MOV R2,V3(r6) 

MOV R4,0DUMMY 

CLR DDUMNY^I 

MOV #D0UNHY,R4 

MOV #H0LD,R3 

CALL DADD 

RCL: CALL CS 

MOV #RDBLK,RO 

MOV #HSLIN-1,R3 

MOV R3»RU.0UN(R0) 

MOV (R4),R3 

MOV R3,RU.LOU(R0) 

NOV 1(R4).R3 

ADD ST.LBN«R3 

MOV R3«RW.HI(R0) 

NOV #RCTBUF.R3 

NOV R3,Ry.BUF(R0) 

NOV #RUCND«R3 

NOV CURTRK^RI 

BIS RUR3 

NOV R3,RU.CHD(R0) 

R£AD8: NOV fRDBLK^RO 

NOV fRDCND,R3 

NOV R3,(R0) 

NOV UNIT.R2 

BIS fSITlS^RO 

XFC SIP 

NOV SECSIZ,R2 

XFC READ 

TST R1 

BNE 100S 

NOV RU.ER1(R0),R3 

BIT #ECCF«R3 

BEQ lOlt 

BIC fECCF«RDBLK«RU.ER1 

CALL ECCCK 

TST R1 

BNE 1001 



CLEAR ERROR COUNTER 

POINT TO CHARACTERISTICS 

GET LOW ORDER STARTING CYLINDER 

CLER REST OF WORD 

POINT TO CONVERT BLOCK 

STORE FOR CONVERT 

FOR STORE 

LOU ORDER ALWAYS ZERO 

WHAT NODE 

IF SET THEN 576 

GET LBN/TRACK FOR 512 

SKIP 576 SETUP 

GET LBN/TRACK FOR ^76 

CLEAR HIGH BYTE 

STORE IN CONVERT BLOCK 

STORE BLOCK NUNBER 

FOR STORE 

POINT FOR ADD 

STARTING RCT LBN 

GET RCT LBN 

CONVERT FCT BLOCK NUNBER AND SEEK 

PREPARE FOR READ SECTORS 

POINTER TO DUNHY SDI BLOCK 

STORE IN CONNAND BLOCK 

LO ORDER BLOCK NUNBER 

STORE IN READ COND BLOCK 

HI ORDER BLOCK NUN AND CODE 

ADD STARTING LBN BITS 

STORE IN READ CND BLOCK 

LOAD ADDRESS OF DATA BUFFER 

STORE IN CONPMND BUFFER 

LOAD SDI READ CONNAND 

GET CURRENT HEAD NUNBER IN R1 

SET IT IN CONPMND 

STORE BACK 

MAKE SURE POINTING AT BLOCK 

NARK AS ONLY !tEQUEST 

STORE IN CND BLOCK 

GET PORT NUNBER FOR SIP 

SET NO REVECTORING 

WAIT FOR PULSE 

SECTOR SIZE IN WORDS 

READ 1 SECTOR 

ANY ERRORS ? 

YES - TRY RECOVERY 

GET STATUS WORD 

ECC ERROR ? 

NOPE - VERIFY EDC 

CLEAR ECC ERROR BIT 

CORRECT ECC 

TEST FLAG 

UNCORRECTABLE 
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58 005712 

59 0057U 

60 005716 

61 005720 

62 005723 

63 005725 
6A 005727 

65 005731 

66 005733 

67 005735 

68 005737 

69 005742 

70 005744 

71 005746 

72 005750 

73 005752 

74 005754 

75 005756 

76 005760 

77 005762 

78 005764 

79 005766 

80 005770 

81 005770 

82 005771 

83 005773 

84 005775 

85 005777 

86 006001 

87 006003 

88 006006 

89 006010 

90 006010 

91 006012 

92 006015 

93 006016 

94 006020 

95 006022 

96 006024 

97 006026 

98 006030 

99 006032 

100 006034 

101 006035 

102 006037 

103 006041 

104 006043 

105 006044 

106 006046 

107 006050 

108 006052 

109 006054 

110 006056 

111 006060 

112 006062 

113 006064 

114 C06066 



104202 013477 

104307 002171 

102200 020000 001703 

106623 000440 

106623 000400 

106300 002165 002167 

115400 002167 

104303 002170 

115000 002166 



114000 
117400 



115405 
106305 

104203 

114000 
104300 



114000 
104300 
1^5005 

104203 



104207 
104203 
104302 
101023 
100673 
104203 
100673 
104143 
100673 
104643 
105303 
100673 
104203 
100673 
104303 
104304 
10430c 
104207 



002167 
002170 



001731 
001727 



002167 

002166 002170 



002167 

002166 002170 



001727 



001373 
122400 
001565 

000005 
013477 
000002 

000003 
000001 
002007 
000004 
001400 
000006 
002005 
002006 
001412 
001373 



101S: 


MOV 


#RCTBUF.R2 




MOV 


SECSIZ.RO 




CALL 


CEDC 




BIT 


/VMODE.FLAGI 




BEQ 


4$ 




CMP 


RU.E76(R2).R3 




BEQ 


102$ 




BR 


100$ 


4S: 


CMP 


RU.EDC(R2),R3 




BEQ 


102$ 


100$: 


CMP 


RETRY, TNPTRY 




BEQ 


1$ 




INC 


TNPTRY 




BR 


READS 


1$: 


MOV 


RECTNP.R3 




BMI 


2$ 




TST 


RECOV 




BEQ 


3$ 




CALL 


ERRHND 


3S: 


CLR 


TNPTRY 




DEC 


RECTNP 




BR 


READS 


2$: 








INC 


R5 




CMP 


FCTCPY.R5 




BEQ 


RFTL 




NOV 


#RCTFNT,R3 




CALL 


DADD 




CLR 


TNPTRY 




NOV 


RECOV, RECTNP 




BR 


RCL 


102$: 






RCD: 


CLR 


TNPTRY 




NOV 


RECOV, RECTNP 




TS^ 


R5 




BEw 


RLD 




NOV 


«RCTFNT,R3 




CALL 


DSUB 




CALL 


CS 




NOV 


fURBLK,RO 




NOV 


#WRCN0,R3 




NOV 


CURTRK,R2 




BIS 


R2,R3 




NOV 


R3,RU.CND(R0) 




NOV 


#RCTBUF,R3 




NOV 


R3,RU.BUF(R0) 




NOV 


(R4),R3 




NOV 


R3,RU.L0U(R0) 




NOV 


1(R4),R3 




ADD 


ST.LBN,R3 




MOV 


R3,Ry.HI(R0) 




NOV 


«HSLIN-1,R3 




NOV 


R3,RU.DUN(R0) 


URIT10: 


MOV 


HPREA,R3 




MOV 


DPREA,R4 




MOV 


UNIT,R2 




NOV 


#URBLK,R0 



POINT TO BUFFER 
SECTOR SIZE IN WORDS 
COMPUTE EDC 
WHAT NODE ARE WE IN 
IF CLEAR THEN 512 
O.K. ? 

YUP - CONSIDER GOOD 
NOPE - RETRY 
O.K. ? 

YUP - CONSIDER GOOD 
MAX ? 

YES - TRY SOME RECOVERY 
INC RETRY COUNT 
DO RETRY 

GET CURRENT ERROR RECOVERY LEVEL 

IF NEGATIVE THEN FRIED 

IS THERE ONLY RECOVERY LEVEL 0 ? 

YES - NO NEED TO ISSUE IT > JUST RETRY 

TRY RECOVERY 

FOR INIT 

DECRCNENT IT 

RETRY 

INCRENENT BAD COUNTER 

ALL BAD ? 

YUP - ALL OVER 

SIZE OF TABLE - R4 -> BLOCK NUMBER 
ADD TO POINT TO NEXT COPY 
RESET RETRY LEVEL 
;DITTO RECOVERY LEVELS 
; BRANCH BACK 

FOR RESET 

GET RECOVERY LEVELS 
ANY ERRORS ? 
NO - EXIT 
;SIZE OF TABLE 
GET BACK TO PREVIOUS COPY 
CONVERT AND SEEK 
;POINT TO CONNAND BLOCK 
GET WRITE CONNAND 
iGET CURRENT TRACK 
SET TRACK FOR WRITE 
STORE IN CONNAND BLOCK 
POINT TO BUFFER 
STICK IN CONNAND BLOCK 
GET LOU ORDER HEADER 
STORE IN WRITE BLOCK 
;6ET HIGH ORDER 
ADD STARTING LBN BITS 
STORE IN WRITE BLOCK 
GET OUNNY SDI POINTER 
POINT IN CONNAND BLOCK 
GET HEADER PREAMBLE 
GET DATA PREANBLE 
GET PORT NUNBER FOR SIP 
MAKE SURE POINTING AT BLOCK 



B 13 
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SEQ 157 



115 006070 

116 006072 

117 006073 

118 006075 

119 006076 

120 006077 

121 006101 

122 00610A 

123 006106 

124 006110 

125 006112 

126 0061 U 

127 006116 

128 006120 

129 006122 

130 006124 

131 006126 

132 006130 

133 006132 

134 006132 

135 006133 

136 006136 

137 006140 

138 006146 

139 006150 

140 006151 

141 006153 



101207 100000 
060012 

104302 002171 
060003 
115001 

106300 002165 002167 

115400 002167 

104303 002170 
115000 002166 



114000 002167 
117400 002170 



117405 

104300 002166 002170 



104012 

104201 000016 



1$: 

3$: 
2$: 

RLD: 
RFTL: 



BIS 


#BIT15,R0 


XFC 


SIP 


NOV 


SECSIZ,R2 


XFC 


WRITE 


V #k V 

TST 


Ri 


BEQ 


2% 


CMP 


RETRY,TflPTRY 


BEQ 




INC 


TMBTEfeW 

mrlRT 


BR 


WRITlO 


Mill 1 

MOV 


RECTNP,R3 


BMI 


2$ 


TST 


RECOV 


BEQ 


9# 
i% 


CALL 


ERRHND 


CLR 


mPTRT 


DEC 


RECTNP 


BR 


URIT10 


DEC 


R5 




ocrnu DcrTMD 
KCIUV #NCW 1 nr 


BR 


RCD 


POPA 




RETURN 




NOV 


R1,R2 


NOV 


«14.,R1 


CALL 


ERRNNT 



SET NO REVECTORING 

WAIT FOR SECTOR PULSE 

SECTOR SIZE IN WORDS 

WRITE SECTOR 

ANY ERROR ? 

NO - SKIP RETRY 

NAX ? 

YES - TRY SONE RECOVERY 
INC RETRY COUNT 
DO RETRY 

GET CURRENT ERROR RECOVERY LEVEL 

IF NEGATIVE THEN FRIED 

IS THERE ONLY RECOVERY LEVEL 0 ? 

YES - NO NEED TO ISSUE IT - JUST RETR" 

TRY RECOVERY 

FOR INIT 

DECRENEN1 IT 

RETRY 

.-DERENENT COUNTER 
:GET RECOVERY LEVELS 
;SEE IF ANY NORE TO DO 



ALL DONE 
XFC ERROR CODE 
RCT READ ERROR 
ERROR RETURN 
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SEQ 156 



1 



006155 



4 
5 
6 
7 
8 
9 

10 0040U 

11 004017 

12 004021 

13 004023 

14 004025 



.S8TTL FINAL CHEC( OVERLAY 
DNOVLY H2, START 

DO CHECK OF: 



(H2> 



104200 000066 001636 FINCHK: 



MOV 

CALL 

CALL 

CALL 

RETURN 



FCT 
RCT 

CORRECT HEAD ADDRESSING 

#H2,CUR0VL 
VERHD 
FCTCK 
RCTCK 



MAKE THIS THE CURRENT OVERLAY 
VERIFY ALL HEADS ACCESSIBLE 
VERIFY FCT 
VERIFY RCT 



U0AF52 - UDA-52 FORMATTCR OHACR X04.01 23-AUG-82 13:U 
FINAL CHECK OVERLAY (H2) 



1 

2 










; 
; 


VERIF 


3 
4 


004027 


114000 


001743 




• 

FCTCK: 


CLR 


5 


004031 


115400 


001745 






INC 


6 


004033 


104200 


011607 


001740 




NOV 


7 


004036 


104201 


000017 






nov 


8 


004040 










CALL 


9 


004042 


104205 


011607 


001703 




NOV 


10 


004044 


102200 


020000 




BIT 


11 


004047 










BNE 


12 


004051 


104203 


126736 






NOV 


13 


004053 










BR 


U 


004055 


104203 


074161 




U: 


NOV 


15 


004057 


100153 






2$: 


NOV 


16 


004060 


104050 


001740 






NOV 


17 


004062 


104201 


000030 






NOV 


18 


004064 










CALL 


19 


004066 


114000 


001743 


001573 




CLR 


20 


004070 


104300 


002011 




NOV 


21 


004073 


104300 


002011 


001567 




NOV 


22 


004076 


114000 


001572 






CLR 


23 


004100 


114000 


001566 






CLR 


24 


004102 


104203 


001525 






NOV 


25 


004104 


104207 


002110 






NOV 


26 


004106 


104632 


000000 






NOV 


27 


004110 


100672 


000000 






NOV 


28 


004112 


104632 


000001 






NOV 


29 


004114 


100672 


000001 






NOV 


30 


004116 


104303 


001612 






NOV 


31 


004120 


100673 


000004 






NOV 


32 


004122 


114005 






FCTCLP: 


CLR 


33 


004123 


104050 


001732 






NOV 


34 


004125 


104204 


001410 




FCTCL1: 


NOV 


35 


004127 


104300 


001566 


001410 




NOV 


36 


004132 


104300 


001567 


001411 




NOV 


37 


004135 


107300 


002011 


001411 




SUB 


38 


004140 










CALL 


39 


004142 


104207 


001373 






NOV 


40 


004144 


104203 


013400 






NOV 


41 


004146 


104302 


001 565 






NOV 


42 


004150 


101023 








BIS 


43 


004151 


100673 


000005 






NOV 


44 


004153 


104203 


011607 






NOV 


45 


004155 


100673 


000002 






NOV 


46 


004157 


104303 


001566 






NOV 


47 


004161 


100673 


000003 






NOV 


48 


004163 


104303 


001567 






NOV 


49 


004165 


101203 


120000 






BIS 


50 


004167 


100673 


000004 






NOV 


51 


004171 


104203 


001400 






NOV 


52 


004173 


100673 


000006 




READ9: 


NOV 


53 


004175 


104207 


001373 




NOV 


54 


004177 


104203 


100000 






NOV 


55 


004201 


104302 


001412 






NOV 


56 


004203 


100673 


000000 






NOV 


57 


004205 


101207 


100000 






BIS 
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SEQ 159 



FCT 



FCTCNT 
FCTNPO 

«PRNBUF,BUFPNT 

«F6.R1 

PAGE 

#PRHBUF,R5 

»NO0E,FLAG1 

1$ 

fN512,R3 

2% 

#N576.R3 

R3,(R5) 

R5.BUFPNT 

fF9,R1 

PAGE 

FCTCNT 

ST.XBN,CURXBN«1 

ST.XBN.CURBN^I 

CURXBN 

CURBN 

»SCR,R3 

#CONBLK.RO 

CYLBN(R3),R2 

R2,V1(R0) 

CrLBN«1(R3),R2 

R2.VUKR0) 

SECT12«R3 

R3,V3(R0) 

R5 

R5,NEXT1 

#TENP,R4 

CURBN* TENP 

CURBN^l.TENP^I 

ST.XBN.TENP^I 

CS1 

#RDBLK,R0 
»RWCND,R3 

CURTRK«R2 
R2,R3 

R3,RU.CN0(R0) 

fPRNBUF,R3 

R3«RW.ByF(R0) 

CURBN,R3 

R3«RU.L0U(R0) 

CURBN«nR3 

fHD.XBN,R3 

R3,RU.HI(R0) 

«HSLIN-1,R3 

R3»RU.DUH(R0) 

»RDBLK,R0 

#RDCND.R3 

UNIT,R2 

R3,RU.STAT(R0) 

»BIT15,R0 



;FOR IMIT 

;S0 CHECK THE NULL BLOCK ALSO 

:POIN TO BUFFER 

;FCT READ OVERLAY 

;READ FIRST BLOCK 

;POINT TO BUFFER 

;UHAT NODE 

:IF SET THEN 576 

;6ET NODE INDICATOR FOR 512 

;SKIP 576 SETUP 

;6ET NODE INDICATOR FOR 576 

; SIGNAL DONE FORNAT 

; STORE BUFFER POINTER 

;FCT URITE OVERLAY 

;WRITE IT OU^ 

;FOR FCTCNT INIT 

;ALSO INITIALIZE XBN COUNTER 

.-HIGH ORDER 

;0U ORDER ALWAYS 0 

:AND BLOCK NUNBER 

.•POINT TO CHARACTERISTICS 

.-POINT TO CONVERT BLOCK 

;GET LOU ORDER CYLINDER 

.STORE IT 

;6ET HIGH ORDER 

* STORE IT 

•GET SECTORS/TRACK (512) 
.•STORE IT 

.•CLEAR WRITE ERROR COUNT 
; CLEAR <tEPEAT COUNT 
.POINT TO BLOCK 
;FOR CONVERSION 
.DITTO 

.•SUBTRACT STARTING XBN BITS 
.CONVERT AND SEEK 
.•POINT TO CONNAND BLOCK 
.-GET READ CORMAND 
.-GET CURRENT TRACK 
.SET TRACK FOR URITE 
.STORE IN CONNAND BLOCK 
.-POINT TO BUFFER 
.•STICK IN CONNAND BLOCK 
.-GET LOU ORDER HEADER 
.-STORE IN URITE BLOCK 
;GET HIGH ORDE^) 
.SET HEADER 
.-STORE IN URITE BLOCK 
.'GET DUNNY SDI POINTER 
.•POINT IN CONNAND BLOCK 
.•NAKE SURE POINTING AT BLOCK 
.GET READ CONNAND 
.-GET PORT NUNBER FOR SIP 
; STORE IT 

.-SET NO REVECTORING 
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)o 




AAAA1 9 








AT C 


CO 
3T 


U04<10 


« ft/ OAO 








HAH 

nuv 


i.f\ 
OU 




AAAAA9 








vc r 


61 












TCT 














ONC 


it* 


nn/.oi A 
UU*»^1o 


1 AZ.A7'S 
1U*»0r 3 


AAAAA1 

UUUUU1 






MAU 

nuv 


il 

o*» 


1 UccU3 


A inn A A 
U1UUUU 






BIT 


O J 


nA/,393 












oo 




ini9A/i 


A1 AAAA 
Ml WW 


nni X7L 

UUI3rH 




















OO 


UU*»c3 1 


1 1 CAA1 








T^T 


Ot 












ONC 


7A 
'U 






A1 1 AA7 




ini<* 

lUIVi 


MAU 

nuv 


r 1 






AAAAAA 






HAU 

nuv 


75 
f C 


nA/,o/,n 










TAI 1 






irtAAOT 

IUOOc3 


AAAAAA 






tnr 


7/, 












DCO 


7C 
f 3 


nA/.3£A 
UIMchO 


IU03Uv 


AA3 C 


AAJI A7 

UUc 1 0 r 


1 AA*. 


mo 


f 0 














77 


nAA9C^ 


1 1 unn 


AA91A7 
UUc 1 Or 








7* 

f O 












BD 
ON 


7Q 


nA/.9C7 


1 AA YA1 


AA91 7A 






MAU 

nuv 


fin 


nAX9A1 
UUhcOI 










BHT 

oni 


fll 


OA/. OA'S 


113UUU 


AA91 AA 
UUc 1 00 






TCT 


09 

oe 


AAA^AC 
UVtcOj 










BFO 

sew 


03 


fW,9A7 
UwtOf 








3«> 




o*» 


nA/,971 


1 1 AAAA 

1 ihUUv 


AA91 A7 
UUc 1 Or 




n o 




Uwcf 3 


1 1 7AAA 


nn9i 7n 

UUc 1 r U 






AFT 


OO 


fift/ 37C 










BD 
On 


ft7 

Of 


WtCf f 








IUc»S 




OO 


nAA977 








c*> 




Ot 


n<V.977 
UU*icf f 


1 1 CAAC 
1 1 3hU3 








tuc 




nnAXnn 

l/U*» J\J\J 


1 1 unn 


nni 7^? 

UU 1 r jC 




TC9 • 


f Mr 


01 




1 UOcU3 


UUvVUc 






mp 


09 

▼c 












BCO 


0^ 


UU*i 3UO 




nni CAA 

wU 1 jOO 






mu 
nuv 


0^ 


OAA^in 
UU*I J Iv 




nni 7?s 

UU 1 r C3 








QC 














OA 
▼O 


nAA^i^ 


11 Annn 


nn? 1A7 

vvc lOr 






ri 0 


07 


wViJ 1 0 


inASAA 


nn7i<M 


on?i 70 




MOV 


OA 

TO 


OA^^^I 


inA''(nn 

lUOJvU 


001 7'! 
W 1 r ^ 1 


0017 V 
WW 1 ' JC 




TUP 


00 












one 














on 


ini 


UU*l33v 


in99nn 


wcvvv 


nni 7n9 

UU 1 r Uc 


r 1 1 LKv • 


BIT 




004333 










one 


inx 


nnA?^c 


nA(Vt99 








vrr 


1 


/VVZ7XA 
UVhjjO 


1 i3*»UU 


nni 7AT 

UU 1 r *»3 






tkir 


inc 












UUDIKL 


inA 

lUO 




iU'*3UU 


001 S7? 
Vw 1 3 r c 


nni CAA 

UU 1 300 




MAU 

nuv 


107 


004351 


104300 


001573 


001567 




MOV 


108 


004354 
0043i7 


106300 


001745 


001743 




C«P 


109 










BnE 


110 


004361 








4$: 


RETURN 


111 


004363 


104201 


000011 




FCTCKE: 


MOV 


112 


004365 


104302 


001743 






nov 


113 


004367 










CALL 
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SEQ 160 



C IB 


LIX / T CAA CCrTAfi fil II CC 

mhll FOR ScClUR rULsC 




ccrTAD .t7c LinafkC 
SctlUR Silt IN WORDS 


ac Aft 


BCAA CC^TAD 

REAP »CtTUR 


HI i 


ANT CRRvR ? 


1 AAC 

1UU* J 


VCC _ TBV BcrnucDv 
TO iRT RCLUVCKT 


DU CD1 /DA\ DT 

KW.CNI IKU/ «K3 a 


<:CT CTATlIC UADfk 
UC 1 dlAlUa WUKP 


MCtCC OX 

VCLLr ,H3 , 


Ktf CDDAD 9 
CCl CKNUN . 


1 A1 1 

lU 1 9 i 


NUrt VcRIrT CPt 


MCttt BABl ir^DU CD1 


fl CAD err CDDAD BIT 
LLeWl etc CNRUK Dl 1 




TADDCrT etc 


Dl 

If 1 a 


> TFCT PI Ati 

1 c a I r LAO 


inn< 

lUU* 


• iiiirADDerTAai e 

UNLUlf nCC 1 ADLC 




• DATftIT TA BllCCCB 

rUlni lu DUrrcR 


iiccrcK DA 


•cerTAD Ct7C fU UADAC 
aCvlUK 91 AC IM HUNPa 


rcnr 




Bu cnrfB9> OX 

NH.CUL InC / #N3 


• A V 9 


lUc* 


, TUr " LUnalWCIf UUUU 


DCTDV THDTDV 


• IIAV 9 


1 • 


>vcc — TDv crMie dctaucdv 

PTea INT ome nCLUVCKT 


TMPTfiV 

1 nr 1 n T 


link ncini cuuni 




• ftn orTDv 

) PU NLINT 


DCrTHD ox 

Ret IP1r,n3 


• ACT niBBCtlT CBDAD PCmiiCBV 1 CUCI 
iW.l LUNNcnl CKRUK HCIUVCRT LCVCL 


YES 


'IF NEGATIVE THEN FRIED 


RECOV 


;IS THERE ONLY RECOVERY LEVEL 0 ? 


3S 


; YES - NO NEED TO ISSUE IT - JUST RETRY 


ERRHND 


; TRY RECOVERY 


THPTRY 


;FOR INIT 


RECTMP 


; DECREMENT IT 


READ9 


.RETRY 



R5 

NEXT1 

f2,R5 

FCTCKD 

«CURBN,R4 

#FCTF«T.R3 

OADD 

TBPTRY 

RECOV^RECTKP 

FCTCPY.NEXTl 

FCTCL1 

FCTCKE 

#SSTGS,FLAG 

4S 

UPDATE 

FCTCNT 

CURXBN 

CURXBN^CURBN 

CURXBN^UCURBN^I 

FCTNPD,FCTCMT 

FCTCLP 

«9..R1 
FCTCNT. R2 
ERRNNT 



NO - INCREMENT COUNTER 

INCREMENT IT 

FOUND 2 GOOD ONES ? 

YUP - GO TO NEXT BLOCK 

FOR ADO 

FOR ADD 

POINT TO NEXT COPY 
RESET RETRY LEVEL 
DITTO RECOVERY LEVELS 
DONE THIS SECTOR ? 
NO - WRITE NEXT FCT COPY 
2 NOT GOOD - TROUBLE 
BEST GUESS ? 

YUP - ONLY CHECK FIRST BLOCK 

LET HOST KNOW STILL ALIVE 

INCREMENT IT 

INCREMENT IT 

GET LOW ORDER 

GET HIGH ORDER 

DONE ? 

NOPE - DO NEXT SECTOR 

.'SIGNAL ERROR 
.'BLOCK FAILED ON 
.'ERROR RETURN 
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1 
2 












VERI 


3 
A 


9^4 

004371 


115400 


A A 4 9/^ 

001746 




• 

RCTCK: 


IMC 


5 


004373 


4 A J 9 AA 

104300 


A A 4^4/ 

001616 


AA4 94 ^ 

001712 




NOV 


6 


004376 


4 A< 9 AA 

104300 


AA4 ^49 

001617 


AA4 94 T 

001713 




BOv 


7 


^ A4 

004401 


4 A# ^A9 

104203 


AA^4 ^ A 

002160 






P10V 


8 


AA/ M AY 

004403 


4 A^ ^A# 

104204 


AA4 94 ^ 

001712 






nov 


9 


AA^ # Af 

004405 










/> A 1 ■ 

CALL 


10 


004407 


4 A# 9AA 

104300 


AA4 94 ^ 

001 71 2 


AA4 ^ 

001 566 




HOv 


n 


004412 


4 A^ YAA 

104300 


AA4 94 ^ 

001712 


A A 4 P 9A 

001570 




NOV 


i 


004415 


4 A^ YAA 

104300 


AA4 Y4 T 

001713 


AA4 CX9 

001 567 




flOV 


13 


004420 


4 A^ VAA 

104300 


AA4 94 9 

001713 


AA<t C74 

001571 




NOV 


4 ^ 


AA4 J ^9 

004423 


4 A4 '^AA 

104200 


AAAAA4 

000001 


AA'>4 ^ / 

002164 




NOV 


15 


AA^ ^ 

004426 


4 4/ AAf 

114005 






RCTCLP: 


CLR 


4 ^ 

16 


004427 


4 A/ AC A 


AA4 

001732 






NOV 


4 9 


004431 


4 A/ ^ A Y 


AA4 C^C 

001 525 




A^ T^l 4 . 

RCTCLl : 


NOV 


IS 


004453 


4 A^^AA 

102200 


A*) AAA A 

020000 


AA4 7A7 

001 703 




A ff T 

BIT 


4 n 

19 


AA/ / 9X 

004436 










BNE 


20 


004440 


4 A/ X. 

104632 


AAAA4 4 

000011 






NCV 


^4 

21 


004442 










AA 

BR 


22 


AAJ t t t 

004444 


4 A J ^9^ 

104632 


AAAA4 ^ 

000015 




1$: 


NOV 


23 


004446 


4 A9^A'% 

103202 


4 99/ AA 

1 77400 




2$: 


BIC 


2A 


AA^ # PA 

004450 


4 A/ ^A9 

104207 


AA^4 4 A 

002110 






NOV 


25 


AAJ / 

004452 


4 AA^ 9^ 

100672 


A A AAA/ 

000004 






MAX 


26 


AA^ / f / 

004454 


4 A/ ^ 

704632 


AAAAA4 

000001 






flOV 


27 


AA^ / 

004456 


103202 


AA9999 

007777 






BIC 


28 


AA^ S ^ A 

004460 


4 AA^ 9^ 

100672 


AAAAA4 

000001 






NOV 


29 


004462 


4 4/ AA^ 








CLR 


30 


004463 


4 AAX 

100672 


AAAAAA 

000000 






NOV 


94 

5i 


AA/ / X C 

004465 


4 A/ ^A/ 

104204 


AA4 Cd.d. 

001 566 






NOV 


32 


AA/ / X 7 

004467 










CALL 


33 


AA/ / 71 

004471 


1 nj OA7 

104207 


AA1 171 

001373 






MAU 


34 


AA^ / 7V 

004473 


4 A/ ^AT 

104203 


A1 T/ AA 

013400 






PlOV 


35 


AA^ / 7C 

004475 


1 A/ 7A^ 

104302 


AA1 CAC 

001565 






NOV 


36 


AAy / 77 

004477 


1 A1 A^V 

1 01 023 








BIS 


37 


AA/ CAA 

004500 


1 AAX7T 

100673 


AAA/\AC 

000005 






NOV 


3o 


004)02 


104203 


A1 1iLA7 

01 lOUr 






NOV 


3t 


004504 


100673 


000002 






NOV 


40 


AA/ CAX 

004506 


1 A/ VA7 

104303 


AA1 CX^ 

001 566 






nov 


41 


004310 


1 AAA7V 

100673 


000003 








42 


AAZC1 9 

004512 


1043U3 


001567 






iiA%i 

nov 


43 


004514 


105303 


002007 






AAA 

ADD 


44 


AA/ CI ^ 

004516 


1 Al ^AY 

101203 


AAAAAA 

000000 






A ff ^ 

BIS 


45 


AAy OA 

004520 


4 AAX7T 

100673 


AAAAA/ 

000004 






NOV 


46 


AA/.C99 

004522 


1 m. 9AT 
104203 


AA1 / AA 
001400 






NOV 


47 


004524 


100673 


AAAAAA 
000006 






NOV 


40 


AA/ 

004526 


1 A/ ^A7 

104207 


AA1 V7Y 

001373 






MAW 

NOV 


49 


AA/ CVA 

004530 


1 1SA OAY 

104203 


1 AAAAA 
100000 






NOV 


50 


004532 


1 A/ YAO 

104302 


AA1 / 1 ^ 

001412 






NOV 


3 i 




inni7^ 

1 W 1 ' J 










52 


004535 


101207 


100000 






BIS 


53 


004537 


060012 








XFC 


54 


004540 


104302 


002171 






NOV 


55 


004542 


060002 








XFC 


56 


004543 


115001 








TST 


57 


004544 










BNE 
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SEQ 161 



RCT 



RCTLBN 

LBNLBN.HOLD 

LBNLBN«^1 ,H0LD«1 

#T0TRCT-R3 

#H0LD,R4 

DSUB 

H0LD,CURBN 

HOLD.CURLBN 

H0LD4-1,CURBN«1 

HOLD^nCURLBN^I 

f1, COUNT 

R5 

R5«NEXT1 
#SCR«R3 
#N0DE,FLAG1 
U 

LBNT12(R3),R2 
2S 

LBNT76(R3),R2 

«HI8YTE,R2 

fCONBLK.RO 

R2.V3(r6) 

STCYL(R3).R2 

«LG,R2 

R2,VU1(R0) 

R2 

R2«V1(R0) 
#CURBN.R4 

CS1 

#RDBLK,RO 
#RUCND,R3 
CURTRK,R2 
R2 R3 

RSlRU.CmXRO) 

#PRNBUF.R3 

R3«RW.BUF(R0) 

CURBN,R3 

R3,RU.L0U{R0) 

CURBN^1,R3 

ST.LBN,R3 

#HD.LBN,R3 

R3.RU.NI(R0) 

#HSLIN-1,R3 

R3«RU.DUII(R0) 

#ROBLK,RQ 

#R0CN0,R3 

UNIT,R2 

R3,(R0) 

#flIT15,R0 

SIP 

SECSIZ,R2 

READ 

R1 

IOCS 



CHECK NON>PAD PLUS NULL BLOCK 
GET LOU ORDER COUNT OF LBN*S 
GET HIGH ORDER 
FOR SUBTRACT 
DITTO 

GET STARTING RCT LBN 

GET STARTING RCT BLOCK NUMBER 

ALSO SAVE 

GET HIGH ORDER 

AND SAVE 

CLEAR ERROR COUNTER 

INIT COPY COUNT 

POINT TO CHARACTERISTICS 

WHAT NODE 

IF SET THEN 576 

GET LBN/TRACK FOR 512 

SKIP 576 SETUP 

GET LBN/TRACK FOR 576 

CLEAR HIGH BYTE 

POINT TO CONVERT BLOCK 

FOR CONVERT 

STARTING CLYLINDER 

CLEAR REST OF UORD 

STORE 

FOR STORE 

LOW ORDER ALWAYS ZERO 
FOR CONVERT 
CONVERT AND SEEK 
POINT TO CONNAND BLOCK 
GET READ CONNAND 
GET CURRENT TRACK 
SET TRACK FOR WRITE 
STORE IN CONMAND BLOCK 
POINT TO BUFFER 
STICK IN COftlAND BLOCK 
GET LOW ORDER HEADER 
STORE IN WRITE BLOCK 
GET HIGH ORDER 
ADD STARTING LBN BITS 
SET HEADER 

STORE IN WRITE BLOCK 

GET DUNNY SDI POINTER 

POINT IN CONNAND BLOCK 

MAKE SURE POINTING AT BLOCK 

GET STATUS WORD 

GET PORT NUNBER FOR SIP 

STORE IT 

SET NO REVECTORING 

WAIT FOR SECTOR PULSE 

SECTOR SIZE IN WORDS 

WRITE SECTOR 

ANY ERROR ? 

YES - TRY RECOVERY 



6 IS 
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SEQ 162 



58 


004546 


104673 


000001 




59 


004550 


102203 


010000 




60 


004552 






001374 


61 


004554 


103200 


010000 


62 


004557 








65 


004561 


115001 






6A 


004562 




011607 




65 


004564 


104202 




66 


004566 


104307 


002171 




67 


004570 








68 


004572 


102200 


020000 


001703 


69 


004575 








70 


004577 


106623 


000440 




71 


004601 








72 


004603 








73 


004605 


106623 


000400 




7A 


004607 








75 


004611 


106300 


002165 


002167 


76 


004614 








77 


004616 


1 1 5400 


002167 




78 


004620 








79 


004622 


104303 


002170 




80 


004624 








81 


004626 


1 1 5000 


002166 




82 


004630 








83 


004632 








84 


004634 


114000 


002167 




85 


004636 


117400 


002170 




86 


004640 








87 


004642 








88 


004642 








89 


004642 


115405 






90 


004643 


115400 


001732 




91 


004645 


114000 


002167 




92 


004647 


104300 


002166 


002170 


93 


004652 


106205 


000002 




94 


004654 








95 


004656 


104204 


001566 




96 


004660 


104203 


001727 




97 


004662 








98 


004664 


114000 


002167 




99 


004666 


104300 


002166 


002170 


100 


004671 


106300 


001731 


001732 


101 


004674 








102 


004676 








103 


004700 


060022 






104 


004701 


115400 


002164 




105 


004703 








106 


004711 


104300 


001570 


001566 


107 


004^14 


104300 


001 


AA1 

001 96r 


108 


004717 


106300 


001746 


002164 


109 


004722 








110 


004724 








111 


004726 
004730 


104201 


000013 




112 


104302 


002164 




113 


004732 









101$: 



4$: 
100$: 

1$: 
3$: 



102$: 
2$: 

RCTN60: 



RCTCKOi 



RCTCKE: 



nov 

BIT 

BEQ 

BIC 

CALL 

TST 

BNE 

NOV 

NOV 

CALL 

BIT 

BEQ 

CNP 

BEQ 

BR 

CMP 

BEQ 

CNP 

BEQ 

INC 

BR 

NOV 

BNI 

TST 

BEQ 

CALL 

CLR 

DEC 

BR 



INC 

INC 

CLR 

NOV 

CNP 

BEQ 

NOV 

NOV 

CALL 

CLR 

NOV 

CNP 

BNE 

BR 

XFC 

INC 

OUBINC 

NOV 

NOV 

CNP 

BNE 

RETURN 
NOV 
NOV 
CALL 



RU.ER1(R0),R3 

«ECCF,RS 

101$ 

«ECCF.RDBLKtRU.ER1 

ECCCK 
R1 

100$ 

«PRNBUF,R2 

SECSIZ«RO 

CEDC 

«N00E.FLAG1 
4$ 

RU.E76(R2).R3 

102$ 

100$ 

RU.EDC(R2)«R3 
102$ 

RETRY, TNPTRY 
1$ 

TNPTRY 

READ10 

RECTNP,R3 

RCTNGD 

RECOV 

3$ 

ERRHND 
TNPTRY 
RECTNP 
REA010 



R5 

NEXT1 
TNPTRY 

RECOV, RECTNP 

«2,R5 

RCTCKO 

#CURBN,R4 

fRCTFNT.RS 

DADO 

TNPTRY 

RECOV, RECTNP 

FCTCPV,NEXT1 

RCTCL1 

RCTCKE 

UPDATE 

COUNT 

CURLBN 

CURLBN,CURBN 

CURLBN«1,CURBNt1 

RCTLBN, COUNT 

RCTCLP 



:GET STATUS WORD 

;ECC ERROR ? 

;10PE - VERIFY EDC 

.-CLEAR ECC ERROR BIT 

.CORRECT ECC 

;TEST FLAG 

.•UNCORRECTABLE 

;POINT TO BUFFER 

.'SECTOR SIZE IN WORDS 

;CONPUTE EDC 

.-WHAT NODE ARE WE IN 

;IF CLEAR THEN 512 

• OK 9 

■YUP'-'CONSIDER GOOD 

;NOPE - RETRY 

• OK 7 

;YUP'-' CONSIDER GOOD 
*NAX "* 

•YES - TRY SONE RECOVERY 
;INC RETRY CJUNT 
;D0 RETRY 

:GET CURRENT ERROR RECOVERY LEVEL 

;IF NEGATIVE SKIP GOOD INCRENENT 

:IS THERE ONLY RECOVERY LEVEL 0 ? 

;YES - NO NEED TO ISSUE IT - JUST RETRY 

;T (Y RECOVERY 

;FOR INIT 

.DECRENENT IT 

.•RETRY 



;YUP - INCRENENT COUNTER 
.•INCRENENT IT 
.FOR RESET 

.GET RECOVERY LEVELS 
.-FOUND 2 GOOD ONES ? 
:YUP - GO TO NEXT BLOCK 
:FOR ADD 
:FOR ADD 

.-POINT TO NEXT COPY 
.•RESET RETRY LEVEL 
.•DITTO RECOVERY LEVELS 
.•DONE THIS SECTOR ? 
;N0 - READ NEXT FCT COPY 
;2 NOT GOOD - TROUBLE 
:LET HOST KNOW STILL ALIVE 
.INCRENENT IT 
.•INCRENENT IT 
.GET LOU ORDER 
;GET HIGH ORDER 
.DONE ? 

:NOPE - DO NEXT SECTOR 



#11.. R1 

C0UNT,R2 

ERRHNT 



:SET ERROR CODE 
.•RCT BLOCK FAILED ON 
.-ERROR RETURN 
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1 
2 
3 












VERI 


1* 


004734 


114000 


002136 




VERHO: 


CLR 


5 


004736 


114000 


001572 






CLR 


6 


004740 


114000 


001573 






CLR 


7 


004742 


114000 


001574 






CLR 


8 


004744 


114000 


001575 






CLR 


9 


004746 


104200 


014631 


002157 




MOV 


10 


004751 


104207 


001525 






NOV 


11 


004753 


104670 


000002 


002147 




NOV 


12 


004756 


103200 


177400 


002147 




Bit 


13 


004761 


114000 


002146 






CLR 


1A 


004763 


104207 


001525 






NOV 


15 


004765 


104673 


000003 






NOV 


16 


004767 


103203 


1 77400 






BIC 


17 


004771 


104030 


0021 50 






NOV 


18 


004773 


114000 


001 565 






CLR 


19 


004775 


104673 


000000 






NOV 


20 


0D4777 


104030 


001604 






NOV 


21 


005001 


104673 


000001 






NOV 


22 


005003 


104030 


001605 






NOV 


23 


005005 


104300 


001612 


0021 37 




flOV 


24 


005010 


104300 


001604 


001551 


4$: 


NOV 


25 


005013 


104300 


001605 


001552 




MV 


26 


005016 


104300 


002146 


AA4 f ^9 

001553 




NOV 


27 


005021 










CALL 


28 


005023 


4 4 f AA4 

115001 








TST 


29 


005024 










BNI 


30 


005026 


104207 


AA4 

001373 




AA 

2$: 


NOV 


31 


005030 


4 A 4 ^ A9 

104203 


A4 4 d. A9 

011607 






PK)V 


32 


005032 


4 AA^ *W 

100673 


A A AAA A 

000002 






NOV 


33 


005034 


104303 


AA4 r 9 A 

001572 






NOV 


34 


005036 


4 AA^ 

100673 


AAAAA9 

000003 






NOV 


35 


AA^ A # A 

005040 


4 A < 9A9 

104303 


AA4 P 99 

001573 






flOV 


36 


005042 


105303 


AA'^A4 4 

002011 






ADD 


37 


AAPAy t 

005044 


4 A4 ^A9 

10120^ 


4 AAAAA 

120000 






BIS 


38 


AAPAJ A 

005046 


4 AA^ ^9 

100673 


AAAAA^ 

000004 






NOV 


39 


005050 


4 A# "^AT 

104203 


A4 9/ AA 

013400 




5S: 


NOV 


40 


005052 


4 A4 VA9 

101303 


AA4 C 

001565 






BIS 


41 


AAf Af t 

005054 


4 AA^ W 

100673 


AAA A AC 

000005 








42 


00505o 


4 A/ '>AV 

104203 


AA4 B AA 

001400 






MAt< 


43 


AAf A^ A 

005060 


100673 


AAAAA^ 

000006 






NOV 


44 


AAf A^ *\ 

005062 


4 A^ '^A^ 

104207 


4 A4 

101373 






NOV 


45 


AAf A^ M 

005064 


4 A^ 

104203 


4 AAAAA 

100000 






NOV 


46 


AAf A^ 

005066 


4 AA^ 9V 

100673 


aaAaaA 

000000 






MV 


47 


A A f A ^ A 

005070 


4 A/ TA'^ 

104302 


AA4 t A'S 

001412 






MAt< 


48 


AAf A^^ 

005072 


A^ AA4 ^ 

060012 








XFC 


49 


AA^ A^9 

005073 


4 A^ '^A^ 

104202 


AAA 4 AA 

000400 






NOV 


50 


AAf A^f 

005075 


aAa'^ 

060002 








XFC 


CI 


UU^Ur O 


1 OUUl 








TCT 


52 


005077 










BEG 


53 


005101 


102200 


010000 


001703 




BIT 


54 


005104 










BNE 


55 


005106 


ia;207 


001373 






NOV 


56 


005110 


104673 


000004 






NOV 


57 


005112 


103203 


170000 






BIC 



H 13 

22 PAGE 91 



SEQ 163 



ALL HEADS ARE ACCESSIBLE 

ERRCNT 

CURXBN 

CURXBN^I 

STASEC 

STASE01 

fBDLST.CURPNT 

fSCR.RO 

6RPCVL(R0),6RPCIliT 

«HIBYTE,6RPCNT 

CURGRP 

fSCR.RO 

TRKGRP(R0)«R3 

«HIBYTE,R3 

R3«TRKCNT 

CURTRK 

CYLBN(R0)*R3 

R3,CYLNUN 

CYLBN>1(R0),R3 

R3,CYLNUN>1 

SECT12,SECCNT 

CYLNUN.ISEEK^I 

CYLIiUNH.ISEEK*2 

CURGRP. I SEEK^3 

SEEK 

R1 

SKERR 

#RDBLK,RO 

fPRflBUF.R3 

R3,RW.BUF(R0) 

CURXBN, R3 

R3«RU.L0W(R0) 

CURXBN>1,R3 

ST.XBN,R3 

fHD.XBNfR3 

R3,RU.HI<R0) 

fRWCND.Rl 

CURTRK, RS 

R3,RU.CND(R0) 

fHSLIN-1,R3 

R3,RU.0UN(R0) 

«<BIT15!RDBLK>.R0 

fRDCM>,R3 

R3,RW.STAT(R0) 

UNIT,R2 

SIP 

fSECSl6,R2 

READ 

R1 

3S 

«BDTST,FLAG1 
IS 

«ROBLK,RO 

Ry.HI(R0).R3 

«HD.CLR,R3 



CLEAR ERROR COUNT 

CLEAR SECTOR NUNBER LOU 

CLEAR SECTOR NUNBER HIGH 

CLEAR STARTING SECTOR LOV 

CLEAR STARTING SECTOR HIGH 

STORE POINTER TO BAD LIST 

POINT TO CHARACTERISTICS BLK 

LOAD GROUPS/CVL 

CLEAR OUT HIGH GARBAGE 

CLEAR GROUP NUMBER 

POINT TO CHARACTERISTICS BLOCK 

LOAD TRACKS/GROUP 

CLEAR OUT HIGH GARBAGE 

STORE IN COUNTER 

RESET CURRENT TRACK NUNBER 

GET STARTING XBN CYLINDER 

STORE IT 

GET »iIGH ORDER 

STORE IT 

LOAD SECTORS/TRACK (512) 

GET LO ORDER UORD OF CYLINDER NUNBER 

LOAD HIGH ORDER UORD OF CYL NUN 

LOAD GROUP NUNBER 

SEEK TO CURRENT CYL NUN 

ANY ERRORS ? 

YUP - QUIT 

POINT TO READ CQNHAND BLOCK 
BUFFER POINTER 
STORE IT 

GET LOU RODER BLOCK NUNBER 

STORE IN CONNAND BLOCK 

LOAD HIGH ORDER BLOCK NUNBER 

ADD STARTING XBN BITS 

SET IN HEADER CODE 

STORE IN CQNNAND BLOCK 

GET READ CONNAND 

SET IN TRACK NUNBER 

STORE IN COffMD BLOCK 

POINTER TO DUNRV SDI BLOCK 

STORE IT IN READ BLOCK 

NAKE SURE POINTING AT BLOCK 

RESET STATUS POINTER 

STORE IT BACK 

GET PORT NUNBER FOR SIP 

SYNCH UITH SECTOR/INDEX PULSE 

SECTOR SIZE IN WORDS 

READ 1 SECTOR 

ANY ERROR ? 

NO - THIS HEAD O.K. 

HAVE UE TESTED BAD HEADER CODE ? 

YUP - DON*T TRY AGAIN 

POINT TO READ CONTROL BLOCK 

GET HEADER UORD 

CLEAR HEADER 



I 13 

S60 16^ 
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S8 


005114 


101203 


110000 






BIS 


#HD.BAD,R3 


SET IN BAD HEADER CODE 


59 


005116 


100673 


000004 






NOV 


R3«RW.HI(R0) ; 


STORE IT BACK 


60 


005120 


101200 


010000 


001703 




BIS 


«BDTST,FLAG1 ; 


SET THAT WE TRIED BAD HEADER CODE 


61 


005123 










BR 


5$ 


AND TRY READ AGAIN 


62 


005125 


103200 


010000 


001703 


1$: 


BIC 


#BDTST,FLAG1 ; 


CLEAR BAD HEADER TESTED FLAG 


63 


005130 










DUBINC 


CURXBN 


INCREMENT CURRENT SECTOR 


64 


005136 


117400 


002137 






DEC 


SECCNT 


DECRENENT SECTOR/TRACK COUNT 


65 


005140 










BNE 


2$ 


TRY IT AGAIN WITH NEXT SECTOR 


66 


005142 


104307 


002157 






NOV 


CURPNT,RO ; 


POINTER TO INFO BLOCK 


67 


005144 


104303 


001574 






NOV 


STASEC,R3 


STORE STARTING SECTOR NUP1BER 


68 


005146 


100273 








NOV 


R3,(R0)* 


IN INFO BLOCK 


69 


005147 


104303 


001575 






NOV 


STASEC*1,R3 


GET HIGH ORDER 


70 


005151 
005"! 52 


100273 








NOV 


R3,(R0)* 


STORE IT 


71 


104303 


002146 






NOV 


CURGRH,R3 


GET CURRENT GROUP 


72 


005154 


100273 








NOV 


R3,(R0)* 


STORE IT 


73 


005155 


104303 


001 565 






NOV 


CURTRK, R3 
R3,(R0)* 


GET CURRENT TRACK 


74 


005157 


100273 








NOV 


•STORE IT 


75 


005160 


104070 


002157 






NOV 


RO.CURPNT 


STORE POINT BACK 


^6 


005162 


115400 


002136 






INC 


ERRCNT 


INCREP^NT ERROR COUNT 


77 


005164 


103200 


010000 


AA« **AV 

001 703 


3S: 


BIC 


#BDTST,FLAG1 


; CLEAR FLAG IN CASE IT WAS SET 


78 


005167 


115400 


001565 






INC 


CURTRK 


'DO NEXT TRACK 


79 


005171 


104300 


001612 


001410 




NOV 


SECT12,TENP 


;FOR ADD 


eo 


005174 


114000 


001411 






CLR 


TENP+1 


;DITTO 


81 


005176 


104203 


00141G 






NOV 


#TENP«R3 


;SET UP 


82 


005200 


104204 


001574 






NOV 


#STAScC«R4 


jOITTO 


83 


005202 










CALL 


DADD 


;GET NEW STARTING SECTOR 


84 


005204 


104300 


001574 


001572 




NOV 


STASEC, CURXBN 


rRESET CURRENT SECTOR 


85 


005207 


104300 


001575 


001573 




NOV 


sta<;ec*i,curxbn*i 


rRESET HIGH (MD5R 


86 


005212 


104300 


001612 


002137 




NOV 


SECT12, SECCNT 


;RESET SECTMS/TRACK 


87 


005215 


117400 


002150 






DEC 


TRKCNT 


; DECRENENT COUNT OF TRACKS 


88 


005217 










3NE 


2$ 


;IF NOT DONE - DO NEXT TRACK 


99 


005221 


060022 








XFC 


UPDATE 


;LET HOST KNOW WE*RE ALIVE 


90 


005222 


1 1 5400 


002146 






INC 


CURGRP 


;ELSE INCREMENT GROUP NUPBER 


91 


005224 


104207 


001525 






NOV 


#SCR,RO 


; POINT TO CHARACTERISTICS BLOCK 


92 


005226 


104673 


000003 






NOV 


TRK6RP(R0)»R3 


;LOAD TRACKS/GROUP 


93 


005230 


103203 


177400 






BIC 


fHIBYTE,R3 


Ma ^ A Ai 4U a a • ^a a M A A 

;CLEAR OUT HIGH GARBAGE 


94 


005232 


104030 


002150 






NOV 


R3« TRKCNT 
CURTRK 


; STORE IN COUNTER 


95 


005234 


114000 


AA« ^ M ^ 

001 565 






CLR 


;RESET TRACK NUPBER 


96 


005236 


117400 


002147 






DEC 


6RPCNT 


;DOfiK ALL GROUPS ? 


97 


005240 










BNE 


4S 


AAA AA ka^WV fi A Qa ■ JA 

;N0 ' DO NEXT GROUP 


98 


005242 


115000 


002136 






TST 


ERRCNT 


;ANY PROBLEpIS ? 


99 


005244 










BEQ 


15$ 


;N0PE ' FINISwD 


100 


005246 


104205 


0146i1 






NOV 


#8DLST,R5 


;POINT TO BAD LIST 


101 


005250 


104250 


001574 




14S: 


NOV 


(R5)4-,STASEC 


;GET STARTING SECTOR NUMBER 


102 


005252 


104250 


001575 






NOV 


(R5)*,STASEC*1 


;GET HIGH ORDER 


103 


005254 


104250 


002146 






NOV 


(R5)4-, CURGRP 


A^ V JlJfcJlJ aA AM AM%^ A 

;GET GROUP NUPBER 


104 


005256 


104250 


001565 






NOV 


(R5)^, CURTRK 


A^ V V A A Am am I^AA^ a 

;GET TRACK NUPBER 


105 


005260 


104203 


001525 






NOV 


fSCR,R3 


AAVAaV VA AaiAAAAVPAVAVtAf* 

;POINT TO CHARACTERISTICS 


106 


005262 


104670 


000021 


002143 




NOV 


XBNCYL(RO),CNTCVL 


A^ V AM aMA A A A9 M Aai M ff AaA A A^ 

;GET NUPBER OF X6N CYLINDERS 


107 


005265 


117400 


002143 






DEC 


CNTCYL 


AA AAA^AAaiV V AA AAa^ Ai Ai* AAw Wk Aa af 

;DECREPIENT FOR ONE ALREADY DONE 








UUIO I4> 


UU 1 H 1 u 






ccrrrv tcmd 


( r UK AVv 


109 


005272 


114000 


001411 






CLR 


TENP^I 


; CLEAR HIGH ORDER 


110 


005274 


104203 


001410 






NOV 


#TENP,R3 
fSTAS£C,R4 


;SET UP FOR ADD 


111 


005276 


104204 


001574 






NOV 


;DITTO 


112 


005300 










CALL 


DADO 


;GET SECTOR NUMBER ON NEXT CYLINDER 


113 


005302 


104300 


001612 


002137 




NOV 


SECT12. SECCNT 


;RESET SECTOR COUNT 


114 


005305 


104300 


001574 


001572 




NOV 


STASEC« CURXBN 


; RESET SECTOR NUMBER 



J 13 
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115 005310 

116 005313 

117 005321 

118 00532A 

119 005327 

120 005332 

121 005334 

122 005335 

123 005337 

124 005341 

125 005343 

126 005345 

127 005347 

128 005351 

129 005353 

130 005355 

131 005357 

132 005361 

133 005363 

134 005365 

135 005367 

136 005371 

137 005373 

138 005375 

139 005377 

140 005401 

141 005403 

142 005404 

143 005406 

144 005407 

145 005410 

146 005412 

147 005415 

148 005417 

149 005421 

150 005423 

151 005425 

152 005427 

153 005431 

154 005434 

155 005436 

156 005441 

157 005447 

158 005451 

159 005453 

160 005455 

161 005457 

162 005461 

163 005464 

164 005466 

165 005470 

166 005472 

167 005474 

168 005476 

169 005477 



104300 001575 001573 



104300 
104300 
104300 

115001 

104207 
104203 
100673 
104303 
100673 
104303 
105303 
101203 
100673 
104203 
101303 
100673 
104203 
100673 
104207 
104203 
100673 
104302 
060012 
104202 
060002 
115001 



001604 
001605 
002146 



001373 
011607 
000002 
001572 
000003 
001573 
002011 
120000 
000004 
013400 
001565 
000005 
001400 
000006 
101373 
100000 
000000 
001412 

000400 



104207 
104673 
103203 
101203 
100673 
101200 



001373 
000004 
170000 
110000 
000004 
010000 



103200 010000 
117400 002137 
117400 002143 



103200 
117400 



104207 
104201 
060016 



014631 
002136 



004243 
000040 



001551 
001552 
001553 



IIS: 



16S: 



102200 010000 001703 



001703 

001 7C3 17$: 



001703 10S: 



15$: 
12$: 



NOV 


STASEC«-1,CURXBN«^1 


DUB INC 


CYLNUN 


NOV 


CVLNUN.ISEEK^I 


NOV 


CYLNUN«1,ISEEK«2 


NOV 


CURGRP,ISEEK*3 


CALL 


SEEK 


TST 


R1 


BNI 


SKERR 


NOV 


#RDBLK,RO 


NOV 


#PRN6UF,R3 


NOV 


R3,RU.BUF(R0) 


NOV 


CURXBN,R3 


NOV 


R3«Ry.L0y(R0) 


NOV 


CURXBN*1.R3 


ADO 


ST.XBN«R3 


BIS 


#HD.XBN«R3 


NOV 


R3,RU.HI(R0} 


NOV 


#RUCND«R3 


BIS 


CURTRK,R3 


NOV 


R3,RU.CND(R0) 


NOV 


#HSLIN-1«R3 


NOV 


R3«RU.0UN(R0> 


NOV 


#<BIT15!RDBLK>,R0 


NOV 


#RDCN0«R3 


NOV 


R3«RU.STAT(R0) 


NOV 


UNIT,R2 


XFC 


SIP 


NOV 


#SECSI6,R2 


XFC 


READ 


TST 


R1 


BEQ 


10$ 


BIT 


«BDTST,FLAG1 


BNE 


17$ 


NOV 


«RDBLK,RO 


NOV 


RU.HI(R0).R3 


BIC 


«HD.CLR,R3 


BIS 


fHD.6AD,R3 


NOV 


R3,RU.HI(R0> 


BIS 


#BDTST,FLAG1 


BR 


16$ 


BIC 


#BDTST,FLA61 


DUBINC 


CURXBN 


DEC 


SECCNT 


BNE 


11$ 


DEC 


CNTCVL 


BEQ 


12$ 


BR 


13$ 


BIC 


fBDLSTJLAGI 


DEC 


ERRCNT 


BNE 


14$ 


RETURN 




NOV 


fURN.RO 


NOV 


fWRNLN^RI 


XFC 


NAINTR 


BR 


15$ 



RESET HIGH ORDER 

INCRENENT CYLINDER NUNBER 

GET LO ORDER WORD OF CYLINDER NUMBER 

LOAD HIGH ORDER WORD OF CYL NUN 

LOAD GROUP NUNBER 

SEEK TO CURRENT CYL NUN 

ANY ERRORS ? 

YUP - QUIT 

POINT TO READ CONNAND BLOCK 
BUFFER POINTER 
STORE IT 

GET LOU RODER BLOCK NUNBER 
STORE IN CONNAND BLOCK 
LOAD HIGH ORDER BLOCK NUNBER 
ADD STARTING XBN BITS 
SET IN XBN HEADER CODE 
STORE IN CONNAND BLOCK 
GET READ CONNAND 
SET IN TRACK NUNBER 
STORE IN CONNAD BLOCK 
POINTER TO DUNNY SDI BLOCK 
STORE IT IN READ BLOCK 
MAKE SURE POINTING AT BLOCK 
RESET STATUS POINTER 
STORE IT BACK 
GET PORT NUNBER FOR SIP 
SYNCH WITH SECTOR/INDEX PULSE 
SECTOR SIZE IN WORDS 
READ 1 SECTOR 
ANY ERROR ? 
;N0 - THIS HEAD O.K. 
;HAVE WE TESTED BAD HEADER CODE ? 
I YUP - DON'T TRY AGAIN 
;POINT TO HEAD CONTROL BLOCK 
;GET HEADER WORD 
CLEAR HEADER 
SET IN BAD HEADER CODE 
STORE IT BACK 

;SET THAT WE TRIED BAD HEADER CODE 
;AND TRY READ AGAIN 
; CLEAR BAD HEADER TESTED FLAG 
; INCRENENT CURRENT SECTOR 
; DECREMENT SECTOR/TRACK COUNT 
;TRY IT AGAIN WITH NEXT SECTOR 
iDECRENENT CYLINDER CO^JNT 
FAILED ON ALL SECTORS - SEND WARNING 
TRY NEXT CYLINDER 
; CLEAR FLAG IN CASE IT WAS SET 
; DECREMENT ERROR COUNT 
iCa-^TINUE TILL DONE ALL 
;ALL DONE RETURN 
lADDRESS OF WARNING 
; LENGTH OF WARNING 
SEND IT 
; RE TURN 
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FINAL CHECK OVERLAY (H2) 



SEO 166 



1 

! 



CONVERT BLOCK NUMBER TO PHYSICAL ADDRESS AND SEEK 
R4 -> BLOCK NUMBER 



5 005S01 


104207 


002110 




CS1: 


NOV 


6 005503 


104143 








NOV 


7 005504 


100673 


000002 






NOV 


8 005506 


104643 


000001 






NOV 


9 005510 


103203 


170000 






BIC 


10 005512 


100673 


000003 






NOV 


11 005514 


104201 


001525 






NOV 


12 005516 


060020 








XFC 


13 00551? 


104670 


000011 


001565 




NOV 


14 005522 


104670 


000006 


001551 




NOV 


15 005525 


104670 


000007 


001552 




NOV 


16 005530 


104670 


000010 


001553 




NOV 


17 005533 


102200 


020000 


001703 




BIT 


18 005536 










6EQ 


19 005540 


104671 


000004 






NOV 


20 005542 


106010 


AA4 ^ 4 ^ 

001612 






CNP 


21 005544 










BEQ 


22 005546 


101200 


100000 


001552 




BIS 


23 005551 








1$: 


CALL 


24 005553 


115001 








TST 


25 005554 










BNE 


26 005556 










RETURN 


27 005560 


104201 


000012 




CKR1: 


NOV 


28 005562 


104207 


002110 






NOV 


29 005564 


104672 


000006 






NOV 


30 005566 










CALL 



31 
32 
33 



«CONBLK,R0 

(R4).R3 

R3,V2(R0) 

1(R4),R3 

«HD.CLR,R3 

R3,V2*1(R0) 

#SCR.R1 

CVT 

TRK(RO).CURTRK 

CYL(R0).ISECk*1 

CYL*1(R0),ISEEK*2 

6RP(R0),ISEEK*3 

#N0DE,FLAG1 

1$ 

V3(R0)«R1 
R1.SECT12 
U 

fSS,ISEEK*2 

SEEK 

R1 

CKR1 

#10.,R1 
#CONBLK«RO 
CYL(R0>,R2 
ERRNNT 



POINT TO CONVERT BLOCK 

GET LOW ORDR 

STORE IT 

HIGH ORDER 

CLEAR HEADER 

STORE IT 

POINT TO SUBUNIT CHARACTERISTICS 

CONVERT IT 

GET TRACK NUNBER 

LOW ORDER XYLINDER 

HIGH ORDER CYLINDR 

GROUP NUNBER 

WHAT NODE ARE WE IM 

512 - SEEK PIT O.K. 

GET VARIABLE 3 

U EQ TO SECT12 THEN D/XBN 

AND SEEK BIT O.K. (512) 

ELSE L/R6N - SET 576 BIT 

DO SEEK 

ANY ERROR 

YUP 

;SEEK ERROR 
; CONVERT BLOCK 
;CYLINDER FAI'.D ON 
.•ERROR RETURN 



L 



UDAF52 - UDA-52 FORMATTER DHACR X04.01 
fCT WRITE OVE"»iAY (F9) 

1 

2 005570 

3 

A 

5 



6 



7 004CH 


104200 


000030 


001636 


8 004017 


114005 






9 004020 


104050 


001732 




10 OOA022 


104204 


001743 




11 00402A 


104203 


002151 




12 004026 








13 004030 


104305 


001740 




14 004032 


104303 


001626 




15 004034 


104207 


002110 




16 004036 


100673 


000000 




17 004040 


104303 


001627 




18 004042 


100673 


000001 




19 004044 


104303 


001612 




20 004046 


100673 


000004 




21 004050 








22 004052 


104052 






23 004053 


104207 


000400 




24 004055 








25 004057 


100623 


000400 




26 m061 


104207 


001373 




27 004063 


100672 


000002 




28 004065 


104203 


122400 




29 004067 


104302 


001565 




30 004071 


101023 






31 004072 


100673 


003005 




32 004074 


104143 






33 004075 


100673 


000003 




34 004077 


104643 


000001 




35 004101 


105303 


002011 




36 004103 


101203 


120000 




37 004105 


100673 


000004 




38 004107 


104203 


001400 




39 004111 


100673 


000006 




40 004113 


104303 


002005 




41 00411*^ 


104304 


002006 




42 00411 


104302 


001412 




43 004121 


104207 


001373 




44 004123 


101207 


100000 




45 004125 


060012 






46 004126 


104202 


000400 




47 004130 


060003 






48 004131 


115001 






49 004132 








50 004134 


106300 


002165 


002167 


51 004137 








52 004141 


115400 


002167 




53 004143 






54 004145 


104303 


002170 




55 004147 








56 004151 


115000 


002166 




57 004153 
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.SBTTL FCT WRITE OVERLAY ( 
DNOVLY F9, START 



• 
• 

9 

t 


WRITE 


AN FCT BLOCK 


FCTWRT: 


NOV 


#F9,CUR0VL 




CLR 


R5 




HOV 


R5,NEXT1 




MOV 


#FCTCNT,R4 




NOV 


#0NE,R3 




CALL 


DSUB 




NOV 


BUFPNT.R5 


FCTRLP: 


NOV 


LBNCYL,R3 




MOV 


#CONBLK,RO 




NOV 


R3,V1(R0) 




NOV 


LBNCYL+1 ,R3 




NOV 


R3.VU1 (RO) 




NOV 


SECT12.R3 




NOV 


R3«V3(R0) 




CALL 


CVTSK 




NOV 


R5,R2 




NOV 


#SECSI6«R0 




CALL 


CEOC 




NOV 


R3,RW.EDC(R2) 


4$: 


NOV 


#WRBLK,RO 




NOV 


R2.RW.BUF(R0) 




NOV 


#WRCfN>,R3 




NOV 


CURTRK«R2 




BIS 


R2,R3 




NOV 


R3,RW.CN0(R0> 




NOV 


(R4>«R3 




NOV 


R3.RW.LOW(R0) 




NOV 


1(R4),R3 




ADD 


ST.XBN«R3 




BIS 


#MD.XBN,R3 




NOV 


R3,RW.HI(R0) 




NOV 


«HSLIN-1,R3 




NOV 


R3«RW.0yN(R0) 


WRITE5: 


NOV 


HPREA.R3 




NOV 


DPREA,R4 




NOV 


UNIT.R2 




NOV 


fURBLK«R0 




BIS 


#BI T1S.ro 




XFC 


SIP 




NOV 


#SECSI6,R2 




XFC 


WRITE 




TST 


R1 




BEO 


FW60GD 




CNP 


RETRY,THPTRY 




BEO 


IS 




INC 


TNPTRY 




BR 


WRITES 


1$: 


NOV 


RECTNP.R3 




BNI 


2$ 




TST 


RECOV 




BEQ 


3S 



FOR INIT 

CLEAR ERROR COUNTER 
INIT NEXT COPY COUNTER 
POINT TO FCT BLOCK NUMBER 
FOR SUB 

SUB TO GET RIGHT ONE 
GET BUFFER POINTER 
GET LBN CYLINDERS 
POINT TO CONVERT BLOCK 
STORE FOR CONVERT 
GET HIGH ORDER 
STORE IT 

GET SECTORS/TRACK (512) 
STORE IT 

CONVCRT MiO SEEK 

POINT TO BUFFER 

SECTOR SIZE IN WORDS 

COMPUTE EDC - RETURNED IN R3 

STORE IT IN THE BUFFER 

POINT TO COMNAND BLOCK 

STICK BUFFEh PTR IN COMMAND BLOCK 

GET WRITE COMMAND 

GET CURRENT TRACK 

SET TRACK FOR WRITE 

STORE IN COMMAND BLOCK 

GET LOW ORDER HEADER 

STORE IN WRITE BLOCK 

GET HIGH ORDER 

ADD STARTING XBN BITS 

SET HEADER 

STORE IN WRITE BLOCK 

GET DUMMY SDI POINTER 

POINT IN COMPMND BLOCK 

GET HEADER PREAMBLE 

GET DATA PREAMBLE 

GET PORT NUMBER FOR SIP 

MAKE SURE POINTDm AT BLOCK 

SET NO RVECTORING 

WAIT FOR SECTOR PULSE 

SECTOR SIZE IN WORDS 

WRITc SECTOR 

ANY ERROR ? 

NOPE 

MAX ^ 

YES - TRY SOME RECOVERY 
INC RETRY COUNT 
DO RETRY 

GET CURRENT ERROR RECOVERY LEVEL 

IF NEGATIVE THEN FRIED 

IS THERE ONLY RECOVERY LEVEL 0 ? 

YES - NO NEED TO ISSUE IT - JUST RETRY 
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FCT URlTE OVERLAY (F9) 



58 004155 








59 004157 


114000 


002167 




60 004161 


117400 


002170 




61 004163 








62 004165 








63 004165 


115405 






64 004166 


115400 


001732 




65 004170 


114000 


002167 




66 004172 


104300 


002166 


002170 


67 004175 


104204 


001743 


68 004177 


104203 


001725 




69 004201 








70 004203 


106300 


001731 


001732 


71 004206 








72 004210 


106305 


001731 




73 004212 






74 004214 


104303 


001732 




75 004216 






76 004220 


104204 


001743 




77 004222 


104203 


001725 




78 004224 








79 004226 


117400 


001 732 




80 004230 








81 004232 








82 004240 








83 004242 


104012 






84 004243 


104201 


000017 




85 004245 









3$: 



2$: 



CALL 


ERRHND 


CLR 


THPTRY 


DEC 


RECTNP 


BR 


URITE5 


INC 


RS 


INC 


NEXTl 


CLR 


TNPTRY 


NOV 


RECOV, RECTNP 


NOV 


fFCTCNT.R4 


NOV 


#FCTFNT,R3 


CALL 


OAOD 


CNP 


FCTCPY, NEXTl 


BNE 


FCTRLP 


CNP 


FCTCPY, R5 


BEQ 


FCUERR 


NOV 


NEXTl, R3 


BEQ 


FUTOON 


NOV 


#FCTCNT,R4 


NOV 


«FCTFNT,R3 


CALL 


OSUB 


DEC 


NEXTl 


BR 


FCFXLP 


DUBINC 


FCTCNT 


RETURN 




NOV 


R1,R2 


NOV 


#15.,R1 


CALL 


ERRNNT 



;TRY RECOVERY 
;FOR INIT 
;OECRENENT IT 
; RE TRY 

;YUP - INCREMENT COUNTER 
;INCRENENT IT 
;FOR RESET 

;GET RECOVERY LEVELS 
:FOR ADD 
;FOR ADD 

.•POINT TO NEXT COPY 

:DONE THIS SECTOR ? 

;N0 - WRITE NEXT FCT COPY 

.-ERROR ON EVERY WRITE ? 

;YUP - BIG TROUBLE 

;ANY REAPEATS ? 

;N0 

: TO GET IT BACK 
.•DITTO 

;SUB IT 
•REPEAT 

•PUT BACK THE WAY IT WAS 

:XFC ERROR CODE 
;RCT WRITE ER^tOR 
.•ERROR RETURN 
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PBN->D,X,L,RBN CONVERSION OVERLAY (G5) 



1 
2 
3 
4 
5 
6 
7 
8 
9 



004247 



004014 
004C17 
004021 
004023 

10 004025 

11 004027 

12 004031 

13 004033 

14 004035 

15 004037 

16 004041 

17 004043 

18 004045 

19 004047 

20 004051 

21 004053 

22 004055 

23 004057 

24 004061 

25 004063 

26 004065 

27 004067 

28 004071 

29 004073 

30 004075 

31 004077 

32 004101 

33 004103 

34 004105 

35 004107 

36 004111 

37 004113 

38 004115 

39 004117 

40 004121 

41 004123 
42 

43 

44 004125 

45 004127 

46 004131 

47 004134 

48 004136 

49 004140 

50 004142 

51 004144 

52 004146 

53 004150 

54 004151 

55 004152 

56 004154 

57 004156 



103200 170000 001564 PCON: 

104203 001637 

104204 001563 



104203 001622 



104204 
104203 



104203 
104204 



001563 
001622 



001606 
001563 



104203 001403 



104641 
105301 
103201 
101201 
104010 



104203 
104204 



000001 
002012 
170000 
140000 
001564 



001606 
001563 



XBNFND: 



104203 001403 

104641 000001 

105301 002011 

103201 170000 

101201 120000 

104010 001564 



104205 001525 

102200 020000 001703 

104653 000011 



104653 
103203 
104201 
104114 
106043 

104653 
103203 



000015 
177400 
001403 



000004 
177600 



LRSN: 



IS: 
2S: 



.SBTTL PBN->0,X,L,RBN CONVER! 

DMOVLV GS.START 

CONVERT FROM PBN TO D,X,L,RBN 

BIC #H0.CLR,CURPBN4^1 

MOV #HGHPBN«R3 

NOV «CURPBN«R4 

CALL DCHP 

BPL LRBN 

CALL DSUB 

MOV «X8NSEC,R3 

CALL OCMP 

BMI XBNFND 

MOV «CURPBN,R4 

MOV #XBNSEC,R3 

CALL DSUB 

CALL CONGRP 

MOV #SECTRK,R3 

MOV #CURPBN,R4 

CALL DMUL 

NOV #DDUNHY,R3 

CALL DADD 

MOV 1(R4)«R1 

ADD ST.DBN«R1 

BIC #HD.CLR,R1 

BIS «HD.DBN,R1 

MOV RI.CURPBN^I 

BR PDONE 

CALL CONGRP 

MOV #SECTRK«R3 

NOV «CURPBN,R4 

CALL DNUL 

MOV «DDUNNY«R3 

CALL DADD 

NOV 1(R4),R1 

ADD ST.XBN,R1 

BIC «HD.CLR,R1 

BIS «HD.XBN,R1 

MOV RI.CURPBN^I 

BR PDONE 



CALL CONGRP 

MOV «SCR,R5 

BIT «M0DE«FLAG1 

BNE 1$ 

MOV LBNT12(R5),R3 

BR 2$ 

MOV LBNT76(R5),R3 

BIC «HIBYTE,R3 

MOV «DDUMNY,R1 

MOV (R1),R4 

CMP R4,R3 

BMI LBNFND 

MOV RBNTRK(R5).RS 

BIC #HI1BYTE«R3 



OVERLAY (65) 



CLEAR THE HEADER 

HIGHEST PBN IN LBN AREA 

CURRENT PBN 

IS IT LBN OR RBN ? 

YUP - 60 COMPUTE IT 

SUBTRACT HI6H LBN PBN 

TOTAL XBN SECTORS 

IS IT AN XBN ? 

YUP - 60 FIXIT 

ELSE DBN - GET VALUE 

TOTAL XBN SECTORS 

SUBTRACT TO 6ET RELATIVE DBN 

COMPUTE THE "lOFFSET" SECTOR 

SECTORS/TRACK 

TRACK 

NULTIPLY TO GET STARTING PBN ON TRACK 

SECTOR ON TRACK 

ADD TO 6ET ACTUAL PBN 

6ET HI6H ORDER 

ADD TO 6ET ABSOLUTE DBN 

CLEAR THE HEADER 

HARK AS DBN 

STORE BACK 

CLEAN UP AND RETURN 

CONPUTE THE 'lOFFSET" SECTOR 

SECTORS/TRACK 

TRACK 

MULTIPLY TO 6ET STARTING PBN ON TRACK 

SECTOR ON TRACK 

ADD TO GET ACTUAL PBN 

GET HIGH ORDER 

ADD TO GET ABSOLUTE XBN 

CLEAR HEADER 

NARK AS XBN 

STORE BACK 

CLEAN UP AND RETURN 



CONPUTE THE OFFSET SECTOR 

POINT TO CHARACTERISTICS 

WHAT NODE 

IF SET THEN 576 

GET LBN/TRACK FOR 512 

SKIP 576 SETUP 

GET LBN/TRACK FOR 576 

CLEAR HIGH BYTE 

POINT TO RENAINDER 

GET IT 

CONPARE 

IF NINUS THEN LBN 
Gi-T RBN/TRACK 
CLEAR OUT GARBAGE 
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PBN->O.X,L.RBN 


CONVERSION OVERLAY (G5) 






58 


004160 


104030 


001410 






NOV 


59 


004162 


114000 


001411 






CLR 


60 


004164 


104203 


001410 






nov 


61 


004166 


104204 


001563 






nov 


62 


004170 










CALL 


63 


004172 


104204 


001403 


001703 




nov 


6A 


004174 


102200 


020000 




BIT 


65 


004177 










BNE 


66 


004201 


104653 


000011 






nov 


67 


004203 








3S: 


BR 


68 


004205 


104653 


000015 




NOV 


69 


004207 


103203 


177400 




4S: 


BIC 


70 


004211 


104030 


001410 






NOV 


71 


004213 


114000 


001411 






CLR 


72 


004215 


104203 


001410 






NOV 


73 


004217 










CALL 


74 


004221 


104204 


001563 






NOV 


75 


004223 


104203 


001403 






NOV 


76 


004225 










CALL 


77 


004227 


104641 


000001 






mv 


ro 


004231 




QUcQl U 






ADD 


79 


004233 


103201 


170000 






BIC 


80 


004235 


101201 


060000 






BIS 


81 


004237 


104010 


001564 






NOV 


82 


004241 










BR 


83 










• 




84 

85 


004243 


104204 


001563 


001703 


• 

LBNFND: 


NOV 


86 


004245 


102200 


020000 




BIT 


87 


004250 










BNE 


88 


004252 


104653 


000011 






NOV 


89 


004254 








IS: 


BR 


90 


004256 


104653 


000015 




NOV 


91 


004260 


103203 


177400 




2S: 


BIC 


92 


004262 


104030 


001410 






NOV 


93 


004264 


114000 


001411 






CLR 


94 


004266 


104203 


001410 






NOV 


95 


004270 










CALL 


96 


004272 


104203 


001403 






NOV 


97 


004274 










CALL 


98 


004276 


104207 


001525 






NOV 


99 


004300 


104641 


000001 






NOV 


100 


004302 


105301 


002007 






ADD 


101 


004304 


103201 


170000 






BIC 


102 


004306 


101201 


000000 






BIS 


103 


004310 


104010 


001564 






NOV 


104 


004312 


104300 


001563 


001566 


PDONE: 


NOV 


105 


004315 


104300 


001564 


001567 




NOV 


106 


004320 










RETURN 



B 14 
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SEO 170 



R3.TENP 

TENP*1 

mNP,R3 

«CURPBN«R4 

DNUL 

«DDUNNY,R4 

«N0DE,FLA61 

3$ 

LBNT12(R5),R3 
4$ 

LBNT76(R5)«R3 

«HIBYTE«R3 

R3.TENP 

TENP*1 

«TENP,R3 

DSUB 

«CURPBN.R4 

«DDUHNY,R3 

DADD 

1(R4).R1 

ST.RBN.Rl 

«HD.CLR,R1 

fHD.RBN.Rl 

R1,CURPBN^1 

PDONE 



.'STORE IT 

;FOR STORE 

;FOR NULTIPLY 

; DITTO - NUN OF TRACKS 

.-NULTIPLY BY TRACK NUNBER 

;FOR SUBRACT 

.-WHAT NODE 

;IF SET THEN 576 

;GET LBN/ TRACK FOR 512 

.SKIP 576 SETUP 

:GET I.BN/TRACK FOR 576 

.•CLEAR HIGH BYTE 

.-STORE IT 

.FOR CLEAR 

.-POINT FOR SUBTRACT 

.-SUBTRACT ^0 GET RESIDUE RBN 

;T0 GET RBN NUNBER 

.-DITTO 

.•GIVES RELATIVE RBN 

:GET HIGH ORDER 

.-ADD 70 GET ABSOLUTE RBN 

.-CLEAR TH EHADER 

.-SET AS A RBN 

.-STORE BACK 

.-CLEAN UP AND RETURN 



«CURPBN.R4 

«N00E.FLA61 

1$ 

LBNT12(RS).R3 
2$ 

LBNT76(R5),R3 

fHIBVTE,R3 

R3-TENP 

TENP*1 

«TENP.R3 

DNUL 

«DDUNNV.R3 

DADD 

fSCR.RO 

1(R4).R1 

ST.LBN.R1 

fHD.CLR.R! 

fHD.LBN.Rl 

RI.CURPBN^I 

CURPBN.CURBN 

CURPBN^1.CURBN«1 



;NULT NUN OF TRACKS 

;UHAT NODE 

;IF SET THEN 576 

.-GET LBN/TRACK FOR 512 

.SKIP 576 SETUP 

.-GET LBN/TRACK FOR 576 

.•CLEAR HIGH BYTE 

.•STORE IT 

;FOR CLEAR 

.•POINT FOR NULT 

.-GET LBN*S 

.•PLUS RESIDUE 

.•GIVES LBN NUNBER 

.•POINT TO CHARACTERISTICS 

;GET HIGH ORDER 

.•ADD TO GET ABSOLUTE LBN 

.CLEAR HEADER 

.•SET AS LBN 

.•STORE BACK 

;GET LOU ORDER 

.•HIGH ORDER 
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4 

1 

c 










• 


rnMPi 
uunri 


i 

J 
H 


nA/ TOO 


1 A/ xnn 


AA1 AAA 
lOUO 


AAI/AT 

UU l*lU3 


lUrlUNr • 


nu¥ 


c 


AA/ TOC 


1 ImUOU 


AA1 znZ 






ri D 


0 


rtrt/.T0'7 

UUH3cf 


1 f\i. OAT 

1 UmcU3 


AAIZAY 
UUI*lU3 






nu» 


7 

f 


UilH33l 


lAAOAA 
1 UhcUh 


AA1 CAT 
MM 1 303 






MOW 


o 
O 












U ALL 


o 


UU*»333 


lUH 1*1 1 








MV 
nvw 




ftfXLXXA 
\/U*»330 










PUSH 


1 1 


UU«i33f 


1 U*iO*ic 


MMMMM 1 






MOV 


1 3 

1e 


UU*i34> 1 










ruan 


1 3 


AAZTZO 


1 1 com 
1 1 3UU 1 








TST 
1 1 


1 £ 


AAZTAT 

UUm3*»3 










DtIC 


1 e 

1 3 




1 1 cnno 

1 1 3UUC 








1 d 1 


10 


UU*» 3*»0 








It* 

1 9 • 




1 f 


UU<>33U 


1 Uh I J 1 






MOW 


IB 


UU*i33 1 










PUSH 
r uan 


It 


Uv*»33c 


1 UMC wr 


UU 1 jCj 






MV 


cU 


n/\LXU 
IaK»33*» 


1AAA71 
IU*>0' 1 


AAAAAT 
UUUUU3 






MOW 


CI 


UUh330 


IU3cU1 


Iff HMM 






Rir 

Dili 


cc 


AAZTAA 


1 AA1 T i 
IUUI 3 1 








MOW 

nu» 


CJ 












rki 1 


CM 


UU«i303 


1 AZ 1 Z 1 
1 Um 1 M 1 








nu» 


oc 

«3 


UUh 30*t 










DflC 


CO 


AA/.TAA 


1 U*lO*» 1 


AAAAA1 

UUvUU 1 






MOW 


Cf 


UU*i3rU 










RFO 


CO 


UU*l3f C 


1 A6OA7 


001^7^ 
Uv 1 jCj 




MV 

nw w 


oo 
cv 


UU*l3f H 


^f\Lfi7^ 

lUHOr 1 


nnnnn? 

UUvvvC 






MV 




Uw*»3f 0 


inxpoi 


1 77A00 

Iff H w 






ox V 


3 1 


AA/ / AA 


1 Uv 1 J 1 








MV 




AA//A1 
WvMHU 1 










CALL 


•IT 

33 


UU*»*lU3 


1 VH 1 J 1 








MV 


3*» 


AAA/AA 












33 


AA/.Z. AA 


inAon7 

1 UMCUf 


vv 1 jCj 






MV 


30 




lUccUV 


UCvvUv 


001 70'^ 

Uv 1 f Vj 




BIT 


»7 

•»f 














JO 




-lAZATO 
1 w*tw JC 


00001 ^ 

Uvvv 1 J 






MV 














BR 




Uw***»C 1 


lAZATO 
1 wHOJC 


00001 1 

vvW 1 1 






MV 


^1 


WH"»C J 


1 1 U f uc 






7%' 
f • • 




HC 


UU"»"»C'» 


1 U JCUC 


1 77^00 

Iff "VVV 






BIC 


LX 


nA^49A 


1 1 ^no7 








TST 


LL 


Uw"»"IC« 










BFQ 

Db V 


H J 




1 Uw 1 *tC 








MV 


••O 


nt\LLX^ 

UwMIjC 


1 1£009 








CLR 


L7 


UVIMH33 


1 UUDtC 


000001 

vUvvU 1 






MV 


LR 
MO 












CALL 


LQ 












POP 














MV 


51 


004441 


105025 








ADD 


52 


004442 


100145 








NOV 


53 


004^43 


114002 








CLR 


54 


004444 


100642 


000001 






mv 


55 


004446 


104301 


001606 






NOV 


56 


004450 


100131 








NOV 


57 


004451 


100632 


000001 






NOV 



C 14 

22 PAGE 95 



SEO 171 



: TRACK NUNBER AND SECTOR NUNBER INCLUDING OFFSET 



SECTRK.DDUNNY 

DDUNNY*1 

fDDUNNY,R3 

#CURPBN,R4 

DDIV 

(R4)«R1 

RI 

1(R4),R2 

R2 

RI 

1$ 

R2 

5S 

(R3),R1 
R1 

»SCR,RO 

TRKGRP(R0),R1 

#HI3YTE,R1 

RU(R3) 

DDIV 

(R4),R1 

3S 

1(R4)«R1 
4S 

#SCR«RO 

GRPCYL(R0)«R1 

#HIBYTE.R1 

R1,(R3) 

DDIV 

(R3),R1 

4S 

#SCR,RO 

#H0DE,FLAG1 

6S 

0FFS76(R3),R2 
7% 

OFFS12(R3),R2 
R2 

«HIBYTE,R2 

R2 

4S 

R2,(R4) 
R2 

R2J(R4) 

DNUL 

R2 

(R4).R5 
R2.R5 
Rj,(R4) 
R2 

R2J(R4) 
SECTRK.RI 
R1.(R3) 
R2J(R3) 



;GET SECTORS/TRACK 
.•CLEAR HIGH ORDER 
;FOR DIVIDE 
.•DITTO 

.•DIVIDE PBN/SECTRK TC GET TRACK « 
.•GET CURRENT TRACK 
.-SAVE IT ON STACK 
.•DITTO HIGH ORDER 
:SAVE AGAIN 

;IS LOU ORDER TRACK 0 ? 

;NOPE - TRACK # CAN'T BE 0 

.•IS HIGH ORDER TRACK 0 ? 

;YES - NO OFFSET OR NEED TO GO ON 

;GET CURRENT SECTOR NUMBER 

;SAVE IT 

;POINT TO CHARACTERISTICS BLOCK 

;LOAD TRACKS/GROUP 

.•CLEAR OUT HIGH GARBAGE 

; STORE TRACK/GROUP IN DDUNNY 

.•DIVIDE TO GET GROUP NUMBER 

;GET ABSOLUTE GROUP NUNBER 

:CAN'T BE 0 - CONTINUES 

;GET HIGH ORDER 

;GROUP IS 0 - NO OFFSET 

;P0INT TO CHARACTERISTICS 

;GET GROUPS/CYLINDER 

.CLEAR OUT GARBAGE 

.STORE GROUPS/CYLINDER 

.•DIVIDE TO GET RELATIVE GROUP 

.GET GROUP NUMBER 

:IF ZERO THEN DONE - NO OFFSET 

.•POINT TO CHARACTERISTICS 

:UHAT NODE ARE UE IN 

;IF CLEAR THEN 512 

.GET GROUP OFFSET (576) 

•SKIP 5''2 

•GET GROUP OFFSET (512) 

.GET INTO LOUBYTE 

.•CLEAR HIGH GARBAGE 

;ANY OFFSET ? 

;N0 - NO NEED TO FIX UP 

.•STORE FOR NULT 

:CLCAR FOR STORE 

; CI EAR HIGH ORDER 

.•MULTIPLY GROUP^OFFSET 

.•RESTORE ORIGINAL SECTOR 

;GET TOTAL OFFSET 

.•ADD TO GET SECTOR NUMBER 

.•STORE IT 

.FOR STREO 

.•CLEAR HIGH ORDER 

.•SECTOR'S/TRACK 

.•FOR NOD FUNCTION 

: CLEAR HIGH ORDER 



0 u 
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S6 00A453 

59 004^55 

60 004456 

61 004460 

62 004461 

63 004462 

64 004464 

65 004465 

66 004466 

67 004467 

68 004471 



100641 000001 
100141 



100131 
114001 
100631 



5$: 



4S: 



000001 



CALL 

POP 

MOV 

POP 

NOV 

RETURN 

POP 

NOV 

CLR 

NOV 

BR 



DOIV 
R1 

R1,1(R4) 
R1 

R1,(R4) 
R1 

Rn(R3) 
Ri 

R1J(R3) 
5$ 



;RENAINDER IS NEW SECTOR NUNBER 
: RE SI ORE TRACK NUMBER LOW 
.•STORE IT 

.•RESTORE TRACK NUMBER HIGH 
; STORE IT 

.•SECTOR NUMBER 
.-STORE IT 
:FOR STORE 
.CLEAR HIGH ORDER 
.•AND EXIT 



E U 
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SEO 173 



1 
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004033 
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05000? 
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004057 
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CO 

77 


0040M 


1?5 


156 


C f 

28 


004075 


050004 




29 


004076 


123 


104 

■ W^ 


30 








31 


004107 


050005 




32 


004110 


125 


116 

1 ■ w 


WW 








34 

W^ 


004121 


050006 




35 

W^ 


004122 


106 


157 


36 








37 


004142 


050007 




38 


004143 


116 


157 


39 








40 


004160 


050010 




41 


004161 


104 


102 


42 








43 


004206 


050011 




44 


004207 


106 


103 


45 
46 


004217 


050012 




47 


004220 


123 


105 

1 WW 


48 








49 


004226 


050013 

v^ww ■ w 




SO 


004227 


122 


103 


51 


004237 


050014 




11 


004240 


114 


102 


54 








55 


004263 


050015 




56 


004264 


106 


103 


57 









124 
111 
163 
111 
111 
162 
156 
116 
124 
105 
124 
116 
124 



N.ER1: 
.ER2: 
.ER3: 
.ER4: 
.ER5: 
.ER6: 
.ER7: 
.ER8: 
.ER9: 



.SBTTL ERROR MESSAGE OVERLAY (G6) 
ERROR MESSAGE OVERLAY 
DMOVLY G6, START 



MOV fOMBUF.RO 

MOV 1(R0),R1 

MOV (R0),R2 

DEC R2 

ROL R2 

ADD «ERRTBL,R2 

MOV (R2)fR0 

MOV 1(R2>,R1 

XFC MAINTR 
RETURN 

.ENABL LC 

.WORD 50001 

.asciz "XJET STATUS faUure" 



.•POINT TO BUFFER 

;GET SUB COPE 

;GET ERROR NUMBER 

.-MAKE RELATIVE TO 0 

.•MULTIPLY BY 2 

.-OFFSET TO MESSAGE ADDRESS 

.•MESSAGE TO SEND 

.•LENGTH OF MESSAGE 

:SEND IT 

;G0 BACK AND DIE 



.WORD 50002 

.asciz "SDI send error" 



.WORD 50003 

.asciz "Unsuccessful SDI coNMnd" 



.WORD 50004 

.asciz "SDI receive error' 



.WORD 50005 

.asciz *\MIBUS I/O error" 



.WORD 50006 

.asciz "Foraatter Initialization error" 



.WORD 50007 

.asciz '1ton*ex1stant unit nuMbtr 



.WORD 50010 

.asciz 'DBN/XBN forMt error (FORMAT XFC failed)* 



.WORD 50011 

.asciz *TCT check error" 



.ER10: .WORD 
.asciz 



"SEEK error" 



.ER11: .WORD 
.asciz 



50013 

*1»CT check error" 



.ER12: .WORD 50014 

.asciz 'IBN foraat error (FORMAT XFC failed)' 



.ER13: .WORD 
.asciz 



50015 

•TCI write error" 



F H 



U0AFS2 > UDA-S2 FORMATTER DMACR XOA.01 
ERROR MESSAGE OVERLAY (G6> 

58 00427A 050016 

59 004275 122 103 124 
60 

61 004305 050017 

62 004306 122 103 124 
63 

64 004316 050020 

65 004317 122 103 124 
66 

67 004324 050021 

68 004325 106 103 124 
69 

70 004335 050022 

71 004336 106 103 124 

73 004347 050023 

74 004350 106 103 124 

76 004400 050024 

77 004401 104 162 151 
78 

79 004413 050025 

80 004414 111 156 166 

82 004433 050026 

83 004434 104 162 151 
84 

85 004464 
86 
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SEQ 174 



N.ER14: 
A.ER15: 
n.ER16: 
N.ER17: 
.ER18: 
!eR19?' 
.ER20: 
.ER21: 
n.ER22: 
A.ER23: 



WORD 50016 

asclz 'ttCT read error" 



WORD 50017 

asclz 'HCT write error" 



WORD 50020 
•sclz 'HCT full" 



WORD 50021 

•sclz 'TCT read error" 



UORD 50022 

•sclz 'TCT non-ex Ittant" 



UORD 50023 

asclz 'TCT Down Line Load error (FCT block not avbl.)" 



UORD 50024 

asclz "Drive Init t1»eout" 



UORD 50025 

asclz "Invalid response to question" 



UORD 50026 

asclz 'Drive does not support 576 foraat on this aedla" 



.OSABL LC 



6 U 
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1 
2 
3 
4 
5 
6 
7 



10 
11 



004464 
004465 
004466 
004467 

8 004470 

9 004471 
004472 
004473 

12 004474 

13 004475 

14 004476 

15 004477 

16 004500 

17 004501 

18 004503 

19 004503 

20 004504 

21 00/.505 

22 004506 

23 004507 
?4 004510 

25 004511 

26 004512 
21 004513 

28 004514 

29 004515 

30 004516 

31 004517 

32 004520 

33 004521 

34 004522 

35 004523 

36 004524 

37 004525 

38 004526 

39 004527 

40 004530 

41 004531 

42 004532 

43 004533 

44 004534 

45 004535 

46 004536 

47 004537 

48 004540 
49 



004033 
000013 
004046 
000011 
004057 
000016 
004075 
000012 
004107 
000012 
004121 
000021 
004142 
000016 
004160 
000026 
004206 
000011 
004217 
000007 
004226 
000011 
004237 
000024 
004263 
000011 
004274 
000011 
004305 
000011 
004316 
000006 
004324 
000011 
004335 
000012 
004347 
000031 
004400 
000013 
004413 
000020 
004433 
000031 

000001 



ERROR MESSAGE POINTER TABLE 



IrRTBL: 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WO(!D 
.WORD 
DffEND 
.END 



N.ER1 

N.Eft2-n.ER1 
M.ER2 

N.ER3-N.ER2 
N.ER3 

N.ER4-n.ER3 
M.ER4 

N.ER5-H.ER4 
M.ER5 

N.ER6-n.ERS 
N.ER6 

N.ER7-N.ER6 
B.ER7 

M.ER8-N.ER7 
N.ER8 

N.ER9-fl.ER8 
N.ER9 

N.ER10*N.ER9 
N.ERIC 

N.ER11-N.ER10 
N.ER11 

H.ER12-N.ER11 
N.ERl| 

H.ERII-N.ERI2 
N.ER13 

N.ER14-N.ER13 
N.ERU 

N.EftlS-N.ERU 
N.ER1S 

N.ER16-N.ER1S 
N.ER16 

N.ER17-N.ER16 
N.ER17 

N.ER18-N.ER17 
N.ER18 

N.ER19-N.ER18 
N.ER19 

N.ER20-N.ER19 

n.er|o 

N.ER21HI.ER20 

n.er|i 

N.ER|2-N.ER21 



N.ER22 
I.ER23H 



N.ER22 



MESSAGE 1 

LENGTH OF MESSAGE 1 
MESSAGE 2 

LENGTH OF MESSAGE 2 
MESSAGE 3 

LENGTH OF MESSAGE 3 
MESSAGE 4 

LENGTH OF MESSAGE 4 
MESSAGE 5 

LENGTH OF MESSAGE 5 
MESSAGE 6 

LENGTH OF MESSAGE 6 
MESSAGE 7 

LENGTH OF MESSAGE 7 
MESSAGE 8 

LENGTH OF MESSAGE 8 
MESSAGE 9 

LENGTH OF MESSAGE 9 
MESSAGE 10 
LENGTH OF MESSAGE 10 
MESSAGE 11 

LENGTH Of MESSAGE 11 

MESSAGE 12 

LENGTH OF MESSAGE 12 

PCSSAGE 13 

LENGTH Of MESSAGE 13 

MESSAGE 14 

LENGTH OF MESSAGE 14 

MESSAGE 15 

LENGTH OF MESSAGE 15 

MESSAGE 16 

LENGTH OF MESSAGE 16 

MESSAGE 17 

LENGTH OF MESSAGE 17 

MESSAGE 18 

LENGTH OF MESSAGE 18 

MESSAGE 19 

LENGTH OF MESSAGE 19 

MESSAGE 20 

LENGTH OF MESSAGE 20 

MESSAGE 21 

LENGTH OF MESSAGE 21 

MESSAGE 22 

LENGTH OF MESSAGE 22 
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SYMBOL 


TABLE 










ACC 


0OU77 


CHRONEs 


010000 


CURBN 


C01566 


ACCESS 


0O3OA2 


CKERR 


00551f. 


CURGRP 


002146 


AGAIN 


004SSO 


CKR 


00527/' 


CURLBN 


001570 


ALLOVR 


003A74 


CKR1 


005560 


CUROVL 


001636 


ALL0V1 


003503 


CKSS 


005477 


CURPBN 


001563 


AOUT 


003222 


CLBUF s 


015306 


CURPNT 


002157 


ATTN = 


0O0C02 


CLEAR 


003052 


CURRBN 


001561 


ATTN! 


003207 


CLEDON 


004153 


CURTRK 


001 56S 


BAOEOC 


002133 


CLELP 


004054 


CURXBN 


001572 


BA0E76 


002135 


CLFLP2 


004043 


CUTOF 


001720 


BADPBN 


001706 


CLESKP 


004115 


CVT = 


000020 


BAORBN 


004713 


CLEURT 


004 77^ 


CVTERR 


003667 


BO s 


100000 


CLHERE 


005007 


cvrsK 


003612 


BDHO - 


000040 


CLRBUF 


004665 


cri s 


000006 


BOIRCT 


005262 


CLRLP 


004673 


CYLBN s 


000000 


80LST = 


014631 


CLSKP2 


004142 


CYLNUn 


001604 


BOTST = 


010000 


CLSKP3 


004162 


C512 = 


000016 


BITO s 


000001 


CLSKP4 


004160 


C576 = 


000020 


BIT1 s 


000002 


CNDBUFs 


013022 


DADD 


002172 


BIT10 = 


002000 


CHPDATs 


000006 


DADD1 


002202 


BITII = 


004000 


CNLP 


005164 


DASH s 


000055 


BIT12 = 


010000 


CNLP1 


005162 


DATA s 


000005 


BIT13 = 


020000 


CNT 


001734 


DATAGN 


004700 


BITU = 


040000 


CNTCYL 


002143 


DATBUF 


004255 


BIT15 = 


100000 


CONBAD 


005463 


DATCON 


004516 


BIT2 = 


000004 


CONBLK 


002110 


DATE 


001766 


BIT3 = 


000010 


CONDON 


005260 


DATERR 


004770 


BIT* = 


000020 


C0ND01 


005262 


DATLP 


004530 


BITS = 


000040 


CONERR 


005264 


DATLP1 


004633 


BIT6 ' 


000100 


C0NER1 


005270 


DATLP2 


004662 


BIT7 = 


000200 


CONEXT 


005477 


DATRET 


004675 


BITS = 


000400 


CONGRP 


004322 


DATRT1 


004676 


BIT9 = 


001000 


CONINT 


004033 


DATVER 


004712 


BLANUD- 


020040 


CONLOU 


005253 


DATVL1 


004755 


BLKFND 


004212 


CONON 


004454 


DATVL2 


004766 


BHAX = 


037777 


C0N1EX 


005502 


DAYS s 


036031 


BOTTOn 


004306 


COUNT 


002164 


DB8AD 


002001 


BRBN 


005150 


CR 


001512 


D68UFE- 


004441 


BREAK = 


000000 


CR.ACC 


001440 


OBLEN s 


000034 


BSTGS = 


002000 


CR.CLR 


00144^ 


OBN = 


000010 


BUFNSKe 


007777 


CR.DIS 


001430 


0BNCYL> 


000022 


BUFPNT 


001740 


CR.ERV 


001460 


DCLR 


001501 


BUF1 = 


010000 


CR.GCR 


001420 


Dcnp 


002333 


BUF10 = 


015306 


CR.6SR 


001424 


DCHP1 


002362 


BUF11 = 


015763 


CR.GST 


001414 


DCnP2 


002354 


BUF2 = 


010455 


CR.ONL 


001464 


DCHP3 


002372 


BUF3 ' 


011132 


CR.RCL 


001454 


DCnP4 


002346 


BUF4 = 


011607 


CR.RUN 


001434 


DDIV 


002266 


8UF5 = 


012264 


CR.SEK 


001450 


DDUNHY 


001403 


BUF6 = 


013022 


CS 


005220 


DEAD s 


000020 


BUF7 = 


013477 


CSKIP 


004523 


DECALP 


004707 


BUF8 = 


014154 


CSJCIP1 


004536 


DECASC 


004703 


BUF9 s 


014631 


CSKIP2 


004534 


DIMIT = 


000011 


CBUF 


002125 


CSKIP3 


005045 


DIS 


001474 


COONE 


005130 


CSKIP6 


005002 


DISCON 


003154 


CEDC 


003515 


CSKIP7 


005053 


DLERR 


004060 


CHAR 


002533 


CS1 


005501 


DLERT 


004476 
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DLL - 

DLLDN 

DLLDNI 

DLLFLE 

DLLNO 

DLLRET 

DLLRT1 

DNBUF 

DMBUFL* 

DNUL 

DOLBN 

DONDLL 

DONE - 

DONFCT 

DONONE 

DP8N 

DPREA 

OSiJB 

DUPOVLs 

DURD 

DXBN 

DXCH 

DXCHEC 

DXERR 

DXFCP6 

DXFCP1 

DXFORH 

DXTRK 

EAGAIN 

ECC = 

ECCCK 

ECCF = 

ECHO « 

EOC 

EDC76 

EIHA6E 

ENAX 

ENTRY 

EORCT 

ERCV s 

ERDN - 

ERECOV 

ERFLAG 

ERLEN = 

ERPNT 

ERR 

ERRBUF 

ERRCNT 

ERRHND 

ERRflNT 

ERROR 

ERRSYNs 

ERRT 

ERRTBL 

ER1 

EXTFCT 
EXTRET 



000400 

005123 

005124 

005103 

005126 

004451 

004435 

001750 

000016 

002232 

004027 

004455 

000021 

004663 

004611 

004321 

002006 

002212 

00' 362 

0OZ131 

00403: 

004477 

004476 

004374 

004376 

004411 

004067 

004017 

003522 

000015 

003763 

010000 

000010 

002132 

002134 

001714 

001710 

001365 

004156 

000002 

000010 

001555 

001704 

000002 

001737 

001711 

001707 

002136 

003504 

003451 

004473 

000002 

002657 

004464 

005023 

005434 

005460 



EXTRil 

FBDHD = 

FBEGIN 

F3EG2 

fCFXLP 

fCLR = 

KHSG 

fCNT 

FCPG 

FCTAVL= 

FCTBAO« 

FCTCK 

FCTCKO 

FCTCKE 

FCTCLP 

FCTCL1 

FCTCNT 

FCTCPY 

FCTEHT* 

FCTFL6* 

FCTFHT 

FCTNOT 

FCTNPO 

FCTPTR 

FCTRCT 

FCTREV 

FCTRLP 

FCTSKP 

FCTSK1 

FCTSLP 

FCTSP 

FCTSUB 

FCTSZ - 

FCTUSD 

FCTURT 

FCUERR 

FDAT = 

FDLL 

FERR 

FIDANS 

FIDNUL 

FILLIT 

FINCHK 

FINDON 

FINI s 

FINLEN 

FINLN1 

FimSG 

FIXBLK 

FIXFCT 

FIXIT 

FIXLP 

FKIPI 

FKIP10 

FKIP2 

FKIP9 

FKPI 



005461 

010000 

004314 

004330 

004214 

177760 

002003 

001722 

004713 

000001 

000004 

004027 

004330 

004363 

004122 

004125 

001743 

001731 

000002 

00C025 

001725 

004231 

001745 

001742 

004201 

001776 

004032 

004517 

004511 

004711 

005044 

001723 

000010 

004215 

004014 

004242 

000012 

004414 

004363 

005412 

005427 

004736 

004014 

005407 

040000 

005367 

005371 

004203 

004535 

005112 

005133 

004552 

005206 

005236 

005172 

005665 

005226 
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FLAG 


001702 


G4 = 


000041 


LBNH76= 


000016 


FLAG1 


001703 


G5 = 


000044 


LBNLBN 


001616 


FLIP 


0041U 


G6 : 


000063 


LBNPCY 


001630 


FLIPON« 000400 


67 


000047 


LBNT12= 


000011 


FLKIPI 


005635 


G8 


000052 


L8NT76= 


000015 


FLICIP2 


005621 


HASH 


004016 


LBUFE = 


004311 


FLKPI 


005655 


HO.BAD= 


110000 


LCHEC 


004461 


FHSTL = 


000010 


HD.CLR- 


170000 


LDONE 


005560 


FHTSTA 


004236 


HD.CUR 


002145 


LEN ' 


000000 


FOOONE 


004227 


HD.DBN= 


140000 


LERR 


004610 


FOLOOP 


004025 


HD.LBN= 


000000 


LER1 


005007 


FORERR 


004446 


HD.PRVs 


050000 


LER2 


005020 


FORMATS 


000001 


HD.RBN: 


060000 


LER3 


005004 


FPRI« = 


040000 


HD.REV- 


030000 


LFCTNT= 


000012 


FRCPY = 


000001 


HD.XBN= 


120000 


LFCTUSs 


000014 


FRDONE 


005030 


HEAD = 


000005 


LFERR 


004457 


FRSKP 


005023 


HERE 


004667 


LFINMS- 


000012 


FSER = 


000002 


HGHPBN 


001637 


LFIXIT 


005562 


FT.BUF= 


000000 


HIBYTEs 


177400 


LFORN 


004014 


FT.FLA= 


000003 


HI1BYT= 


177600 


LHERE 


004651 


FT. HI = 


000002 


HI2BYTS 


177700 


LKIP10 


004631 


FT.LOUs 000001 


HKIP 


004025 


LKIP12 


004407 


FUGOOO 


004166 


HKIP1 


004053 


LKIP2 


004064 


FWRO 


002126 


HOLD 


001712 


LKIP20 


004156 


FUTOON 


004232 


HOLDBN 


001576 


LKIP21 


004177 


Fl = 


000000 


HOLDPN 


001602 


LKIP22 


004335 


F2 = 


000003 


HOLRBN 


001600 


LKIP23 


004306 


F3 = 


A AAA A ^ 

000006 


HPREA 


002005 


LKIP24 


004320 


F4 = 


000011 


HSLIM 


001401 


LKIP25 


004424 


F5 = 


AAA/11 y 

000014 


HSTHI = 


000002 


LKIP27 


004345 


F6 


000017 


HSTLO = 


000001 


LKIP28 


004635 


F7 = 


000022 


Hi 


000055 


LKIP29 


004615 


F8 


000025 


H2 


000066 


LKIP30 


004674 


F9 


000030 


IMAGE - 


015763 


LKIP31 


004677 


GCR 


001471 


IMLEN = 


000003 


LKIP33 


0046S5 


GOBLK - 


011132 


IMSTAR 


002004 


LK1P4 


004605 


GOECC 


004012 


INOSECs 


000013 


LKIPS 


004547 


GOONE 


005440 


INI 


001733 


LKIP7 


004654 


GENCON 


005144 


INIRCT= 


020000 


LKIPS 


004150 


GETUNT 


005260 


INI TDD 


003255 


LKIP9 


004133 


GOBAO = 


000020 


INITIT 


003174 


LLEN s 


000015 


GOVER 


005275 


INITL 


005522 


LNORE 


005576 


G0VER1 


005267 


INITPT 


003233 


LNOERR 


004631 


GRP = 


000010 


INITP1 


003240 


LO s 


007777 


GRPCNT 


002147 


INIT5 


003203 


LOAD 


002756 


GRPCYL= 


000002 


INPEL = 


000007 


LOADER 


003035 


GSKIP 


005414 


INPERR 


004246 


L0AD2 


003006 


GSKIP1 


005320 


INST = 


000001 


L0AD3 


003012 


GSKIPi 


005341 


IRECAL 


001554 


L0AD4 


003031 


GSKIP3 


005363 


I SEEK 


001 S50 


LOADS 


002763 


GSR 


001472 


ISKIP 


004703 


LOBL - 


000040 


GST 


001470 


LAGAIN 


004532 


LOBYTE= 


000377 


GSTATS 


002377 


LAST = 


100000 


LOK 


005351 


GTFLAGs 


002000 


LBNBAD 


001777 


LONGTO= 


000001 


G1 


000060 


LBNCYL 


001626 


LOOP 


004115 


G2 


000033 


L8NFND 


004243 


LOOPP 


004204 


G3 


000036 


L6NH12= 


000012 


L00PP2 


004154 
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L00P1 

L00P2 

L00P3 

LOVER 

L0VER1 

L0VEP2 

L0VER3 

L0VER4 

L0VER5 

LPBN 

LRBN 

LREDO 

LSKIP 

LSKIP1 

LSKIP2 

LSKIP3 

LSKIP4 

LSKIP6 

LSKIP7 

LSKIP8 

LSKIP9 

LSND 

LTO 

LTRK 

L576 

NAINTRs 

NAINTW^ 

HANU - 

NARBAO 

MASK s 

HAXTRV= 

NENTLNs 

MIEN 

MNCNT 

MODE = 

MORE 

MSGLOP 

MS6LP2 

MSGLP3 

NSGLP4 

nSGOFFs 

nSGTBL 

NSG1 

nSGlLN« 

NSG2LN= 

MSG3LN5 

NSG4LN- 

NSG5LN= 

NS66LN- 

HS67LNS 

HULDN 

NULERR 

NULER1 

HULPC 

NULT10 

NULT2 

H.ER1 



002565 
002614 
004462 
005426 
005554 
005512 
005503 
005467 
005442 
004176 
004125 
005653 
004505 
004520 
004516 
005355 
004213 
004767 
00^363 
004701 
00534C 
00S314 
001735 
004014 
004311 
000016 
000017 
000200 
004572 
000000 
000010 
000002 
004260 
001747 
020000 
005147 
004365 
004437 
004444 
004435 
000001 
004016 
002605 
000016 
000022 
000016 
000022 
000026 
000035 
000016 
005310 
005312 
005363 
001405 
005316 
005276 
004033 



N.ER10 

H.ER11 

M.ER12 

H.ER13 

H.ER14 

N.ER15 

M.ER16 

M.ER17 

N.ER18 

N.ER19 

PI.ER2 

N.ER20 

N.ER21 

PI.ER22 

PI.ER23 

M.ER3 

N.ER4 

N.ER5 

N.ER6 

N.ER7 

PI.ER8 

N.ER9 

n512 ' 

M576 ' 

N 

NDLL = 

NEXT 

NEXT1 

fc^.XTS 

NG!> 

N6D1 

NNI 

NO 

NOCERR 

NOCRY 

NODLL 

NOERR 

NOFCT = 

N0600D 

NOINC 

NOLBN 

NOSEK 

MOTHER 

NOTR 

NOTY 

N0576 

Nun 

NUMD6N 
NUNLBN 
NUflRBN 
NUNXBN 
N1 

OCDONE 

OCLOOP 

OERR 

0ERR2 

OFATAL 



004217 
00'.226 
004237 
004263 
004274 
004305 
004316 
004324 
004335 
004347 
004046 
004400 
004413 
004433 
004464 
004057 
004075 
004107 
004121 
004142 
004160 
004206 
126736 
074161 
002140 
004000 
003262 
001732 
003267 
004264 
004305 
002142 
004342 
005223 
00353S 
004063 
004647 
100000 
004321 
004123 
004544 
004356 
005454 
004205 
005431 
005514 
002124 
004414 
004057 
004133 
004447 
002141 
004254 
004064 
003301 
003312 
004370 
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OFFSET 


0014 lO 


OVL -s 

WWW* • • ™ 


025760 


RBNTRKs 


000004 


OFF SI 2s 


000011 

WW ■ I 


OVRLAY 


003411 

W^^ 1 ■ 


RBNWRT 


005307 


0FFS76= 


000015 

WW I J 


OVS FIs 


015156 


RB . CMDs 


000002 


OK 


005041 


0VS.F2= 


020714 


RB.HI s 


000001 




004364 


OVS. F 3s 


027330 


RB.IM s 


000003 


ONE 


002151 


OVS F4s 


030502 


RB.LOUs 


000000 


ONLIN 


003164 


OVS. F 5s 


033512 


RCBUFEs 


004403 


ONLINE 


001557 


OVS. F 6s 


040056 


RCD 


006010 


OQUIT 


004415 


OVS. F 7s 


036534 


RCFIX 


004506 


ORFTAL 


004414 


0VS.F8= 


024454 


PCFXLP 


005377 


OVCNT = 


000023 

V V www w 


OVS. F 9s 


051676 


RCINONs 


000100 


OVER 


004572 


OVS.GIs 


011674 


RCINER 


004530 


0VER1 


005124 


0VS.G2s 


041074 


RCINITs 


000040 


0\/ER2 


005065 


0VS.G3- 


041222 


RCINLP 


004165 


OVE . F 1 = 


004014 


0VS.G4- 


042040 


RCL 


005620 


0VE.F2s 


004014 


0VS.G5~ 


052366 


RCLEN s 


000034 


OVE. F 3s 


004014 


0VS.G6s 


053526 


RCLP 


004024 


OVE.FAs 


004014 


0VS.G7s 


017640 


RCLP2 


004170 


OVE. F 5s 


004014 


OVS. 68s 


026326 


RCLP3 


004516 


0VE.F6S 


004014 


OVS. HI = 


032476 


RCLP4 


004444 


0VE.F7= 


004014 


0VS.H2s 


046344 


RCLP6 


004452 


OVE. F 8s 


004014 


OVS.MNs 


001040 


RCTBAO 


002000 

Wb WW 


0VE.F9s 


004014 


OV... s 


026400 


RCTBUFs 


013477 


OVE.GIs 


004014 


PAERR 


003400 


RCTCK 


004371 


0VE.G2s 


004014 


PA6AIN 


004072 


RCTCKO 


004700 


0VE.G3s 


004014 


PAGE 


003322 


RCTCKE 


004726 


0VE.G4s 


004014 


PAGER 


003355 


RCTCLP 


004426 


0VE.G5= 


004014 


PALPI 


003332 


RCTCLl 


004431 


0VE.G6S 


004014 


PALP2 


003343 


RCTCNT 


002162 


OVE. 67s 


004014 


PALP3 


003376 


RCTERR 


004665 


OVE.GSs 


004014 


PALP4 


003365 


RCTFMT 


001727 


OVE. His 


004014 


PARITYs 


000200 


RCTINI 


004014 


0VE.H2~ 


004014 


PARITIs 


000400 


RCTLBN 


001746 


OVE.HNs 


001364 


PARMTB 


004174 


RCTNGO 


004643 


OVLBLK 


002104 


PBNBUFs 


C10455 


RCTRLP 


00S16S 


OVLEN s 


000003 


PBUFE = 


004330 


RCTS12S 


000014 


OVLTBL 


002013 


PCNT 


002163 


RCTS76S 


000020 


OVL.FIs 


001231 


PCON 


004014 


RCTTOT 


001720 


0VL.F2= 


001660 


PDONE 


004312 


RCTUPO 


004014 


0VL.F3= 


000465 


PERR 


004174 


RCTULP 


004434 


OVL.FAs 


000776 


PHYSA s 


001000 


RCTURT 


005160 


OVL.FSs 


001411 


PLEN s 


000021 


RCTUT 


004427 


0VL.F6S 


000407 


PNG8LK 


004067 


RCV s 


000005 


0VL.F7S 


000551 


PNGP6 


004672 


RCVIWllT 


003437 


OVL.FSs 


000725 


PN6PNG 


004065 


RCVROYs 


000001 


0VL.F9S 000234 


PNGRO 


004131 


RCWERR 


005417 


OVL.GIs 


001531 


PRET 


004172 


RCXLP 


004644 


0VL.G2= 


000053 


PRIM s 


001000 


RC.FREs 


000000 


0VL.63S 


000307 


PRINRB 


003677 


RC.NULs 


100000 


0VL.G4= 


002142 


PRMBUFs 


011607 


RC.PRV- 


020000 


OVL.GSs 


000460 


PRHY = 


100000 


RC.SNOs 


030000 


0VL.G6= 


000525 


PROD s 


000000 


RC.UNU^ 


040000 


OVL. G7= 


000426 


OUESONs 


000200 


RDBLK 


001373 


OVL.G«= 


000401 


RBNBUFs 


014154 


ROBUF s 


010000 


OVL. His 


000406 


RBNLBN 


001620 


RDCMD s 


100000 


0VL,H2= 


001555 


RBNPCY 


001632 


RDLEN - 


000004 


OVL.«N= 


004316 


RBNRPTs 


000200 


RDONE 


004253 
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RDONE 1 

RD0NE2 

READ s 

READX 

READ1 

READ10 

READ11 

READ2 

READ3 

READ4 

READ7 

READS 

REA09 

REBUFEs 

RECAL 

RECIR s 

RECOV 

RECTMP 

REDO 

RELEN s 

REPEATS 

RESTAB 

RE TAD 

RETRY 

REVBUFs 

REVCNT 

REVCCTa 

REVLENs 

REVR8N 

REVSECs 

RFTL 

RLD 

RLOONE 

RLOOP 

RL00P1 

RNUHER 

ROVER 

R0VER1 

RPRin s 

RPT 

RPT1 

RQUIT 

RRC 

RRERR 

RRPL 

RSER s 

RTOON 

RTRY s 

RTY s 

RTYCNT 

RTYDN s 

RUN 

RUCND - 
RUGD 
RU600D 
RURDY s 
RUTDON 



004257 

004303 

000002 

004713 

004600 

004S26 

004120 

004751 

004562 

004736 

004104 

005654 

004175 

004535 

002751 

040C0O 

002166 

002170 

005224 

000025 

001 OOC 

004303 

004412 

002165 

012264 

001741 

000100 

000004 

001634 

000007 

006150 

006140 

004404 

004157 

004217 

005372 

004047 

004065 

000004 

004510 

005103 

004315 

005S43 

004626 

004631 

000000 

004662 

000001 

100000 

002156 

000002 

001476 

013400 

004616 

005351 

100000 

005415 



RU.BUF* 

RU.CMDs 

RU.DAT* 

RW.DUM* 

RW.EDC* 

RW.ER1« 

RU.ER2- 

RU.E76* 

RU.HI s 

RW.LOys 

Ry.STAs 

SBUFE s 

SCR 

SECCN 

SECCNT 

SECNDY 

SECNO 

SECSIZ 

SECSI6S 

SECSI8> 

SECTCY 

SECTRK 

SECT12 

SECT76 

SEEK 

SEEKER 

SEEKO 

SEEK1 

SEEK2 

SEEKS 

SEEK4 

SEEK5 

SEEK6 

S£EK7 

SEN» s 

SER80 

SERCQN 

SERNUH 

SEMX 

SEMIT 

SETOVL 

SETRET 

SETSIZ 

SETS12 

SFTRPT 

SHOIITOs 

SIP = 

SKERR 

SKIP1 

SKIP19 

SKIPS 

SKIP4 

SKIPS 

SKIP3 

SKIP7 

SKPCNT 

SLAS s 



OOOOOi 
00000 
000000 
000006 
000400 
000001 
000401 
000440 
000004 
000003 
000000 
004353 
001525 
005016 
002137 
004265 
005031 
002171 
000400 
000440 
001614 
001606 
001612 
001610 

003133 

003150 

003123 

003131 

003122 

00311 5 

000004 

005055 

005034 

001772 

005065 

005101 

004465 

004412 

004301 

004407 

005434 

000000 

000012 

004370 

004164 

00414 

00424 

004145 

004070 

004310 

004251 

001716 

000057 
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SLEEK 
SLEEK2 
SLEN > 
SLOOP 
SND 

SNDCNT 
SNDLP 
SNDHNT 
SNDRES 
SOOT = 
SRCK 
SS = 
SSBIT = 

:t 

STACK 

STARIT 

START 

START2 

STARTS 

STASEC 

STATFR 

STATRE 

STATRT 

STATST 

STATUS* 

STATVL 

STCKSV 

STCLR = 

STCYL = 

ST06N = 

STDIAG 

STFLAG* 

STFORN 

STLBN = 

STO 

STPNIC 

STRBN ' 



004174 
004211 
000026 
004505 
005301 
002155 
004620 
003425 
004557 
016747 
002472 
100000 
000001 
001503 
001700 
001715 
004014 
004201 
004356 
001574 
003605 
003565 
003603 
002401 
000007 
003562 
001701 
170377 
000001 
000003 
002512 
004000 
002502 
000002 
001736 
002557 
000003 



STSC s 


000012 


THREB - 


000011 


STSKP 


002553 


TILOP 


005150 


STSKi 


002422 


TIL0P1 


005156 


STULK 


002522 


TIMER 


003545 


STXBN = 


000002 


TIMLOP 


005106 


ST.DB = 


001000 


TIML01 


00510? 


ST.DBN 


002012 


TIMLP 


003550 


ST. OF = 


000020 


TIMTBL 


004342 


ST. OR = 


000040 


TI«VAL= 


100000 


ST.ERB= 


000002 


TKIP1 


004042 


ST.ERR= 


000374 


TKIP11 


004257 


ST.FO = 


002000 


TKIP12 


004174 


ST. IN = 


000004 


TKIP13 


004313 


ST. LBN 


002007 


TKIP14 


004310 


ST. PS = 


000002 


TKIP2 


004044 


ST.RBN 


002010 


TKIP3 


004271 


ST.RU = 


000001 


TKIP4 


004247 


ST.SR = 


000020 


TKIP5 


004162 


ST.UE = 


000010 


TKIP7 


004224 


ST.WP = 


170000 


TKIP8 


004133 


ST.XBN 


002011 


TKIP9 


004145 


SWAP 


004237 


TMPTRY 


002167 


S'JRD 


002127 


TOTRCT 


002160 


TALI PI 


002700 


TRK = 


000011 


TALK 


002563 


TRKCNT 


002150 


TALKON 


002632 


7RKCYL 


001624 


TALKIP 


002676 


TRKGRP= 


000003 


TALKP 


002653 


TWO 


004675 


TALKRT 


002644 


TWOB - 


000006 


TATTN1 


002742 


TWOC 


002153 


TBLK 


001717 


TURD 


002130 


TBUFF 


004261 


UOAFM = 


001000 G 


TBUFFL* 


000051 


UERR 


003316 


TCLEAR 


002662 


UHASH 


004360 


TEUP 


001410 


UHKIP 


004367 


TE«P2 


001405 


UHKIP1 


004415 


TERR 


002735 







. ABS. 055000 000 
000000 001 
ERRORS DETECTED: 0 

VIRTUAL MEMORY USED: 17056 UORDS ( 67 PAGES) 
DYNAMIC MEMORY AVAILABLE FOR 71 PAGES 
,B:UDAF52.LST/C=C30,3030MAC52/M,B:U0AF52 



K U 



SEO 179 



UIO = 


000000 


URITE9 


005137 


UNIT 


001412 


URIT10 


006060 


UNITBO 


005006 


URIT12 


004324 


UNITCN 


004774 


URIT13 


005442 


UNITRT 


005004 


WRN 


004243 


UNNO 


001413 


URNLN = 


000040 


UNSEC = 


000175 


XAGAIN 


004700 


UN.ERI 


001371 


XBBAD 


002002 


UN. ERR 


001367 


XBBUFE* 


004477 


UN.ERT 


001370 


XBLEN ' 


000034 


UN.SEK 


001372 


XBNCYL- 


000021 


UPDATE* 


000022 


XBNFND 


004075 


UPDPNT 


002157 


XBNIT 


004154 


UREAD ' 


000013 


XBNSEC 


001622 


USOFCT 


004656 


XDONE 


004431 


UURITE* 


000014 


XEORCT 


004765 


VAXTME 


005505 


XFLIP 


004722 


VERHD 


004734 


XNG6LK 


004675 


VLD - 


000004 


XNOINC 


004731 


VLD1 = 


000010 


XPBN 


004357 


VI 


OOOOOC 


XPERR 


005004 


V2 


000002 


XPNGRD 


004737 


V3 


000004 


XPRET 


005001 


V4 


000005 


XSKIP1 


004030 


ULOOP 


005021 


XSKIP2 


004154 


WP a 


000001 


XSKIP3 


004150 


URBLX 


001373 


XSKIP4 


004236 


URCMD s 


122400 


XSKIPS 


004272 


WRFLG 


001705 


XSKIP6 


004266 


tfRITE = 


000003 


XSKIPS 


004313 


yRITEl 


004267 


XSLEEK 


004066 


URITE2 


004545 


XSLEK2 


004102 


URITE3 


005276 


XYZ 


004770 


URITE4 


004250 


XYZ1 


004772 


WRITES 


004113 


Y = 


000131 


WRITES 


004304 


YES 


004300 



L U 



UDAF52 - UDA-52 FORMATTER OHACR X04.01 23-AU6-82 13:U:22 PAGE S-1 
CROSS REFERENCE TABLE (CREF V04.00 ) 



SEQ 



ACC 

ACCESS 

AGAIN 

ALL0V1 

ALLOVR 

AOUT 

ATTN 

ATTN1 

BADE 76 

BAOEDC 

6A0PBN 

BADRBN 

BO 

BOND 

BOIRCT 

BOLST 

BOTST 

BITO 

BIT1 

BIT10 

BIT11 

BIT12 

BIT13 

BIT14 

B1T15 



BIT2 

6IT3 

BIT4 

BITS 

BIT6 

BIT7 

BITS 

BIT9 

BLANUD 

BLKFNO 

BMAX 

BOTTOM 

BRBN 

BREAK 

SSTGS 

BUF1 

BUF10 

BUF1T 

BUF2 

BUF3 

BUF4 

BUF5 

6UF6 

BUF7 

BUF8 

BUF9 

6UFMSK 

BUFPNT 



5- 54 

12- 42 
50-71 # 
17-19 
17-9 

13- 194 
3-1 72# 

13-193# 

6- 22f 
6-20# 
5-148# 

74-79 
3-31 8# 
3-251 f 

56-119 
3-363# 
3-258# 
3-1 08# 
3-1 09# 
3-1 18# 
3-1 19f 
3-1 20# 
3-1 21 f 
3-1 22# 
3-1 23f 

66-27 

91-137 
3-1 10# 
3-11 If 
3-1 12# 
3-1 13# 
3-1 14f 
3-1 15f 
3-1 16# 
3-1 17# 
3-327# 

80-69 
3-371 # 

66-59 

56-123 
3-51# 
3-235f 
3-340# 
3-349f 
3-350# 
3-341 f 
3-342f 
3-343# 
3-344# 
3-34 5f 
3-346# 
3-347f 
3-348# 
3-1 37f 
5-1 75# 

74-254* 



5-70# 

12- 50 
50-107 
17-21# 
17-17# 

13- 196 
13-143 
13-198 
56-259 
56-261 

49- 42* 
74-1 74f 

50- 99 
56-115 
56-1 99f 
91-9 
9.-53 

3-173 
3-172 
3-185 
3-236 
3-159 
3-182 
3-182 
3-142 

70-44 

93-44 
3-138 
3-139 
3-183 
3-181 
3-227 
3-140 
3-141 
3-184 

83-8 

80-72f 

43-14 

66-71 

56-1 64# 

30-18 
3-341 
3-350 
3-351 
3-342 
3-343 
3-344 
3-345 
3-346 
3-347 
3-348 
3-349 

56-151 

59-7* 

78-29 



46-77* 
12-54 



13-199# 



12-59 13-119f 



58-60 








58-62 








50-8* 


52-64 


52-80* 


54-8* 


50-101 


50-114 


56-51 


56-53 


56-162 


56-197 


56-206 


56-216 


56-207 








91-100 


91-162 






91-60 


91-62 


91-77 


91-146 


3-179 


3-225 


3-246 




3-180 


3-229 


3-247 


46-50 


3-235 


3-256 






3-257 








J I oc 




^-758 


3-313 


3-237 


3-259 


66-58 




3-238 


3-260 


3-320 




3-158 


3-171 


3-182 


3-240 


70-114 


75-49 


76-87 


78-39 


3-186 


3-232 


3-248 


46-53 


3-187 


3-226 


3-249 


46-56 


3-188 


3-230 


3-250 




3-231 


3-251 


35-16 




3-252 








3-233 


3-253 






3-234 


3-254 


69-10 


73-9 


3-228 


3-255 






66-85 


66-1 07f 







49-37 
3-355 
3-364 
3-365 
3-356 
3-357 
3-358 
3-359 
3-36C 
3-361 
3-362 
3-363 
56-180 
66-39* 
78-52 



52-61 55-80 56-8 



56-274 
69-39* 
78-93 



70-8 
80-13* 



73-37* 
80-51* 



56-66 
56-231 



91-153 91-155 



3-292 3-318 3-319 50-83 50-140 56-35 56-93 
78-107 85-57 86-50 87-45 87-115 89-57 90-52 



65-99 
91-44 



65-21 65-129 78-135 80-94 80-99 82-148 89-101 



74-21* 
80-60* 



74-43* 
89-6* 



74-68* 
89-16* 



74-133* 
93-13 



74-206* 74-215* 74-220* 74-246* 



n u 



U0AF52 - UOA-52 FORMATTER DHACR X04.01 23-AUG-82 13:14:22 PAGE S-2 
CROSS REFERENCE TABLE (CREF V04.00 ) 



SEQ 181 



C512 

C576 

CBUF 

CDONE 

CEDC 

CHAR 

CHRDNE 

CKERR 

CKR 

CKR1 

CKSS 

CLBUF 

CLEAR 

CLEDON 

CLELP 

ClELP2 

CLESKP 

CLEURT 

CLHERE 

CLRBUF 

CLRLP 

CLSKP2 

CLSKP3 

CLSICP4 

CMDBUF 

CMPOAT 

CNLP 

CNLP1 

CNT 

CNTCYL 
C0N1EX 
C0N6AD 
C0N6LK 

C0ND01 

CONDON 

C0NER1 

CONERR 

CONEXT 

CONGRP 

CONINT 

CONLOW 

CONON 

COUNT 



CR 

CR.ACC 
CR.CLR 
CR.DIS 
CR.ERV 
CR.GCR 
CR.GSR 
CR.GST 
CR.ONL 



3-288# 


49-43 


49-44 


3-289# 


74-27 


80-32 


6-1 2# 






50-1 1 1 


50-179 


50-198* 


18-7* 


50-158 


56-156 


93-24 






12-58 


12-61* 




3-239* 


12-61 


12-67 


47-9 


47-11* 




85-101 


85-103* 




92-25 


92-27* 




47-4* 


48-10 




3-364* 


85-10 


85-31 


12-22 


13-127* 


49-93 


81-50 


81-55* 




81-24* 


81-46 




81-20* 


81-49 




81-27 


81-43* 


81-54 


81-51 


31-57 


85-4* 


85-7* 


85-73 




82-136 


83-6* 




83-9* 


83-11 




81-42 


81-51* 




81-14 


81-56 


81-58* 


81-40 


81-57* 


50-112 


3-360* 


50-70 


3-57* 


50-93 


56-45 


31-16* 


31-43 




31-1 5* 


31-45 




5-171* 






6-32* 


49-36* 


49-54* 


37-11 


37-13* 




22-43 


37-6* 


19-27 


6-6* 

87-10 


19-5 


89-25 


90-24 


31-48* 


31-53 




31-14 


31-32 


31-46* 


31-18 


31-20 


31-51* 


31-30 


31-49* 




37-9 


37-12* 




94-18 


94-30 


94-44 


/)0-21* 


48-12 




31-35 


31-44* 




23-26 


23-48* 




6-50* 


46-7* 


46-29* 


65-141* 


76-43* 


76-128* 


90-14* 


90-104* 


90-108* 


5-50 


5-75* 


21-6 


5-54* 


13-120 




5-55* 


13-128 




5-52* 


13-171 




5-58* 


17-26 




5-50* 


12-63 




5-51* 


12-65 




5-49* 


12-14 


46-12 


5-59* 


13-179 





74-29 80-34 



58-170 65-72 68-24 70-59 75-25 76-64 78-54 85-33 87-60 89-72 90-67 



50-193 55-63 56-290 



51-7 
56-111 



56-22 



56-64 57-7 



49-54* 49-109* 49-114* 55-15* 55-17* 55-18* 55-116 55-123 55-125 91-106* 91-107* 91-159* 



65-13 
92-5 



95-4* 



68-14 
92-28 



70-13 
93-15 



75-9 



76-45 78-13 85-23 85-81 85-104 86-12 86-76 



46-30* 46-33* 46-83* 50-7* 



90-112 
41-6 



52-72* 
81-38* 



52-81* 
81-41 



42-4 



43-27 43-46 43-70 45-4 



54-7* 
81-52* 

47-6 



65-8* 
81-55* 

65-144 



65-57* 65-134* 65-138* 
85-6 85-71* 85-72* 



N U 



UDAF52 - UDA-52 FORHATTER DHACR X04.01 23-AUG-82 13:U:22 PAGE S-3 
CROSS REFERENCE TABLE (CREF V04.00 ) 



SEO ^6^ 



CR.RCL 

CR.RUN 

CR.SEK 

CS 

CS1 

CSKIP 

CSKIP1 

CSKIP2 

CSKIP3 

CSKIP6 

CSICIP7 

CURBN 



CURGRP 

CURLBN 
CUROVL 

CURPBN 



CURPNT 
CURRBN 

ruRTRK 



CURXBN 



CUTOF 
CVT 

CVTERR 

CVTSK 

CYL 

CYLBN 

CYLNUn 



OADD 



0A001 

DASH 

DATA 

OATAGN 

OATBUF 

DATCON 

DATE 

OATERR 

OATLP 



5-57# 
5-53# 
5-56# 
85-30 
89-38 
50-57 
50-66« 
50-61 
50-169 
50-U9 
50-115 

5- 94# 
58-28 

65- 75 
74-177 
89-36 
94-104* 

6- 35# 

66- 121 
5-96# 
5-127# 

79-11* 

5- 91 # 
58-198* 
94-103* 

6- 44# 
5-89# 

* 81-43* 
5-93# 

65- 83 
85-42 
92-13* 

5-98# 
89-105* 
91-128 
5-1 62# 
3-67# 
19-24 
19-5# 
3-269# 
3-83# 
5-1 08# 

66- 14 
91-24 

7- 1 9f 
63-31 
87-25 

7-24 
22-83# 
3-101# 

25- 21 
22'72» 
22-13 

5-186# 

26- 13 
25-9# 



13-80 
13-87 
13-138 
85-81 # 

90- 32 
50-62# 
50-109 
50-65* 
50-172* 
50-154* 
50-123 
49-57* 
58-33* 

65- 88 
74-185 
89-46 
94-105* 
49-63* 
74-231 
76-40* 
15-10 
80-11* 
52-66* 
74-48* 
94-104 

91- 9* 
55-109* 

19-12* 

66- 12 
85-89* 
93-29 
65-9* 
89-106 
91-156* 
41-15 
19-11 
19-26* 

65- 80 
19-13 
40-69 
40-172* 

66- 16 
91-25 

9-23 
64-22 
87-85 

7-26* 
25-12 
43-91 
25-40 
25-6 
25-4* 

25- 51 

26- 14 
25-17 



87-26 
92-5* 



50-175* 

49-59* 

58-33* 

65- 90 
74-187 
89-48 

49-64* 

76-155 

76-42* 

15-29* 

81-9* 

52-70* 

74-49* 

94-105 

91-66 

55-110* 

49-77* 

66- 118* 
86-33 

65-11* 
89-107 
91-156* 



68-21 

19-14 

40-70 

40-173* 

66-112* 

91-116* 

24-13 

65-124 

89-95 



25-55* 

25- 19 

65-59 

26- 16 
25-34 



87-96 



49-102* 

58-152 

65-122 

76-39* 

89-93 

49-67 

91-13* 

76-138* 

49-10* 

88-10* 

52-89* 

94- 6* 

95- 7 
91-75* 
58-66 

49-83 
68-33 
87-38 

65-135* 
91-5* 



85-88 92-12 



70-25 

19-28 

40-94 

49-65 

66-115* 

91-116* 

40-157 

66-38 

90-97 



25- 26 

26- 18 



49-103* 

60-12* 

65-136* 

76-41* 

89-106* 

49-106* 
91-26 
76-138* 
52-11* 

93- 7* 
52-89* 

94- 8 



52-23 

60-14* 

65-137* 

76-60 

89-107* 

52- 40* 
91-71 
76-139 
55-8* 

53- 19* 
94-15 



52-25 
63-5 
74-52 
76-76 

90- 10* 

52- 44 

91- 90* 
76-140 
58-6* 

53- 20* 
94-20 



52- 30* 
63-6 
74-56 
76-78 

90- 12* 

55-29* 

91- 103* 
90-11* 
60-9* 

53- 40* 
94-28* 



52- 30* 
63-27 
74-60 
76-110 

90- 31 

55-30* 

91- 119 
90-13* 
65-7* 

53- 41* 
94-32 



53-15 

63-28 

74-82 

76-139* 

90-40 



53-36 

65-10* 

74-84 

76-140* 

90-42 



55-100* 

65-12* 

74-121 

89- 21* 

90- 95 



55-101* 

65-43 

74-123* 

89- 23* 

90- 106* 



58-26 
65-74 
74-125 

89- 35 

90- 107* 



55-33 55-113* 56-291 58-90* 58-94 



90-105* 
66-11* 

58-111* 
94-40* 



90-105* 
70-7* 

58-112* 
94-61 



90-106 
74-8* 

58-119* 
94-74 



90-107 
76-6* 

58-123* 
94-81* 



78-7* 

58-198* 
94-85 



58-68 58-73* 58-73* 60-17* 60-18* 81-17* 81-18* 81-34 81-36 81-43* 



49-98* 

70-37 

87-99 

65-135* 
91-6* 



70-95 

85-90 

40-95 

49-66 

74-11 

91-117 

40-164 

68-72 

91-83 



25- 32 

26- 20 



50-137 

70-98 

89-41 

65-136 
91-33 



75-22 

85-91 

40-148 

49-111 

74-13 

91-118 

40-183 

69-38 

91-112 



50-183 
74-9 

90- 35 

65-137 

91- 35 



76-61 

85-105 

40-149 

49-120 

74-224* 

40-204 

70-84 

93-69 



51-27 

74-230* 

91-18* 

74-97* 
91-63* 



78-19 
92-14 
40-150 
55-14* 

40-246 

73-36 

94-25 



55-47* 

75-34 

91-40 

74-98* 
91-63* 



78-87 

92-15 

65-15 

55-16* 

76-23 

42-28 
74-67 
94-35 



55-53 55-87* 56-91 56-280 

76-21 76-73 76-154* 78-32 

91-73 91-78* 91-95* 91-104* 

74-100 74-101 89-20* 89-22* 

91-84* 91-85* 91-114* 91-115* 



57-27 
78-90 
91-133 

89-105* 
91-126 



86-30 93-21 
92-29 

65-17 89-26 89-28 

55-19 55-31 55-32 

76-25 76-148* 76-151* 

53-12 53-14 53-16 53-35 53-37 

74-132 75-74 76-33 76-112 78-75 

94-76 94-97 



91-19 91-21 
55-120 55-142 
91-20* 91-22* 



26-21 26-34 26-40* 



B IS 



UDAFS2 - UDA-52 FORMATTER DHACR X04.01 23-AU6-82 13:14:22 PAGE S-4 
CROSS REFERENCE TABLE (CREF VOA.OO ) 



SEQ ie 



0ATLP1 

0ATLP2 

DATRET 

0ATRT1 

DATVER 

DATVL1 

DATVL2 

DAYS 

DB6AD 

DB8UFE 

DBLEN 

DBN 

DBNCYL 

OCLR 

DCHP 

0CHP1 

DCHP2 

DCHP3 

DCW4 

DPIV 

DDumv 



DEAD 

DEBUG 

DECALP 

DECASC 

DINIT 

DIS 

DISCON 

DLERR 

DLERT 

DLL 

DLLDN 

DLLDN1 

DLLFLE 

DLLNO 

DLLRET 

DLLRT1 

DNBUF 

OMBUFL 

DPM. 



DOLBN 

DONOLL 

DONE 



25-29# 
25-4 5# 
25-41 
25-54* 

25- 38 

26- 31 
26-36 

22- 86# 
5-191* 

82-79 
82-78 

3-226* 

3-93* 

5-55 
11-14* 
11-19 
11-20 
11-30 
11-21* 
10-1* 

5-32* 
38-80* 
40-155* 
40-200* 
43-19 
55-107 
62-18 
66-25* 
72-12 
76-121* 
85-52* 
95-5* 

3-250* 

23- 4 
84-8* 
82-140 

3-60* 

5-52 
13-170* 
79-20 
65-161* 

3-234* 
30-10 
30-13* 
22-37 
30-7 
65-130 
65-132 

5-183* 

3-279* 

9-1* 
43-8 
94-95 
40-8 
65-48 

3-68* 



25-31 
25-47 
25-53* 

25- 60 

26- 12* 
26-33* 
26-39* 
38-6 
49-17* 
82-82* 
82-84* 

49- 12 
40-158 

5-72* 
74-58 
11-29* 
11-25* 
11-35* 
11-37 
20-22 
20-19* 

38- 83 
40-156 
40-201* 
43-58* 
56-128* 
63-17* 
66-26* 
73-31 
76-122 
85-69 
95-6 
14-25 

39- 4 
84-27 
84-7* 
13-61 

5-67* 
17-16 
79-28* 

30-9 

30-12* 

30-24 

30-4* 

30-8 

65-149* 

65-143* 

16-17 

16- 18 
20-28 

50- 24 
95-48 

40- 11* 
65-151* 

17- 21 



26-41 
82-127 



49-20 
49-33 
12-21* 
76-124 

11-36 



40-187 

20-20* 

40-24* 

40-161* 

40-203 

43-59* 

56-133* 

63-18* 

66-27* 

73-33* 

78-8* 

86-28* 

17-18 



13-191 
81-62 

50-56 
30-18* 



16-28 
16-29 
38-19 
50-41 



81-64 



49- 31 

50- 17 

80-68 



40-199 

20-21 

40-25* 

40-162* 

40-205* 

43-61 

56-136 

63-19 

66-30* 

74-97 

78-9* 

86-71 



13-210 



52-16 
80-79 



40-208 

20-25* 

40-30 

40-163 

40-206* 

52-44* 

58-94* 

63-23* 

66-31 

74-98 

78-11 

87-21* 



94-9 



43-62 

20-26* 

40-80* 

40-179* 

40-207 

52-45* 

58-95* 

63-24* 

67-10* 

74-100* 

78-23 

87-22* 



94-13 



63-20 

20-27 

40-81* 

40-180* 

40-211* 

52-47 

58-97 

63-25 

67-11* 

74-101* 

78-25 

87-23 



67-14 

24-6* 

40-83* 

40-182 

40-212* 

52-49* 

58-99* 

63-27* 

67-12 

75-7 

78-73 

94-22 



72-14 

24-7* 

40-84* 

40-184* 

40-213 

52-51* 

58-101* 

63-28* 

68-6 

75-72 

78-84 

94-34 



52-14 74-89 74-166 74-192 74-204 74-213 



84-14 

24-8 

40-85 

40-185* 

40-243* 

55-96* 

61-20* 

63-29* 

68-70 

75-81 

78-95 

94-52 



95-8 

38-12* 

40-128* 

40-186 

40-244* 

55-97* 

61-21* 

63-30 

68-79 

76-30* 

78-97 

94-63 



95-23 

38-13* 

40-129* 

40-195* 

40-245 

55-98 

61-22 

64-19* 

69-32 

76-31* 

84-10* 

94-75 



95-32 

38-17 

40-130 

40-196* 

43-16* 

55-105* 

62-16* 

64-20* 

72-10* 

76-32 

84-11* 

94-96 



95-58 
38-78* 
40-154* 
40-198 
43-17* 
55-106* 
62-17* 
64-21 
72-11* 
76-120* 
84-13 
95-4* 



17-11 46-6 



38-85 
52-48 



40-32 
52-56 



65-40 79-12 81-10 82-121 82-123 96-7 

40-48 40-60 40-75 40-100 40-132 40-141 
58-98 58-106 61-10 62-10 63-26 64-18 



40-214 
94-21 



40-242 
94-33 



41-14 
94-62 
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SEQ 184 



DONFCr 
OONONE 
DP8N 
DPREA 

DSUB 



OUPOVL 

OWRO 

DXBN 

DXCH 

DXCHEC 

DXERR 

0XFCP1 

DXFCPG 

DXFORH 

DXTRK 

EAGAIN 

ECC 

ECCCK 

ECCF 

ECHO 

FOC 

E0C76 

E IMAGE 

EMAX 

ENTRY 

EORCT 

ER1 

ERCV 

ERON 

ERECOV 

ERFLAG 

ERLEN 

ERPNT 

ERR 

ERRBUF 

ERRCNT 

ERRHNO 

ERRHNT 



ERROR 

ERRSYN 

ERRT 

ERRTBL 

EXTFCT 

EXTRET 

EXTRT1 

Fl 

F2 

r3 

F4 



82-153 

25-11 

52-18 

5- 196# 

86- 47 
8-2# 

55-118 
78-86 
3-325# 

6- 16# 
40-10 
50-54f 
49-97 
49-119 
52-84 
49-41 

49- 13 
52-1 2# 
18-9# 

3-64# 

21 - 6# 
3-31 3# 

87- 54 
3-59# 
6-1 9f 
6-21 # 
5-1 55# 
5-1 50# 
5-5# 

73-14 

50- 146 
3-79# 
3-249# 
5-58 
5-146# 
3-308# 
5-1 74# 
5-1 52# 

5- 1 49# 

6- 27f 
17-25# 
93-58 

12- 72 
55-144 
90-113 
65-128 

3-78# 

13- 48# 
96-12 

22- 31 
36-9 
36-20 

3-201 # 
3-202# 
3-203# 
3-204f 



82-1 57# 
25-13 

53- 8* 
43-91* 
87-112 
10-27 

55- 122 
87-95 
24-5 
40-221 
40-1 2# 
50-197 
50-53# 
49-1 22# 

54- 4# 
49-47 

49- 21 

18-16 
21-14 

50- 151 
50-90 
89-64 

40-232 

64- 43 
40-247* 
43-23* 

73-41# 
50-153 
43-28 
17-8 
5-82# 
50-55* 

56- 186 
43-13* 
50-54* 
43-12* 
49-16 

65- 113 

13-49 

65-161 

92-30 

65-1 59# 

21-7 

13-57 

97-4# 

36-6# 

36-23# 

36-24# 

40-9 

40-11 

49-27 

55- 71 



25-15 25-1 8# 



43-92* 

93-41 

24-9 

58-229 

90-9 


49-80 

40-86 
61-23 
93-12 


50-180 

40-171 

62-19 

9?-78 


55-50 

42-30 
66-22 
94-11 


56-277 

43-20 
68-81 
94-17 


65-96 

49-101 

70-94 

94-73 


68-45 

49-113 
74-17 


70-111 

50-29 
74-35 


75-46 

50-46 
74-2*5 


76-85 

55-21 
75-83 


78-104 

55-99 
76-38 


85-54 

55-108 
76-123 


50-154 


56-108 


56-238 


64-28 


















50-4# 
49-30# 
























56-104 

50-97 

89-66 


70-54 

50-148 

90-59 


78-49 

50-150 

90-61 


87-55 
56-42 


89-67 
56-49 


90-62 
56-101 


56-103 


70-51 


70-53 


78-46 


78-48 


87-52 


58-17 


86-3 






















51-31 
55-67 


51-34 


52-58 


52-86 


52-94 


57-31 


57-34 


58-108 


58-195 


58-215 


64-23* 





50-155 50-1 62# 



17-10 

17-25* 

50-167* 

66-108 

55-74* 

5P-103* 

55-74 

49-18* 

68-61 

13-72 
68-88 
93-85 

45-5 
13-59 



49-10 
55-8 
65-7 
55-130 



50-178* 


56-7* 


56-211* 


56-235* 
















56-183 

50-110* 

66-23 

49-24 

70-75 


56-212 
50-173* 

49-26* 
70-128 


56-222* 
50-176* 

50-168* 
75-63 


56-6* 

55-133 
76-101 


56-56* 

56-164* 
78-65 


56-62* 

56-224* 
78-121 


56-229* 

91-4* 
86-64 


56-233* 

91-76* 
87-76 


91-98* 
87-129 


91-163* 
89-83 


90-85 


13-115 
69-54 


13-221 
70-140 


14-30 
73-52 


17-8# 
75-89 


19-29 
76-174 


31-50 
78-142 


32-15 
79-30 


33-32 
80-104 


46-88 
85-106 


47-12 
87-141 


49-122 
89-113 



45-7* 



78-137 

65- 149 

66- 11 



80-96 
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SEQ 185 



F5 
F6 
F7 
F8 
F9 

FBDHO 

FBEG2 

F8EGIN 

FCFXLP 

FCLR 

FCnSG 

FCNT 

FCPG 

FCTAVL 

FCTBAD 

FCTCK 

FCTCKD 

FCTCKE 

FCTCL1 

FCTCLP 

FCTCNT 



FCTCPY 

FCTEHT 

FCTFL6 

FCTFHT 

fCTNOT 

FCTNPO 

FCTPTR 

FCTRCT 

FCTREV 

FCTRLP 

FCTSK1 

FCTSKP 

FCTSLP 

FCTSP 

FCTSUB 

FCTSZ 

FCTUSD 

FCTyRT 

FCUERR 

FDAT 

FDLL 

FERR 

F I DANS 

FIDNUL 

FILLIT 

FINCHK 

FINDON 

FINI 

FINLEN 

FINLN1 

FINPfSG 

FIXBLK 



3-205# 
3-206# 
3-207# 
3-208# 
3-209# 
3-'59# 

74-48« 

74-41 

93-74# 
3-1 35# 
5-1 93# 
5-164# 

58-201 
3-225# 
3-232# 

88- 12 

89- 92 
89-100 
89-34# 
89-32# 

5-1 78# 
79-15 
93-81* 

5-1 68# 

87- 82 
3-229# 
3-291 # 
5-1 66# 

82-22# 
5-1 80# 
5-1 77# 

)74-8#- 
5-l88# 

93-1 4# 

74-96 

74-90 

74-167 

74-39 
5-1 65# 
3-98# 

82-1 6# 

93-7# 

93-73 
3-290# 

65-5# 

49-91 

28-7 

35-15 

74-77 

88- 1 0# 
34-14 

3-238# 
31-6 
34-1 2# 
82-1 Of 
76-127 



55-85 

59-8 

55-82 

55-48 

74-207 

58- 179 
74-212 
74-4 3# 
93-80 
42-7 
65-41 
49-15 

59- 4# 
36-10 

78- 135 
89-4# 
89-1 01 # 
89-1 11# 
89-99 
89-109 
49-40* 

79- 29 

42-8* 

89-98 

49-49 

65-38* 

42-10* 

82-24 

40-215* 

74-4.6* 

49-14 

93-71 

74-1 03# 

74-102 

74-1 73# 

74-214 

40-209* 

42-10 

82-18 

93-83f 

65-63 

49-1 17# 
30-5 
35-20# 
74-185# 

34-18 

55-129 

34-10# 

34-20 

82-12 

77-6# 



74-8 

74-22 

74-36 

58-6 

74-216 


76-6 
74-44 

74-255 


74-221 
80-52 


74-247 
89-17 


78-7 
93-7 


80-14 


80-61 


89-7 




74-205 


74-209 
















43-48 
79-13 
49-19 


43-72 
49-23 


65-147 
49-43* 


52-73* 


58-39 


58-126* 


80-35* 


80-54* 


80-70* 80-83* 80-85* 80-90 


40-7 
80-94 


55-9 
80-99 


58-113 


65-143 


78-136 


80-16 


80-63 


80-95 


80-100 



49-46* 


52-83* 


74-15 


74-20* 


74-42* 


74-219* 


80-12* 


80-56* 


80-59* 


89-4* 


89-19* 


89-104* 


65-125 


65-127 


65-140* 


65-148* 


68-73 


68-75 


90-100 


93-70 


93-72 








52-61 


52-75 


58-115 


58-128 


59-5 


80-37 


80-26 












42-11* 


65-123 


65-141 


78-74 


78-85 


89-94 


82-150 












40-216* 


65-138 


89-5* 


89-108 






74-47 


74-91 


74-168 


74-194 


74-199* 


74-210 


49-19* 


49-22 


49-44* 


80-90* 







74-107* 

74-21 8# 
40-210* 

82-154 



50-191 
35-12* 
35-22 



34-21 # 
66-119 



82-114 



V4-243 
89-108* 

70-81 



74-257* 
89-112 



74-257* 
93-10 



78-8 
93-67 



78-129* 
93-76 



78-131* 
93-81* 



75-75 75-77 76-113 76-115 7»-71 



93-68 93-77 



74-42 80-59 



36-7 



37-7 
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SEQ 186 



FIXFCT 

FIXIT 

FIXLP 

FKIPl 

FKIPIO 

FKIP2 

rKIP9 

FKPl 

FLAG 



FLAG1 



FLIP 

FLIPON 

FLK1P1 

FLK1P2 

FLKPI 

F«STL 

fHTSTA 

FOOONE 

FOLOOP 

FORERR 

FORMAT 

FPRin 

FRCPV 

FRDONE 

FRSKP 

FSER 

FT.BUF 

FT. FLA 

FT. HI 

FT. LOW 

FUGOOO 

FURD 

FUTOON 

G1 

G2 

G3 

G4 

G5 

G6 

G7 

G8 

GCR 

GOeLK 



74-99 

50- 65 

77- 1 5# 

51- 21 
51-39 
51-15 

57- 39 
51-33 

5-1 AA# 
A9-20* 

55- 129* 

58- 134* 

74- 213* 
82-148* 

5- 145* 
25-9* 
31-42* 

56- 196* 
58-171* 

75- 10* 
85-17* 
91-146* 

73- 10 
3-254# 

57- 21 
57-15 
57-33 
22-61* 
22-59I' 

78- 80t 
78-1 1# 

55- 61 
3-52# 
3-260# 
3-74# 

74- 201 
74-203 

3-286« 
3-1 5# 
3-18* 
3-1 7# 

56- 199 
3-16# 

93-49 

6- 1 3# 
93-75 

3-21 7# 
3-210# 
3-21 1# 
3-21 2# 
3-21 3# 
3-21 8# 
3-21 4 f 
3-21 5# 
5-50 
3-357f 



74- 243# 
51 -6# 
77-18 
51-30# 
51-42* 
51-17 

57- 42# 
51-36 
12-61* 
49-31* 
56-8* 

58- 136* 
76-117* 
89-101* 
12-39* 
25-9* 
31-44* 

56- 197* 
58-205* 

75- 26* 
85-34* 
91-153* 

73- 1 7# 
31-7 

57- 30# 
57-17 
57-36 
^3-49 

"•-61 
. 128 
r8-78 

55- 1 39# 

49- 86 

56- 184 
42-5 

74- 21 3# 
74-210# 
65-28 
56-150 

50- 118 
56-202* 
50-130 
93-64# 
40-224 
93-81 # 
23-51 
50-5 
55-11 
55-136 
74-50 
17-14 
49-78 
55-23 

5-64# 
40-220 



51-22* 

51-38* 

12-67* 

49-37* 

56-116* 

58-143* 

77-19* 

12-41* 
25-16* 
37-12* 

56- 206* 
58-207* 
76-46* 
85-93* 
91-155* 

31-34 

57- 22* 
57-38* 

23-48 



56-288 
50-186 
58-145 
65-145 



80-44 
56-153* 

50-132 

56-209* 

56-133 

56-245 



54-5 

80- 11 

81- 9 



52*11 
60-9 

52-21 



13- 25* 
49-49* 
56-126* 
59-5* 
78-133* 

14- 25* 
25-16* 
40-38* 
56-216* 
61-14* 
76-65* 
86-4* 
91-162* 



13-42* 

50-56* 

56-129* 

65-21* 

78-135* 

17-8* 

25-16* 

40-78* 

56-231* 

63-11* 

76-136* 

86-14* 

92-17* 



13-50* 

52-14* 

56-165* 

65-129* 

78-136* 

17-10* 

25-25* 

42-12* 

56-240* 

64-5* 

76-156* 

87-14* 

94-46* 



13-52* 
52-16* 
56-198* 

65- 131* 
80-16* 

17-18* 
25-59* 
47-4* 
56-257* 

66- 122* 
76-170* 
87-61* 
94-64* 



13-74* 

52-61* 

56-203* 

65-143* 

80-37* 

19-16* 
27-12* 

55- 34* 

56- 263* 
68-8* 
80-30* 
89-10* 
94-86* 



30-9* 

52-75* 

58-23* 

65-157* 

80-63* 

20-13* 

28-11* 

55-90* 

58-8* 

68-25* 

80-57* 

90-18* 

95-36* 



31-42 31-44 82-138 84-17 84-20 84-25 



30-18* 

55- 9* 
58-34* 
66-119* 
80-92* 

23-11* 
29-17* 

56- 115* 
58-18* 
70-17* 
82-138* 
90-68* 



84-28 



36-10* 

55- 76* 
58-38* 
74-89* 
80-94* 

23-25* 
29-24* 

56- 130* 
58-58* 
70-60* 
84-17* 
91-53* 



55-56 56-283 



56-179 56-182* 56-273 56-276* 58-25* 58-65* 58-166* 58-210* 



50-163 
56-215 
56-213 

64-31 
79-11 



50-166* 52-76 52-79* 56-70 56-120 56-124 56-132* 
56-267 58-31* 58-71* 58-130 58-146 58-149* 58-181 
58-27* 58-67* 



37-10* 

55- 78* 
58-113* 
74-166* 
80-95* 

23-27* 
30-11* 

56- 157* 
58-81* 
74-25* 
84-20* 
91-60* 



56-168 
58-184* 



40-7* 

55- 79* 
58-115* 
74-192* 
80-99* 

25-7* 
31-7* 

56- 162* 
58-144* 
74-40* 
84-25* 
91-62* 



56-174 
58-188 



49-12* 

55- 80* 
58-128* 
74-204* 
80-100* 

25-9* 
31-34* 

56- 184* 
58-145* 
74-232* 
84-28* 
91-77* 



56-177* 
58-191* 



56-178 56-266 58-16 58-24 58-52 58-209 64-27 86-2 



86-36 
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GDECC 

GOONE 

GENCON 

GETUNT 

GOBAO 

GOVER 

G0VER1 

GRP 

GRPCMT 

GRPCYL 

GSKIP 

GSKIP1 

GSKIP2 

GSKIP3 

GSR 

GST 

GSTATS 
GTFLAG 
HI 
H2 

HASH 
HO. BAD 

HD.CLR 



HO. CUR 

HO.OBN 

HO. LBN 

HO.PRV 

HD.R8N 

HO. REV 

HO.XBN 

HEAD 

HERE 

HGHP8N 

HI1BYT 

HI2BYT 

HIBYTE 



HKIP 

HKIP1 

HOLD 

HOLOBN 
HOLDPM 
HOLRBN 
HPREA 

HSLin 

HSTHI 
HSTLO 
IMAGE 



21-18 

46-A1 

25-20 

46-6# 
3-230f 

46-1 2f 

46-9# 
3-270# 
6-36# 
3-96# 

46-51 

46-18 

46-28 

46-39 
5-51 

5- 49 
12-12# 

3-256# 
3-216# 
3-21 9# 

72-4# 
3-1 53# 
3-1 55# 

56-218 

66-104 

92-9 

6- 34# 
3-1 56# 
3-1 50# 
3-1 54# 
3-151# 
3-1 52f 
3-1 57# 
3-1 02# 

50-1 13# 
5-1 28# 
3-1 33# 
3-1 32f 
3-1 30# 

43-29 

61-19 

94-69 

72-8# 

72-5 
5-1 53# 

76-37 
5-1 02# 
5-106* 
5-1 04# 
5-1 95# 

87-111 
5-30# 

86-44 
3-200# 
3-1 99# 
3-365# 



21-20* 
46-71 # 
27-5 

48- 7 
37-10 
46-22 
46-85 

19- 15 

49- 61* 
40-26 
46-54 
46-23# 
46-33# 
46-42« 

5-65# 
5-63# 
13-73 
25-7 
66-40 
81-59 
74-61 

50- 165 
40-71 
58-29 
74-86 
94-6 
49-50* 
49-50 
56-72 
56-131 
56-74 
56-176 

49- 53 
43-93 

50- 177 

42- 33* 

20- 24 

43- 37 
12-18 
43-92 
63-16 
94-91 
72-23 
72-20# 
66-18* 
76-39 

49- 56* 
58-111 
55-102 
43-96* 
93-40 

50- 81 
87-28 
16-8 
16-7 
33-12* 



29-5 

78-133 
46-32 

85-92 
49-62* 
49-61 
46-57 



13-162 

25-9 

69-40 

88-10 

74-126 

52-78 

40-96 

58-69 

74-115 

94-26 

49-53* 

5 -16 

57-14 

56-170 

56-122 

56-193 

51-14 



42-34* 
40-55 



31 -5# 
80-92 



92-16 
49-63 
55-26 
46-59# 



49-107* 
91-11 



55-28* 
95-29 



55-114* 91-11* 91-12* 91-96* 



12-36 46-76* 



48-9 
25-9 
70-7 



56-201 

46-36 

58-122 

74-122 

94-38 

50-120 

94-27 

58-30 

56-189 

56-141 

56-208 

65-91 



80-67 
40-107 



25-9 
73-38 



58-190 

46-64 

58-147 

74-143 

94-79 

52-27 

68-40 

58-148 

56-269 

56-219 

78-27 



80-78 
40-119 



74-69 74-134 



66-48 

50-164 

58-182 

74-149 

94-101 



74-54 
66-72 

57- 16 

58- 183 
78-99 



94-7 
55-104 



91-58 
52-26 
58-189 
74-163 



75-41 

58-70 
81-32 
89-49 



91-151 
52-69 
61-7 
74-181 



76-80 

58-132 

91-37 



52-77 55-18 
62-7 66-30 
74-189 80-76 



90- 44 
58-158 

91- 130 



94-102 
74-119 
93-36 



56-125 56-175 56-192 
66-52 66-68 66-82 
81-31 85-85 91-57 



56-200 

66-92 

91-150 



85-9 
94-39 



86-42 94-80 



58-49 62-15 63-22 86-11 94-57 



20-18 


25-9 


31-16 


34-13 


35-14 


40-23 


40-27 


40-43 


40-109 


40-121 


40-160 


41-9 


43-95 


45-6 


49-35 


49-62 


49-74 


50-19 


52-36 


55-27 


55-44 


55-95 


58-13 


58-87 


68-13 


70-22 


75-15 


76-51 


85-22 


86-19 


87-19 


90-23 


91-12 


91-16 


91-93 


94-51 


95-21 


95-30 


95-42 


















66-19* 


66-21 


66-37 


69-37 


73-35 


74-31* 


74-32* 


74-34 


74-66 


74-131 


76-34* 


76-35* 


76-40 


76-41 


76-42 


87-24 


90-5* 


90-6* 


90-8 


90-10 


90-11 


90-12 


90-13 




49-58* 


49-99 


49-102 


49-103 


55-88 


55-100 


55-101 


60-13* 


60-15* 


74-57 






58-112 


58-227 


63-32* 


63-33* 


















55-109 


55-110 


60-19* 


60-20* 








75-45 






85-53 




49-81 


50-181 


55-51 


56-278 


65-95 


68-44 


70-110 


76-84 


78-103 


86-46 


50-128 


56-33 


56-82 


65-93 


68-42 


70-27 


70-108 


75-43 


76-82 


78-21 


78-101 


85-50 


87-109 


89-51 


90-46 


91-42 


91-135 


93-38 














24-12 


















49-85 




51-8 


33-13* 


33-14* 


33-15* 


33-18 


33-21 


33-24 


33-27 


40-243 


43-10 


50-185 
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51-35 


51-37 


52-13 


52-37 


52-88 




58-197 


64-19 


74-246 


74-249 


74-254 


IHLEN 


3-31 7# 


40-239 


43-4 


51-40 


52-53 




58-216 








52-93 


IHSTAR 


5-1 94# 


49-82 


30-182 


52-60* 


INDSEC 


3-273# 










INI 


5-1 70# 


18-8 




58-38 




INIRCT 


3-237f 


55-76 


55-79 




INIT5 


13-190# 


13-201 








INITDD 


13-213 


13-215 


13-219# 






INITIT 


13-186f 


48-6 








INITL 


40-6 


48-5# 








INITP1 


13-212# 

13-158 

22-67# 


13-217 








INITPT 


13-209* 


49-92 


50-192 


55-62 


INPEL 


23-30 


23-29 






INPERR 


22-65# 


22-67 


80-42* 




INST 


3-287# 


65-36* 


80-40 




IRECAL 


5-57 


5-81 # 








ISEEK 


5-56 


5-77# 


19-13* 


19-14* 


19-15* 


55-38* 


56-291* 


66-113* 


66-116* 


66-121 




85-90* 


85-91* 


85-92* 


85-98* 


91-24* 


ISKIP 


41-19 


41-22# 








L576 


55-91 


55-94# 








LAGAIN 


56-23# 


56-59 








LAST 


3-31 9# 


52-104 


58-225 




82-119 


LBNBAD 


5-1 89# 


55-132 


55-135* 


58-39* 


LBNCYL 


5-1 22# 
93-17 


40-148* 


40-151* 


55-14 


55-15 


I.BNFND 


94-55 


94-85# 








LBNH12 


3-94# 


40-80 


40-81 






LBNH76 


3-95# 


40-83 


40-84 




42-25 


LBNLBN 


5-1 18# 
90-5 


40-76* 
90-6 


40-77* 


42-24 


LBNPCY 


5-123# 


40-49* 


40-50* 


40-74 


61-9 


LBNT12 


3-89# 


20-17 


40-40 


40-108 


55-92 




87-16 


90-20 


94-48 


94-66 


94-88 


LBNT76 


3-90* 


20-15 


40-42 


40-120 


55-94 


87-18 


90-22 


94-50 


94-68 


94-90 


LBUFE 


82-38 


82-41 # 








LCHEC 


55-75 


56-6# 


56-295 






LOONE 


56-63 


56-236 


56-296# 






LEN 


3-1 98# 


16-9 








LER1 


56-106 


56-109 


56-114 


56-1 16# 




LER2 


56-117 


56-120# 








LER3 


56-99 


56-1 15# 








LERR 


56-40 


56-43 


56-48# 






LFCTNT 


82-24f 


82-151 








LFCTUS 


82-18# 


82-155 








LFERR 


55-141 


55-144# 








LFINMS 


82-1 2# 


82-115 








LFIXIT 


56-17 


57-6# 








LFORH 


55-8# 










LHERE 


56-65# 


56-234 








LKIPIO 


58-200 


58-202# 








LKIP12 


58-127 


58-1 29# 








LKIP2 


58-?4# 


58-42 









55-55 
52-85 
52-102* 



56-167 

52-95 

55-52 



56-265 
56-172 
56-279 



56-282 
56-271 



57-8 
57-40 



58-110* 58-214 



5/ -35 57-37 58-15 
58-32 58-72 58-103 
58-223* 



SEQ 188 

58-79 
58-194 



19-21* 

66-124* 

91-25* 



49-65* 

74-225* 

91-26* 



49-66* 

74-228* 

91-117* 



49-67* 49-68* 55-31* 55-32* 55-33* 55-36* 
74-231* 74-234* 76-149* 76-152* 76-155* 76-158* 
91-11C* 91-119* 92-14* 92-15* 92-16* 92-22* 



55-16 55-17 61-5 



53-11 55-51 53-32 



61-6 



66-18 



62-5 



62-6 



78-12 



78-15 93-14 



66-19 74-31 74-32 76-34 



76-35 



58-10 
58-12 



61-16 
61-18 



63-13 
63-15 



68-10 70-19 75-12 76-48 85-19 86-16 
68-12 70-21 75-14 76-50 85-21 86-18 
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SEQ 189 



LIC1P20 


58-54# 


58-57 






LKIP21 


58-64« 


58-75 






LXIP22 


58-89 


58-91 


58-110* 




LKIP25 


58-99# 


58-102 






LK1P24 


58-100 


58-103* 






LKIP25 


58-133 


58-136* 






LKIP27 


58-113* 


58-203 






LKIP28 


58-114 


58-116 


58-205* 




LKIP29 


58-196 


58-198* 






LK1P30 


58-218 


58-223* 






LICIP31 


58-222 


58-224* 






LKIP33 


58-211 


58-214* 






UIP4 


58-120 
58-142 
58-206 


58-124 


58-176 


58-186 


UIP5 


58-177* 






LKIP? 


58-213* 






LKIP8 


58-51* 








LICIP9 


58-35 


58-37 


58-40* 




LLEM 


82-37 


82-43* 






LNORE 


57-12* 


57-43 




56-57* 


LNO£RR 


56-25 


56-47 


56-52 


LO 


3-134* 


40-167 


46-43 


50-119 




66-75 


68-17 


69-13 


70-12 




87-9 


90-27 






LOAD 


12-46 


13-85* 






L0A02 


13-94 


13-99* 






L0AD3 


13-101* 


13-108 






L0AD4 


13-106 


13-110* 


13-98 




L0AD5 


13-81 


13-88* 




LOADER 


13-97 


13-109 


13-113* 




LOBL 


3-326* 


84-31 






LOeVTE 


3-131* 


21-8 


34-17 




LOK 


56-113 


56-226« 






LQNGTO 


3-76* 


43-47 


65-142 




LOOP 


65-23 


65-40* 




L00P1 


13-15# 


13-75 






L00P2 


13-26 


13-28# 






L00P3 


65-154* 


65-156 






LOOPP 


65-58 


65-70* 
65-55* 


65-126 




L00PP2 


65-3? 


65-158 




LOVER 


56-248* 


56-256 






L0VCR1 


56-285 


56-294* 






L0VER2 


56-264 


56-277* 


56-293 




LOVERS 


56-270 


56-273* 






L0VER4 


56-267* 


56-272 


56-257* 




L0VER5 


56-250 


56-253 




LP8N 


60-21 


63-5* 






LRBN 


94-10 


94-44* 






LREOO 


57-32 


57-37* 






LSKIP 


56-9 


56-14* 






LSriPl 


56-18* 


56-61 






LSKIP2 


56-13 


56-17* 






LSICIP3 


56-205 


56-225 


56-228* 




LSICIP4 


55-58 


55-66* 






LSKIP6 


56-102 


56-107* 






LSKIP? 


56-67 


56-77 


56-231* 




LSKIP8 


56-73 


56-75 


56-78* 


56-227 



58-193* 



51-13 
73-12 



56-71 
74-53 



56-121 
74-75 



56-169 
74-140 



56-1 8C 
74-151 



56-268 
75-18 



57-13 
76-54 



58-131 
81-25 



66-47 
85-26 



66-54 
86-22 



J 



I IS 



UDAF52 - UDA-52 FORMATTER DHACR XOA.OI 23-AUC-82 13:U:22 PAGE S-11 
CROSS REFERENCE TABLE (CREF V04.00 ) 



SEQ 190 



LSKIP9 

LSNO 

LTO 

LTRK 

n.ERI 

n.ERIO 

N.ER11 

N.ER12 

H.ER13 

N.ERU 

N.ER15 

n.ER16 

n.ER17 

M.ER18 

n.ER19 

N.ER2 

N.ER20 

n.ER21 

n.ER22 

N.ER23 

N.ER3 

M.ERA 

n.ERS 

N.ER6 

H.ER7 

H.ER8 

n.ER9 

M512 

N576 

HAINTR 

HAINTU 

rUNU 

NAROAO 

MASK 

PUXTRf 

HENTLN 

HLEN 

NNCMT 

NODE 



nORE 

NSG1 

NSG1LN 

MS62LN 

NS63LN 

MSG4LN 

nSGSLM 

MSG6LN 

NSG7LN 

MSGLOP 

nSGLP2 

MSGLP3 

HSGLP« 

NSGOFF 



56-217 
56-163 
5-1 72# 
58-6# 
96-19# 
96-46# 
96-A9# 
96-52# 
96-55* 
96-58# 
96-61* 
96-64* 
96-67* 
96-70* 
96-73* 
96-22* 
96-76* 
96-79* 
96-82* 
96-85* 
96-25* 
96-28* 
96-31* 
96-34* 
96-37* 
96-40* 
96-43* 
3-321* 
3-322* 
3-65* 
3-66* 
3-233* 
58-135 
3-333* 
3-324* 
22-76* 
22-75* 
5-182* 
3-259* 
58-18 
74-232 
87-61 
51-12* 
13-21 
22-14 
22-20 
22-26 
22-50 
22-32 
22-44 

22- 38 

23- 11* 
23-34 
23-39* 
23-28 
22-77* 



56-221* 

56-204 

13-100 

97-4 

97-21 

97-23 

97-25 

97-27 

97-29 

97-31 

97-33 

97-35 

97-37 

97-39 

97-5 

97-41 

97-43 

97-45 

97-47 

97-7 

97-9 

97-11 

97-13 

97-15 

97-17 

97-19 

80-20 

80-22 

16-19 

16-30 

50- 56 
58-139 
46-42 
85-63 
25 58 
23-13* 

74- 27* 
19-16 
58-58 

75- 10 
89-10 

51- 43 
13-25* 
22-17* 
22-23* 
22-29* 
22-53* 
22-35* 
22-47* 

22- 41* 

23- 44 
23-36* 
23-41 
23-35* 
30-21 



56-211* 
43-63* 

97-5 

97-22 

97-24 

97-26 

97-28 

97-30 

97-32 

97-34 

97-36 

97-38 

97-40 

97-6 

97-42 

97-44 

97-46 

97-8 

97-10 
97-12 
97-14 
97-16 
97-18 
97-20 
89-12 
89-14 
23-16 
23-19 
52-14 
58-180 



27-11 
23-35 

74- 29* 
20-13 
58-81 

75- 26 
90-18 



43-64* 

97-23 

97-25 

97-27 

97-29 

97-31 

97-33 

97-35 

97-37 

97-39 

97-41 

97-7 

97-43 

97-45 

97-47 

97-9 

97-11 

97-13 

97-15 

97-17 

97-19 

97-21 

23-32 23-50 82-116 82-143 82-152 82-156 91-168 96-15 



58-187* 



29- 16 

30- 20 
74-38 
28-11 
58-171 
76-46 
90-68 



30-22 

30-23* 

74-200* 

40-38 

61-14 

76-65 

92-17 



36-18 
31-52* 

40-78 
63-11 
76-156 
94-46 



36-16 36-19* 



42-12 
64-5 
80-30 
94-64 



47-4 
66-122 
80-57 
94-86 



55-34 
68-8 
85-17 
95-36 



55-90 
68-25 
85-34 



56-157 

70-17 

85-93 



56-240 56-257 58-8 
70-60 74-25 74-40 
86-4 86-14 87-14 



36-17 
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SEQ 191 



MSGTBL 

nULDN 

nULERI 

nULERR 

HULPC 

HULT10 

WULT2 

N 

N1 

NOLL 
NEXT 
NEXT1 

NEXTS 

NGO 

NGD1 

NN1 

NO 

N0576 

NOCERR 

NOCRY 

NODLL 

NOERR 

NOFCT 

NOGOOD 

NOINC 

NOLBN 

NOSEK 

NOTHER 

NOTR 

NOTY 

NUH 

NUMD6N 

NUHLBN 

NUnXBN 

OCDONE 

OCLOOP 

OERR 

0ERR2 

OFATAL 

0FFS12 

OrFS76 

OFFSET 

OK 

OLDONE 

ONE 

ONLIN 

ONLINE 

OQUIT 

ORFTAL 

OV... 



22-1 2# 

32- 11 

33- 29 
32-12 

5- 35# 

31- 33 

32- 6# 

6- 29# 
6-30# 
?-236# 

H-8« 

5- 1 69# 
76-59* 
14-1 1# 
80-17 
80-28 

6- 3l# 
65-m 
47-5 
31-23 
18-13 

65- 22 
50-73 

3-292* 
76-92 

73- 20 

74- 55 

66- 120 
46-11 
66-49 
35-18 

6-1 1# 
49-51 
60-11 
60-16 

49- 55 
70-P«># 
70- .< » 
14-13 
14-18 
78-72 

3-81 # 
3-82# 

5- 37# 

50- 161 
78-83 

6- 3&r 
13-17&r 

5-59 
78-132 

70- 82 
5-3 

52-10# 
65-5 

71- 7# 
80-7 



23-9 

32- 1 3# 

33- 31* 

32- 14* 
9-18* 

33- 11* 
33-11 
50-58* 
50-59* 
65-131 
23-52 
65-56* 
76-107* 
14-20 
80-25 
80-99* 
50-60* 
65-119* 

47- 10* 
31-25 
18-15* 
65-24* 
50-95 

65- 37 
76-107* 

73- 22* 

74- 119* 

66- 126* 
46-21 
66-72* 
35-21* 
50-92 
50-17* 

61- 5* 

62- 5* 
50-37* 
70-135 
70-87 
14-17* 
14-24* 
78-131* 
52-34 
58-83 
66-43 
50-170* 
78-129* 
40-170 

48- 8 
5-84* 

78-134 
70-138* 
5-3 
55-5 
65-5 
76-2 
80-7 



9-19* 



9-20 



33-16 


33-17 








50-62* 


50-108* 


56-10* 


56-14* 


56-60* 


50-60 


50-63* 


50-64 


50-170* 


50-172* 56-11* 


65-157 








40-12 


49-28 


55-137 


65-150 


78-138 80-97 


65-119* 


65-125* 


68-5* 


68-67* 


68-73* 68-77 


76-113* 


89-33* 


89-90* 


89-98* 


90-16* 90-90* 


80-64 


80-92* 








50-64* 


50-172 


56-12* 


56-16* 


56-228 


31-27 


31-29 


31-31* 






50-100 


50-105* 








80-27 










46-31 


46-38 


46-61 


46-79* 





56-12 56-15* 56-16 56-226* 56-228* 



56-44 56-110 64-10* 



15-40 

58-85 
95-38 
69-7 



95-40 
69-36* 



42-29 . 49-112 



78-140* 



73-6 
55-20 



5-3* 


40-5 


40-5 


40-5 


55-5 


55-5 


55-5* 


58-2 


65-5* 


66-2 


66-2 


66-2 


76-2 


76-2 


76-2* 


78-2 


80-7* 


81-5 


81-5 


81-5 



68-82* 
90-100* 



75-6* 
93-9* 



75-69* 
93-64* 



75-75* 
93-70* 



75-79 
93-74 



75-84* 
93-79* 



73-34* 74-72 74-137 



55-121 


74-16 


93-11 












40-5* 


49-8 


49-8 


49-8 


49-8* 


52-10 


52-10 


52-10 


58-2 


58-2 


58-2* 


60-6 


60-6 


60-6 


60-6* 


65-5 


66-2* 


70-2 


70-2 


70-2 


70-2* 


71-7 


71-7 


71-7 


78-2 


78-2 


78-2* 


79-7 


79-7 


79-7 


79-7* 


80-7 


81-5* 


88-2 


88-2 


88-2 


88-2* 


93-2 


93-2 


93-2 



K 15 



UDAFS2 - UDA-S2 FORMATTER DMACR X04.01 23-AUG-82 13:U:22 PAGE S-13 
CROSS REFERENCE TABLE (CREF VOA.OO ) 



SEO 192 



OVCNT 

0VE.F1 

0VE.F2 

0VE.F3 

0VE.F4 

0VE.F5 

0VE.F6 

0VE.F7 

0VE.F8 

0VE.F9 

0VE.G1 

0VE.G2 

OVE.ui 

OVE.GA 

0VE.G5 

0VE.66 

0VE.G7 

0VE.G8 

0VE.H1 

0VE.H2 

OVE.NN 

OVER 

0VER1 

0VER2 

OVL... 



OVL.Fl 

0VL.F2 

0VL.F3 

0VL.F4 

0VL.F5 

0VL.F6 

0VL.F7 

0VL.F8 

0VL.F9 

OVL. 61 

0VL.G2 

0VL.G3 

OVL.GA 

OVL.GS 

0VL.G6 

0VL.G7 

OVL. 68 

0VL.H1 

0VL.H2 

OVL.PW 

OVLBLK 

OVLEN 

OVLTBL 

OVRLAY 

0VS.F1 

0VS.F2 

0VS.F3 

0VS.F4 



93-2# 
3-1 96f 

49- 8# 
55-5t 

65- 5f 

66- 2# 
71 -7# 

78- 2# 
76-2f 
58-2# 

93- 2# 
40-5# 

79- 7# 

80- 7# 

81 - 5# 

94- 2# 
96-5# 
52-1 0# 
60-6# 
70-2/» 
88-2# 

3-325 
40-224# 

50- 188 
50-1 80# 

5-3 

65-5 

80-7 
5-209 
5-212 
5-215 
5-218 
5-221 
5-224 
5-227 
5-230 
5-233 
5-257 
5-236 
5-239 
5-242 
5-245 
5-260 
5-248 
5-251 
5-254 
5-263 
5-3 

5-266# 
3-1 97# 
5-209# 
14-11 
5-210 
5-213 
5-216 
5-219 



94-2 

24-4 

52-10 

58-2 

66-2 

70- 2 
76-2 

79- 7 

78- 2 
60-6 
94-2 

49- 8 

80- 7 

81- 5 
88-2 

96- 5 

97- 48 
55-5 
65-5 

71- 7 

93- 2 
5-3# 

40-231 

50- 1 96# 
50-195 

5-3# 

65- 5# 
80-7# 
52-10 
58-2 

66- 2 

70- 2 
76-2 

79- 7 
78-2 
60-6 

94- 2 
49-8 

80- 7 

81- 5 
88-2 

96- 5 

97- 48 
55-5 
65-5 

71- 7 
93-2 

5-3 
65-49* 
24-14 

14- 8 

15- 15 
49-8# 
55-5# 

65- 5# 

66- 2« 



94-2 



40-5 



94-2 



94-2# 96-5 



96-5 



96-5 



96-5# 97-48 97-48# 



40-5 


40-5# 


49-8 


49-8# 


52-10 


66-2 


66-2# 


70-2 


70-2# 


71-7 


81-5 


81 -5# 


88-2 


88-2# 


93-2 


52-10 


52-1 0# 








58-2 


58-2# 








66-2 


66-2# 








70-2 


70-2# 








76-2 


76-2# 








79-7 


79-7# 








78-2 


78-2# 








60-6 


60-6# 








94-2 


94-2# 








49-8 


49-8# 








80-7 


80-7f 








81-5 


81 -5# 








83-2 


88-2# 








96-5 


96-5# 








97-48 


97-48# 








55-5 


55-5# 








65-5 


65-5f 








71-7 


71 -7# 








93-2 


93-2# 








40-5 


40-5 


40-5# 






65-50* 


65-51* 


65-52 


79-21* 


79-22 


15-12 


15-30 


24-12 






15-33 


16-7# 


65-54 


79-26 





52-1 Of 55-5 55-5# 
71 -7# 76-2 76-2# 
93-2# 94-2 94-2f 



58-2 
78-2 
96-5 



58-2# 
78-2# 
96-5# 



60-6 60-6# 
79-7 79-7# 
97-48 97-48# 



J 



L 15 



UDAFS2 - UDA-S2 FORMATTER DMACR X04.01 23-AUG-82 13:14:22 PAGE S-14 
CROSS REFERENCE TABLE (CREF V04.00 ) 



SEQ 193 



0VS.F5 
0VS.F6 

ovs.r7 

0VS.F8 

0VS.F9 

0VS.G1 

0VS.G2 

0VS.G3 

0VS.G4 

0VS.G5 

0VS.G6 

0VS.G7 

0VS.G8 

0VS.H1 

0VS.H2 

OVS.PM 

PAERR 

PAGAIN 

PAGE 



PAGER 

PALPI 

PALP2 

PALP3 

PALP4 

PARIT1 

PARITY 

PARNTB 

PSMBUF 

PBUFE 

PCNT 

PCON 

PDONE 

PERR 

PHYSA 

PLEN 

PMG8LK 

PNGP6 

PNGPNG 

PNGRO 

PRET 

PRIM 

PRIMR8 

PRPeUF 

PRHY 

PROD 

OUESDN 

RB.CPV) 

RB.HI 

RB.in 

R8.L0U 

RBMBUF 

RBHLBN 



5-222 
5-225 
5-228 
5-231 
5-234 
5-258 
5-237 
5-240 
5-243 
5-246 
5-261 
5-249 
5-252 
5-255 
5-264 

5- 3# 
15-18 
73-7# 
15-10# 
69-41 
80-53 
15-21 
15-15# 
15-17 
15-35 
15-33* 

3-141* 
3-140* 

82-4* 
3-356* 

80-60 

82-48 

6- 49* 
94-6* 
94-29 
73-42 

5-3 

82-47 

73-5* 

66-61 

73-4* 

73-30* 

73-16 
3-228* 

20-7* 
3-358* 

91-124 
3-158* 
3-9* 
3-253* 
3-46* 
3-45* 
3-47* 
3-44* 
3-362* 
5-119* 



71-7* 

78- 2* 
76-2* 
58-2* 

93- 2* 
24-6 

79- 7* 

80- 7* 

81- 5* 

94- 2* 
96-5* 
52-10* 
60-6* 
70-2* 
88-2* 

15-36 
73-23 

17- 15 
73-39 
80-62 
15-28* 
15-19 
15-20* 
1 5-38* 
15-37 

18- 48 

82- 118 
49-42 
80-65 
82-51* 

49- 39* 

94-41 
73-50* 
5-3 
82-53* 

73- 40 
66-97 

74- 108 
73-45 
73-48* 
56-126 
56-137 
56-142 

58-141 

23-25 

50- 72 
50-77 
50-98 
50-75 
56-237 
4C-101* 



40-5* 



15-39* 

49-79 
74-23 
81-60 



82-133 

49-43 

80-73 

58-125* 

94-82 

5-3 



50-6 

74-37 

89-8 



49-44 

58-199* 
94-104* 
5-3 



69-4* 

74-156 74-174 



54-6 

74-45 

89-18 



55-12 
74-51 



55-24 
74-70 



55-49 
74-135 



55-72 
74-208 



55-a3 
74-217 



55-86 
74-222 



55-131 
74-248 



59-9 
74-256 



66-41 
80-15 



50-8 
59-10* 

5-3* 



54-8 
80-72* 



59-7 



80-82* 



74-220 79-25 80-13 80-18 80-29 80-43 80-51 



56-129 


56-165 


56-198 


58-23 


58-134 


58-153 


67-7 


72-7 


56-149 


56-154 


58-159 


58-165 


58-168 


74-93 


74-105 


i'4-171 


74-196 


74-252 


29-24 


30-11 


37-12 






51-19* 


56-24 


57-19* 






56-29 










50-102* 


50-113 


50-117 


56-50 


56-54* 


56-27 






58-51 


58-64 








40-102* 


40-177 


40-178 


40-193 


40-194 



58-143 
89-6 



89-9 



89-44 89-70 90-38 90-65 



91-31 



56-65 
42-27 



56-69 
53-13 



53-34 76-27 76-28 



n 15 



UOAF52 - UOA-52 FORMATTER D«ACR X04.01 23-AUG-82 13: U:22 PAGE S-15 
CROSS REFERENCE TABLE (CREF VOA.OO ) 



SEQ 1V4 



RBNPCY 


5-1 2A# 


40-61* 


40-62* 


40-99 


62-9 




RBNRPT 


3-3U« 


56-143 


58-160 


85-11 






RBNTRK 


3-91# 


20-23 


40-54 


40-106 


40-118 


55-103 


RBNWRT 


85-74 


86-1* 










RC.FRE 


3-1 63« 


66-76 


69-16 


73-15 


74-76 


74-141 


RC.NUL 


3-1 67# 


69-14 


73-13 


76-165 


77-9 




RC.PRV 


3-1 64# 


66-83 


66-93 


74-87 


74-190 




RC.SNO 


3-165« 


66-69 


66-105 


74-116 


74-164 


74-182 


RC.UNU 


3-166# 


66-53 


74-78 


74-144 


74-150 




RCBUFE 


82-68 


82-71* 










RCO 


87-90# 


87-136 










RCFIX 


76-143 


76-161* 










RCFXLP 


75-79# 


75-85 










RCINON 


3-252# 


76-136 


76-170 








RCINER 


76-116 


76-172* 










RCINIT 


3-231« 


76-117 


77-19 








RCINLP 


76-58# 


76-146 










RCL 


87-26# 


87-88 










RCLEN 


82-67 


82-73* 










RCLP 


76-1 0# 


76-12 










RCLP2 


76-60# 


76-114 










RCLP3 


76-1 66« 


76-169 










RCLP4 


76-1 44« 


76-171 










RCLP6 


76-137 


76-147* 










RCTOAD 


5-1 90« 


56-118* 


58-138* 


82-125 






RCTBUF 


3-361 # 


66-42 


66-62 


66-98 


68-22 


69-12 




74-175 


75-23 


81-23 


87-35 


87-58 


87-102 


RCTCK 


88-13 


90-4* 








RCTCKO 


90-94 


90-103* 










RCrCKE 


90-102 


90-111* 










RCTCL1 


90-1 7# 


90-101 










RCTCLP 


90-1 5# 


90-109 










RCTCNT 


6-48# 


66-36* 


69-30* 


69-31 


69-45* 


73-29* 


RCTERR 


68-76 


68-86* 










RCTFHT 


5-1 67# 


42-14* 


42-16* 


42-17* 


68-71 


68-80 




87-94 


90-96 






RCTINI 


76-6# 
3-181# 












RCTLBN 


40-188* 


40-189* 


76-142 


90-4* 


90-108 


RCTNGD 


90-80 


90-90* 






RCTRLP 


75-8# 


75-76 










RCTS12 


3-99* 


42-16 










RCTS76 


3-1 00# 


42-14 










RCTTOT 


5-161# 


55-22* 


58-36* 








RCTUPD 


66-1 1# 












RCTWLP 


68-7# 


68-74 










RCTWRT 


74-107 


74-155 


74-198 


75-5* 






RCTWT 


66-60 


66-95 


66-107 


68-4* 






RCV 


3-56# 


13-31 


13-104 


46-26 






RCVMNT 


16-28# 


65-46 


79-18 






RCVROY 


3-1 73# 


13-68 


4 9 4 M9 

13-197 


« 9 '%4 ^ 

1 3-21 6 






RCUERR 


75-78 


75-87* 








RCXLP 


68-77* 


68-83 










ROBLK 


5-21* 


21-12 


50-71 


50-83 


50-89 


50-97* 




56-93 


56-103* 


70-26 


70-40 


70-53* 


78-20 




90-33 


90-48 


90-61* 


91-30 


91-44 


91-55 


ROBUr 


3-355* 


6-12 


50-79 


50-134 


50-154* 


50-156 



58-48 62-14 63-21 86-10 94-56 



70-34 70-57 70-101 73-11 74-71 74-109 74-136 74-157 



73-30 
70-83 



75-43* 
70-93 



74- 65* 74.-130* 81-19* 

75- 73 75-82 76-111 



81-21 
76-145 



81-47'. 
81-48 



81-48* 
87-84 



50-127 50-140 

78-35 78-48* 

91-123 91-137 

50-159 56-31 



50-150* 56-23 

87-27 87-41 
91-148 

56-88 56-108* 



56-35 
87-54* 



56-41 
89-39 



56-49* 
89-53 



56-81 
89-66* 



65-24 65-55 65-55 65-60 
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CROSS REFERENCE TABLE (CREF V04.00 ) 



SEQ 195 



RDcno 

ROLEN 

ROONE 

RD0NE1 

RD0NE2 

READ 

READ1 

READ10 

READ11 

READ2 

READ3 

READ4 

REA07 

READS 

READ9 

READX 

REBUFE 

RECAL 

RECIR 

RECOV 



RECTNP 



I REDO 
RELEN 
REPEAT 
RESTAB 
RETAD 
RETRV 

REVBUF 
REVCNT 
REVECT 
REVLEN 
REVRBN 

REVSEC 

RFTL 

RLD 

RLDONE 

RLOOP 

RL00P1 

RNUHER 

ROVER 

R0VER1 

RPR IN 

RPT 

RPT1 

RQUIT 

RRC 

RRERR 



65-70 
76-162 
3-31 2# 
3-307* 
80-80 
80-55 
80-98# 
3-53# 
50-83# 
90-A8# 
70-A0# 

so-uor 

56-35* 
56-93# 
78-35# 
87-41* 

89- 53* 

50- 121 
82-99 
13-79* 

3-320* 
6-32* 

76-109 

S9-97 
6-54* 

70-130* 

78-127* 

90- 79 

51- 32 
82-98 

3-255* 
82-33* 
23-21 

6-51* 

65- 105 
3-359* 
5-176* 
3-227* 
3-309* 
5-125* 

72-20* 
3-80* 
87-83 
87-93 
70-92 
80-58 
80-74* 
86-26* 

66- 24* 
66-28 

3-248* 
58-161* 
56-144* 

80- 93 

81- 22 
50-88 



65-86 


65-152 


74-21 


74-24 


74-43 


74-46 


74-95 


74-206 


74-215 


76-9 


76-14 


77-10 
























50-l«» 1 


50-30 


50-W 




f O-30 










Ol —1 

91 -1 50 


3U— 1 \1J 


jV I r J 


J 1 cv 






Jl Cv 












80-86 


80-88* 




















80-90* 






















80-101 






















50-86 


50-144 


56-38 


56-97 


70-47 


78-42 


87-48 


89-60 


90-55 


91-50 


91-143 


90-78 


90-86 




















70-70 


70-78 





















78-60 
87-71 

89- 78 

50- 124* 
82-102* 
13-163 
52-99 
43-30* 
78-63* 

90- 81* 
17-25 
70-134* 

86- 60 
90-85* 

51- 37* 
82-104* 
23-11 
82-117 
23-25* 
13-56 
68-53 
81-15 
55-68 

55- 78 

85- 70 
20-29* 
72-21* 
41-7 

87- 139* 
87-137* 
70-136* 
80-60* 
80-87 

86- 75 
66-110 
66-30* 

56- 130 
58-164 
56-147 
80-102* 

87- 5* 
50-91 



78-68 
87-79 

89- 86 
50-171 

48-11 
52-102 
65-111* 
78-77 

90- 92 
43-31* 
75-59 
86-66* 
90-92* 



58-220 


58-223 




















65-121 


68-59* 


68-69 


70-73* 


70-86 


70-90 


70-126* 


70-134 


75-61* 


75-71 


76-99* 


78-81 


78-119* 


78-127 


86-62* 


86-70 


87-74* 


87-87 


87-91 


87-127* 


87-135 


89-81* 


90-99 


93-56* 


93-66 














65-109 


65-115* 


65-121* 


68-57 


68-63* 


68-69* 


70-71 


70-77* 


70-86* 


70-90* 


70-124 


75-65* 


75-71* 


76-97 


76-103* 


76-109* 


78-61 


78-67* 


78-77* 


78-81* 


78-117 


78-123 


86-70* 


87-72 


87-78* 


87-87* 


87-91* 


87-125 


87-131* 


87-135* 


89-79 


89-85* 


89-97* 


90-99* 


93-54 


93-00* 


93-66* 













23-27 


25-59 


27-12 


29-17 


13-58 


13-96 


13-160 


14-17 


70-67 


70-120 


75-55 


76-93 


81-53 


85-5 


86?1 




55-73* 


55-127 


56-223* 


66-109* 


56-116 


56-203 


58-3* 


58-136 


86-72 








20-30* 


56-138 


56-139 


58-155 


72-22* 









15-39 43-39* 46-20 46-30 49-90 50-190 55-60 56-287 
78-57 78-113 86-56 87-68 87-121 89-75 90-75 93-50 



58-156 67-10 67-11 67-20* 67-21* 67-22* 72-10 72-11 



80-71 



56-196 56-263 58-144 58-205 58-207 



50-96* 
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CROSS REFERENCE TABLE (CREF V04.00 ) 



S£Q 196 



RRPL 

RSER 

RTOON 

RTRY 

RTY 

RTYCNT 
RTYON 
RUN 
RW.BUF 

RW.CMD 

RW.OAT 

Ru.oun 

Ry.E76 
RU.EOC 

RU.ER1 

RU.ER2 
RU.HI 

RU.LOU 

RW.STA 

Rwcno 

RUGO 

RUGOOO 

RWROY 

RUTOON 

SBUFE 

SCR 



SECCN 
SECCNT 

SECNDY 

SECNO 

SECSI6 

SECSI8 
SECSI2 



SECT12 
S£CT76 
SECTCY 
SECTRK 



SEEK 
SEEKO 



74- U2 
3-299# 

68-78 
3-75# 
3-240# 
6-43# 
3-2A7# 
5-53 
3-29# 

86-37* 
3-32# 

86-35* 
3-33# 
3-28# 

86- 45* 
3-35f 
3-34# 

89-73 
3-27# 

87- 54* 
3-36# 
3-31 # 

86-43* 
3-30# 

86-39* 
3-26# 
3-31 0# 

68-52 

75- 54 
3-171* 

75-80 
82-58 

5- 31 
52-33 
68-7 

91- 105 
22-25 

6- 28# 
58-41* 
66-73 
28-9 

3-31 5# 

89-71 
3-316# 
6-55* 

58-53 

85-32 
5-114* 
5-1 12# 
5-1 16# 
5-1 10# 

52-49 

94-31 

13-135* 

92- 23 
13-137* 



74- 147* 
76-15 
68-84* 
43-32 
13-25 
50-104* 

5-69* 
50-80* 
87-36* 
50-74* 
87-40* 

50-82* 
87-29* 
56-159* 
50-160 

90- 73 
50-89 
89-63 

50-78* 
87-34* 
50-76* 
87-31* 
50-85* 
50-136 
68-67* 

75- 69* 
13-145 
75-86* 
82-61* 

5-51 
55-13 
70-10 
92-11 
28-6* 
50-69* 
58-50* 
66*97* 
28-10 

5-171 

91- 49 
64-9 
21-13 
58-169 
85-59 
19-19* 
40-123* 
40-133* 
40-111* 
52-51 
95-4 
19-22 

13-164 



13-42 
56-55* 



50-135* 
87-103* 
50-139* 
87-101* 

50-129* 

87-110* 

58-20* 

56-161* 

93-25* 

50-97* 

89-66* 

50-133* 
87-108* 

50- 131* 
87-105* 
56-37* 

51- 26 



13-50 
82-131 



56-32* 
89-45* 
56-26* 
89-43* 

56-34* 

89- 52* 
58-173* 
58-22* 

50-147 

90- 58 

56-30* 
89-50* 
56-28* 
89-47* 
89-56* 
56-90 



13-52 13-74 



56-89* 
90-39* 
56-92* 
90-37* 

56-83* 
90-47* 
68-27* 
58-175* 

50-150* 
90-61* 

56-87* 
90-45* 

56- 85* 

90- 41* 

91- 46* 

57- 26 



65-87* 
91-32* 
65-85* 
91-41* 

65-94* 
91-43* 
70-62 
65-73* 



68-31* 
91-125* 
6.V35* 
^J-134* 

68-43* 

91-136* 

75-28* 

68-29* 



70-35* 
93-27* 
70-39* 
93-31* 

70-28* 
93-39* 
76-67* 
70-65 



70-102* 75-32* 76-71* 75-30* 78-94* 85-40* 
70-100* 75-36* 76-75* 78-34* 78-92* 85-44* 

70-109* 75-44* 76-83* 78-22* 78-102* 85-51* 



85-36* 
75-30* 



86-6* 
76-69* 



87-63 
78-55 



90-70 
85-38* 



56-41 56-49* 56-100 56-103* 70-50 70-53* 78-45 



65-92* 

91-38* 

65-89* 

91-34* 

91-139* 

70-36 



68-41* 
91-56 
68-37* 
91-127* 



70-33* 
91-59* 
70-30* 
93-33* 



70-107* 75-42* 
91-131* 91-149 
70-104* 75-38* 



76-81* 78-28* 
91-152* 93-37* 
76-77* 78-24* 



86-8* 87-66 

78-48* 87-51 

78-100* 85-49* 

78-96* 85-46* 



78-31 87-37 89-40 90-34 91-39 91-132 



5-76* 


19-10 


40-21 


40-68 


40-93 


40-147 


42-9 


43-90 


44-4 


49-30 


49-60 


49-72 


55-25 


55-42 


55-89 


56-135 


58-7 


58-47 


58-80 


58-151 


60-10 


64-4 


65-14 


67-6 


72-6 


75-8 


76-44 


85-16 


85-87 


86-9 


87-7 


89-24 


90-17 


91-10 


91-14 


91-91 


94-45 


94-98 


95-19 


95-28 


95-35 
















50-106* 


51-6* 


51-42* 


52-12* 


52-31* 


52-63* 


52-90* 


56-21* 


56-58* 


57-6* 


57-42* 


58-14* 


58-74* 


58-78* 


58-202* 


74-30* 


74-202* 


81-20* 


81-45* 


91-23* 


91-64* 


91-86* 


91-113* 


91-157 


28-12* 
























49-11 


50-157 


64-46 


65-71 


65-101 


65-151 


69-23 


73-22 


78-41 


78-53 


78-109 


89-59 


91-142 


93-23 


93-46 
















64-10 
























49-11* 


49-84 


50-68 


50-126 


50-143 


50-184 


55-54 


56-20 


56-80 


56-96 


56-155 


56-281 


64-9* 


64-46* 


68-23 


68-49 


70-46 


70-58 


70-116 


75-24 


75-51 


76-7 


76-63 


76-89 


86-52 


87-47 


87-59 


87-117 


90-54 


90-66 














40-112* 


40-114* 


78-17 


85-96* 


89-30 


91-23 


91-79 


91-86 


91-113 


92-20* 


93-19 




40-124* 


64-7 


64-14 




















40-134* 


50-23 


50-40 


91-108 


















40-113* 


40-128 


40-129 


40-238 


41-13 


43-7 


49-100 


50-28 


50-45 


50-69 


51-6 


52-12 


52-63 


55-69 


56-21 


57-6 


58-78 


58-99 


58-101 


58-228 


64-7* 


64-8* 


65-19 


94-19 


95-55 




















49-69 


49-94 


50-194 


55-39 


55-64 


56-292 


66-125 


74-235 


76-159 


85-99 


91-27 


91-120 



J 
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SEEK1 
SEEK2 
SEEK3 
SEEK4 
SEEKS 
SEEK6 
SEEK? 
SEEKER 
SEND 
SERBO 
SERCON 
SERNUR 
SEROK 
SERRT 
SETOVL 
SETRET 
SETS12 
SETSIZ 
SFTRPT 
SHORTO 
SIP 



SKERR 
SKIP1 
SriP19 

sriP3 

SKIP4 

SKIPS 

SKIP6 

SKIP7 

SKPCNT 

SLAS 

SLEEK 

SLEEK2 

SLEN 

SLOOP 

SNO 

SNOCNT 

SNDLP 

SNOMNT 

SNORES 

SOOT 

SRCK 

SS 

ssaiT 

ST 

ST. 08 
ST.OBN 
ST. OF 
ST. OR 
ST.ER6 
ST. ERR 
ST.FO 
ST. IN 
ST. LBN 



13-U1# 


13-152 








13-144 


13-159* 








13-148 


13-161 


13-165* 






13-1S4# 


13-166 








13-142 


13-158# 








13-U6 


13-153# 








13-1S0# 


13-151 








55-41 


55-142* 








3-SS# 


13-19 


13-92 


46-16 




29-6 


29-15* 








22-49 


29-4* 




29-21* 


29-22* 


5-187* 


29-19* 


29-20* 


29-8 
29-18 


29-10 


29-12 


29-14 


29-19* 


29-25* 








23-8 


24-4* 








64-45 


64-47* 








64-6 


64-46* 








60-22 


64-4* 








46-68« 


46-70 








3-73# 


43-71 






56-79 


3-61 # 


50-67 


50-125 


56-19 


86-51 


87-46 


87-116 


89-58 


90-53 


49-71 


49-120* 


91-29 


91-122 




49-52 


49-56* 








49-45 


49-49* 








49-78# 


49-105 








49-38 


49-48 


49-50* 






52-31# 










49-88 


49-96* 








49-80# 


49-95 






57-9 


5-1 57# 


41-18* 


41-21* 


51-9 


22-84# 


25-14 








49-60# 


49-115 








49-65# 


49-108 








82-57 


82-63* 








24-1 3# 


24-16 








56-127 


56-206* 






58-178 


6-42# 


56-195* 


56-210* 


56-220* 


82-1 35# 


82-147 








16-17# 


65-45 


79-17 






81-61 


82-114* 








3-351# 










12-37 


12-44* 








3-1 42# 


19-21 


47-8 


49-68 


55-36 


3-77# 


47-7 








5-49 


5-52 


5-53 


5-54 


5-55 


3-1 84# 


12-52 




53-18 


94-25 


5-200# 


44-36* 


50-26 


3-1 88# 


12-18 








3-181# 


12-26 








3-1 90# 


12-17 








3-1 89# 










3-1 85# 


12-48 








3-186# 








61-12 


5-1 97# 


20-11 


42-32 


44-10* 


74-188 


75-40 


76-79 


85-48 


87-33 



65-27 76-13 80-45 



65-100 
91-48 



68-48 
91-141 



70-45 
93-45 



70-115 75-50 76-88 78-40 78-108 85-58 



81-11 81-39* 



55-38 
5-56 



66-124 
5-57 



74-234 
5-58 



76-158 
5-59 



85-98 
5-74* 



92-22 
12-16 



12-23 46-34 



63-9 
87-107 



63-29 
90-43 



66-81 66-91 
94-100 



66-103 68-39 70-32 70-106 74-85 
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SEQ 198 



ST.rs 

ST.RBN 

ST.RU 

ST.SR 

ST. WE 

ST.WP 

ST.XBN 

STACK 

STARIT 

START 



START2 

START3 

STASEC 

STATFR 

STATRE 

STATRT 

STATST 

STATUS 

STATVL 

STCkSV 

STCLR 

STCYL 

STDBN 

STDIAG 

STFLA6 

STFORH 

STLBN 

STO 

STPNIC 

STR8N 

STSC 

STSKI 

STSKP 

STULK 

STXBM 

SWAP 

SWRD 

TALIP1 

TALK 

TALKON 

TALKIP 

TALKP 

TALKRT 

TATTN1 

TBLK 

TBUFF 

TBOFFL 

TCLEAR 

TEHP 



3-1 80# 
5-1 98# 
3-1 79# 
3-1 83# 
3-1 87# 
3-1 82# 
5-1 99# 

93- 35 
5-1 37# 
5-1 56f 
5-5 

55-5 
76-2 

94- 2 
71-11 
22-5 

5-1 00# 
18-45 
18-43f 
18-52# 

12- 14# 
3-58# 

13- 62 
5-1 38# 
3-1 36# 
3-88# 
3-87# 

12-49 

3-257# 
12-45 

3-84# 

5- 1 73f 
12-27 

3-85f 
3-272# 

12-20 

12-62 

12- 53 
3-86# 

66-77 

6- 14# 

13- 54 

12- 15 

13- 33 
13-51 
13-43 
13-38 
13-69 

5-1 58# 
22-78# 
22-81f 
13-24 

5-3«# 
38-18 
40-58 
40-178* 



12-32 

44-16* 

12-29 

12-44 

12-57 

44-26* 

94-37 

23-3 

51-11* 

14-10 

58-2 

78-2 

96-5 

74-7# 

23-3# 

91-7* 

18-47 

18-49 

18-55 

12- 43 
18-43 

13- 66 
13-53* 
44-9 
40-166 
44-30 
12-52# 
25-7 

12- 48# 
44-8 

13- 140 
12-30 
44-14 

12-23# 
12-68« 

12- 56# 
44-20 
66-86# 

40- 226 

13- 56# 

12- 64 

13- 37f 
13-55f 
13-45f 
13-42f 
13-73f 

41- 17* 

22- 81 

23- 18 
13-36 
20-8* 
38-21 
40-69* 
40-181 



56-140 58-157 62-12 67-22 72-22 86-41 94-78 



50-43 53-39 65-9 65-10 65-78 78-26 78-98 89-20 



51-38 

14-16 

58-2 

78-2 

96-5 



91-8* 
18-53# 



13-141 
13-55 
44-15 
68-16 



43-83* 
12-33 



51-41* 
15-14 
60-6 
79-7 



57-11* 
15-23 
60-6 
79-7 



57-38 
15-32 
65-5 
80-7 



57-41* 
22-5# 
65-5 
80-7 



40-5 40-5 49-8 
66-2 66-2 70-2 
81-5 81-5 88-2 



89-21 



49-8 
70-2 
88-2 



89-37 91-36 91-129 



52-10 

71-7 

93-2 



52-10 

71-7 

93-2 



55-5 
76-2 
94-2 



91-67 91-69 91-82 91-84 91-85 91-101* 91-102* 91-111 91-114 91-115 



12-47 12-51 



13-193 
25-5* 
44-25 
70-11 



12- 55 

13- 212 
25-55 
44-35 
75-17 



12-60 

18-41« 46-10 

76-53 85-25 86-21 87-8 90-26 



25-16 25-16 25-16 25-25 



12-40 12-71# 



56-246 64-32 

12-66 13-13# 13-121 



13-129 13-139 13-172 13-180 17-27 



41-20* 

23-17 

23-37 

13-41 

20-10 

38-22 

40-72* 

40-193* 



51-30 
23-36 

13-50f 

31-15* 

38-79* 

40-73 

40-194* 



57-30 



31-16* 
38-81* 
40-94* 
40-197 



31-17* 
38-84 
40-97* 
40-202 



31-19* 
40-28* 
40-98 
40-239* 



31-21* 
40-29* 
40-138* 
40-240* 



31-22 31-36* 

40-31 40-44* 

40-139* 40-140 

40-241 41-10* 



31-38 31-40* 38-14* 

40-45* 40-46 40-56* 

40- 149* 40-152* 40-153 

41- 11* 41-12 41-15* 



38-15* 
40-57* 
40-177* 
42-24* 



J 
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SEO 199 



TEWP2 

TERR 

THREB 

TILOP 

TIL0P1 

TIP1ER 

TinLOl 

TIULOP 

TIULP 

TIHTBL 

TIHVAL 

TKIP1 

TKIP11 

TKIP12 

TKIP13 

TKIP14 

TKIP2 

TIC1P3 

TKIP4 

TKIP5 

TKIP7 

TKIP8 

TKIP9 

THPTRY 



TOTRCT 
TRK 

TRKCNT 
TRKCYL 
TRKGRP 
TWO 

Twoe 

TWOC 

TURO 

UOAFn 

UERR 

UHASH 

UHKIP 

UHKIP1 

UID 

UN.ERI 

UN.ERR 
UN.ERT 
UN.SEK 



42- 25* 
50-21* 
53-31* 
62-6* 
67-13 
86-74* 
94-70* 

5- 34# 
86-26* 
13-63 

3-306# 

43- 76# 
43-80# 

13- 64 
43-49 
43-53# 
18-27# 
22-1 04# 

3-323# 
52-17 
52-87 
52-64# 
52-101 
52-97 
52-15 
52-62 
52-67 
52-39 
52-74 
52-49# 
52-50 

6- 53# 
70-89* 
78-66» 
37-70* 
90-91* 

6-46# 
3-271 # 
6-37* 

5- 121# 
3-97# 

41-16 
3-305# 

6- 40# 
6-1 5# 
5-3# 

14- 29# 

66- 32 

67- 8# 
67-5 

3-334# 
5-1 3# 
50-196* 
5-1 1# 
5-1 2# 
5-1 4# 



42- 26 
50-22 
53-32* 
62-7* 
72-8* 

89- 34 
94-71 * 

66- 50* 

86- 27* 
13-67 
41-17 

43- 78 
43-82 
13-65 
43-51* 
43-55 
18-32 
26-22 

18- 26 
52-20* 
52-89* 
52-91 
52-103* 
52-102* 
52-19 
52-93* 
52-71 
52-41 
52-76* 
52-52 
52-53* 
43-40* 
70-120* 
78-76* 

87- 77* 

90- 98* 
40-87* 

19- 12 
49-75* 
40-33* 

40- 22 

41- 20* 
41-20 
74-244 
40-228 

16-12 

67- 4* 
67-23 
67-20* 
46-35 
13-86* 
55-59* 
13-34* 
13-22* 
13-154* 



43-4* 


43-5* 


43-6 


50-37* 


50-38* 


50-39 


53-33 


58-92* 


58-93* 


62-8 


63-5* 


03-0* 


72-9* 


72-13 


76-27* 


89-35* 


89-36* 


89-37* 


94-72 


94-92* 


94-93* 


66-51* 


66-58* 


66-64 


86-29 






13-70* 







18-25* 



38-32 



52-21* 

52-82 
52-60* 



65-105* 

70-122* 

78-80* 

87-86* 

93-50* 

40-88* 

85-89 

49-104* 

40-34* 

49-73 



56-247 
16-21 



46-63 

13-95* 

55-60* 

13-39* 

13-27* 

13-159* 



52-32 
52-85* 



65-107* 

70-129* 

78-113* 

87-90* 

93-52* 

55-22 

92-13 

55-45* 

40-47 

55-43 



64-33 
16-32 



13-96* 
55-66* 
13-44* 
13-56* 
13-160* 



65- 114* 
75-55* 
78-115* 
87-121* 
93-59* 

66- 20 

55-111* 

40-59 

91-15 



43-9 

52-42* 

58-96 

63-7 

76-28* 

91-79* 

94-94 

66-86* 



43-14* 

52-43* 

58-103* 

64-15* 

76-29 

91-80* 



65-120* 

75-57* 

78-122* 

87-123* 

93-65* 

74-33 



68-53* 

75- 64* 
85-63* 
87-130* 

76- 36 



91-17* 91-87* 
40-131 

91-92 95-20 



43-15* 

52-46 

58-104* 

64-16* 

76-119 

91-81 



66-87* 66-96 



43-18 

52-53* 

^8-105 

6*.-17 

77-8 

91-108* 



43-21 

52-54* 

61-5* 

65-74* 

84-8* 

91-109* 



43-56* 

52-55 

61-6* 

65-75* 

84-9* 

91-110 



43-57* 

53-8* 

61-7* 

65-76 

84-12 

94-58* 



43-60 


50-20* 




3 J— 1 u 


61-8 


62-5* 


67-8* 


67-9* 


85-6* 


86-73* 


94-59* 


94-60 


74-148* 


74-159 



68-55* 


68-62* 


68-68* 


70-67* 


75-70* 


76-93* 


76-95* 


76-102* 


85-65* 


85-68* 


86-56* 


86-58* 


89-75* 


89-77* 


89-84* 


89-96* 


90-7 








91-94* 









70-69* 
76-108* 
86-65* 
90-75* 



70-76* 
78-57* 
86-69* 
90-77* 



70-85* 
78-59* 
87-68* 
90-84* 



13-99* 46-19* 
56-286* 56-287* 
13-58* 14-14* 



46-20* 46-23* 46-82* 49-89* 49-90* 
56-294* 

14-17* 14-19* 15-20* 15-39* 15-41* 



49-96* 50-189* 50-190* 
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UNIT 



UNITBO 

UNITCN 

UNITRT 

UNNO 

UNSEC 

UPDATE 

UPOPNT 

UREAO 

USOFCT 

UWRITE 

VI 

V2 
V3 

VA 

VAXTHE 

VERHO 

VLD 

VLD1 

ULOOP 

WP 

URBLK 

URCm 

URFLG 

WRIT10 

URIT12 

WRIT13 

WRITE 

URITE1 

WRITE2 

URITE3 

URITE4 

WRITES 

WRITES 

WRITE9 

WRN 

WRNLN 

XAGAIN 

XB8A0 

XB8UFE 

XBLEN 

XBNCYL 

XBNFNO 

XBNIT 

XBMSEC 

XOONE 

XEOftCT 

XFLIP 

XNGBLK 

XNOINC 

XP8N 



5-A4# 
50-66 

87- 44 
27-6 
22-19 
27-9# 

5- 45# 
3-146# 
3-69# 

6- 45# 
3-62# 

82-149 
3-63# 
3-265# 

85-29* 
3-266# 
3-267# 

92- 19 
3-268# 

25-52 

88- 11 
3-1 38# 
3-1 39# 

85-1 2# 
3-246« 
5-20# 

85- 56 
3-31 U 
5-1 47# 

87-1 1U 
70-1 10# 

86- 46« 
3-54# 

65-95# 

68- 44# 

75- 45# 

76- 84# 

93- 40# 
78-103« 
85-53« 
82-28« 
82-30# 

69- 8# 
5-1 92# 

82-89 
82-88 
3-92# 

94- 14 
49-32 

5-1 20# 
55-128 
69-15 
69-11 
69-6# 
69-21 
52-20 



13-18 

50-124 

87-113 

27-1 0# 

27-4# 

27-13 

27-7* 

13-37 

49-110 

66-23* 

16-10 

82-1 54# 

65-16* 

86-23* 

19-7* 

19-18 

93-20* 

86-20* 

38-6' 

91 -4# 

18-46 

85- 15 
12-39 
65-81 

86- 31 
65-82 

69- 5* 

87- 124 

70- 123 
86-59 
65-102 
65-108 

68- 56 

75- 58 

76- 96 

93- 53 
78-116 
85-66 
82-30 
91-167 

69- 24 
49-25* 
82-92# 
82-94# 
40-138 

94- 30# 
49-53# 
40-142* 
55-;32# 
69-43« 
69-1«# 
69-42 
69-23# 
53-31# 



13-30 
56-18 
89-55 



55-119 
66-24 



65-18* 
86-25* 
19-9* 
65-20* 

86-78* 



13-60 
56-78 
90-50 



13-91 
65-97 
91-47 



13-103 

68-46 

91-140 



46-37 46-60 46-62 



65- 133 

66- 45 



68-18* 
87-11* 
85-83* 
68-15* 



68-84 
66-108* 



68-20* 
87-13* 
85-86* 
70-23* 



70-14* 
89-27* 
92-7* 
75-16* 



82-129 

40-154 49-54 
40-143* 53-8 



50-37 91-106 



53-9 



13-137 

70-43 

93-42 



13-209 
70-112 



46-8* 
75-47 



46-9 
76-86 



h6-15 
78-37 



46-79 
78-105 



46-81* 
85-55 



SEO 200 



48-5 
86-48 



74-211 76-144 89-103 90-103 91-89 



70-16* 
89-29* 
92-10* 
76-52* 



75-19* 
90-28* 



75-21* 
90-30* 



76-55* 
93-16* 



78-18* 85-24* 85-95 



78-14* 
86-13* 87-20* 



76-57* 
93-18* 



78-16* 85-27* 



89-31* 90-25* 



12-41 










65-98 


68-30 


68-47 


70-96 


70-113 


86-49 


87-97 


87-114 


93-26 


93-43 


68-32 


70-97 


75-33 


76-72 


78-89 


69-43 


69-46* 


73-4* 


73-41 


73-44* 


87-132 










70-131 










86-67 










68-50 


70-117 


75-52 


76-90 


78-110 


65-116 










68-64 










75-66 










76-104 










93-61 










78-124 










91-166 











75-31 
85-41 



75-48 
86-32 



76-70 
87-98 



76-87 
93-28 



78-88 78-106 85-39 



86-53 87-118 93-47 



94-12 94-16 
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CROSS REFERENCE TABLE (CREF V04.00 ) 

XPERR 69-52# 

XPNGRO 69-31 # 69-47 

XPRET 69-17 69-50# 

XSKIPI 55-10 55-13# 

XSKIP2 55-50# 55-65 

XSKIP3 55-48# 55-112 

XSICIP4 55-70 55-75f 

XSKiPS 55-77 55-84 55-87# 

XSKIP6 55-81 55-85# 

XSriPB 55-93 55-95# 

XSLEEK 55-25# 55-124 55-126 

XSLEIC2 55-31# 55-115 

XY2 74-118 74-146 74-173 74-184 74-193 74-1 98# 

XYZ1 74-59 74-120 74-199# 

Y 22-82# 35-17 

YES 89-80 89-90f 
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BCC 
BEQ 



BNI 



BNE 



BPL 
BR 



2-A# 
33-22 

2-4# 
13-196 
21-11 
3A-U 
49-M 
52-15 
56-73 
56-264 
58-206 
68-54 
70-119 

74- 205 
76-126 
80-17 
84-29 
87-69 
90-71 
93-73 

2-4# 
36-9 

65- 110 
87-73 

2-4* 
13-63 
16-32 
25-47 
40-8 
49-115 
52-62 
56-9 
56-207 
58-116 
63-12 

66- 49 
73-23 
76-118 
80-50 
86-75 
90-101 

93- 71 
2-4# 

94- 10 
2-4# 

13-109 
25-60 
36-20 
49-119 

55- 93 

56- 293 
58-211 
68-28 
72-25 

75- 66 
80-71 



7-24 

33- 25 
9-22 

13-198 
23-28 

34- 18 
50-57 
52-17 
56-75 
56-270 
58-218 
68-60 
70-121 

74- 214 
76-143 

80- 21 
85-35 
87-75 
90-74 
93-75 
13-57 
46-21 

67- 5 
87-126 

9-14 
13-67 
17-9 
26-31 
40-39 
50-88 
52-67 
56-40 
56-227 
58-120 
64-42 
66-73 
73-42 
76-129 

81- 27 
87-15 
90-105 
93-81 
31-18 

9-17 
13-152 
26-41 
37-11 
50-61 

55- 141 

56- 295 
58-222 

68- 56 
73-40 

75- 85 
80-87 



8- 18 
33-28 
11-19 
13-215 

25- 9 
35-15 
50-73 
52-39 
56-102 
56-285 

64- 6 
68-76 
70-127 
74-233 
76-157 

80- 23 
85-62 
87-83 
90-76 
95-16 
13-59 
46-31 
68-58 

89- 80 
10-22 
13-69 
18-16 

26- 36 
40-79 
50-91 
52-71 
56-43 
56-234 
58-124 

65- 22 

66- 77 
74-55 
76-135 

81- 43 
87-50 

90- 109 
94-47 
38-25 

9- 24 
13-164 

27- 13 
38-102 
50-123 

56- 13 

57- 21 
61-17 
68-64 
73-45 
76-49 
80-101 



10- 25 
38-34 

12- 20 

13- 217 
25-11 
38-100 
50-95 
52-41 

56- 113 

57- 15 

64- 36 

68- 78 

73- 14 

75- 27 
78-47 

80- 31 
85-64 
87-93 
90-82 
95-27 
13-97 
46-38 

69- 21 

90- 80 

11- 30 
13-108 
18-32 
27-6 
40-231 
50-100 
52-74 
56-52 
56-256 

58- 127 

65- 33 

66- 110 

74- 96 

76- 137 

81- 46 
87-57 

91- 54 
94-65 
38-27 

10-26 

13-166 

29-18 

40-10 

50-169 

56- 77 

57- 36 
63-14 
68-83 
74-28 
76-68 
81-50 



10-29 
38-48 
12-30 
14-18 
25-13 

42- 13 
50-111 
52-97 

56- 123 

57- 17 

64- 39 

69- 15 

73- 16 

75- 54 
78-56 

80- 55 
85-94 
87-120 

90- 94 
95-34 
21-18 
46-61 

70- 72 

91- 29 

12- 27 

13- 142 
18-49 

29- 6 

43- 49 
50-107 
52-82 

56- 59 

57- 39 

58- 133 

65- 48 

66- 120 

74- 120 

76- 138 

81- 49 
89-11 
91-63 
94-87 
38-90 

10-31 

14- 16 

30- 10 
40-41 
50-195 
56-114 
58-11 
64-45 
69-42 
74-102 
76-96 
81-54 



11- 20 
38-52 

12- 33 
15-17 
25-15 
46-18 
50-115 

55- 10 

56- 158 

57- 32 
65-104 

69- 17 

74- 26 

75- 56 
78-58 
80-58 
85-97 
87-122 
91-52 
95-37 
25-40 

49- 71 

70- 125 
91-122 

12- 40 

13- 144 
19-24 

29- 8 
43-55 

50- 109 
52-87 

56- 61 

57- 43 

58- 137 
65-58 

68- 9 
74-142 

76- 146 
82-147 
89-62 
91-65 
95-14 
41-16 

11-37 

14- 20 

30- 24 
40-82 
50-197 
56-119 
58-21 
65-23 

69- 47 
74-118 
76-104 
82-153 



11- 36 
38-57 

12- 37 
15-35 

25- 16 
46-28 
50-121 

55- 58 

56- 166 
58-19 
65-106 
70-52 

74- 39 

75- 62 
78-64 
80-64 

86- 5 

87- 128 
91-99 
95-44 

26- 14 

49- 91 
72-5 
93-55 

12- 45 

13- 146 

iJ-iS 

43-78 

50- 146 
52-89 
56-99 
58-9 
58-164 
65-68 
68-74 
74-203 

76- 169 

83- 11 
89-69 
91-88 
95-25 
46-85 

12-43 
15-19 
31-30 
41-19 

51- 21 
56-160 
58-61 
65-59 
70-20 
74-146 
76-171 

84- 21 



18-15 
58-93 
12-58 
15-40 
26-15 
46-51 
50-149 

55- 77 

56- 171 
58-59 
65-112 
70-61 

74- 41 

75- 78 
78-72 
80-86 
86-55 
89-65 
91-145 

26-16 

50-155 

75-20 

94-14 

12-49 

15-151 

25-26 

29-12 

45-82 

50-155 

52-91 

56-109 

58-55 

58-180 

65-126 

69-11 

74-257 

77-18 

84-18 

89-99 

91-97 



51-25 31-25 51-27 31-29 



12-60 

15-37 

31-45 

42-15 

51-56 

56-165 

58-84 

65-108 

70-64 

74-175 

78-60 

85-20 



13-21 
17-19 
26-20 
46-54 
SO-161 

55- 81 

56- 217 
58-82 
65-128 
70-63 

74- 77 

75- 80 
78-83 
80-95 
86-57 
89-74 
91-160 

26-18 
50-191 
75-60 
94-55 

12- 55 

13- 194 
23-41 
29-14 
46-11 
50-171 

55- 35 

56- 117 
58-35 
58-196 
65-150 
69-24 
75-11 
78-44 
84-27 
89-102 
91-116 



13-55 

18-45 

28-9 

46-57 

50-179 

55- 128 

56- 256 
58-89 
66-28 
70-66 

74- 79 
76-66 
78-112 
81-14 
86-65 
89-76 
92-18 

26-21 
55-41 
76-98 

12- 62 

13- 201 
23-44 
55-18 
46-59 
50-177 

55- 91 

56- 127 
58-57 
58-198 
65-152 
69-44 

75- 76 
78-51 
85-15 
89-105 
91-147 



15-94 
18-47 
iO-7 
47-5 

50- 188 
56-25 
56-241 
58-91 
66-59 
70-68 
74-90 
76-92 

78- 114 
81-40 
87-53 
89-82 
92-21 

26-54 
55-61 
76-125 

15-26 

13-213 

24-16 

37-9 

46-70 

51- 59 

55- 112 

56- 147 
58-42 
58-200 
65-155 
70-18 
76-12 

79- 20 
85-18 
89-109 
91-156 



13-106 

19-17 

51-14 

47-9 

51-15 

56-47 

56-250 

58-114 

66-125 

70-74 

74-167 

76-94 

78-120 

81-42 

87-62 

89- 92 
93-49 

28-10 
55-70 
78-62 

13- 58 

14- 13 
25-21 
58-8 
49-58 
51-45 

55- 115 

56- 185 
58-57 
58-205 
65-159 
70-49 
76-20 
80-25 
85-75 

90- 19 

91- 158 



32-11 

15-148 

19-20 

31-32 

49- 32 

51- 17 
56-63 
56-25i 
58-142 
68-26 
70-82 
74-193 
76-100 
78-152 
81-56 
87-64 
90-60 
93-51 

50- 8 
56-106 
78-118 

15- 45 

16- 12 

§8-57 
49-105 

52- 50 

55- 124 

56- 190 

58- 75 

59- 6 
65-142 
70-56 
76-47 
80-28 
85-101 

90- 57 

91- 164 



15-24 
18-55 

51- 45 
46-22 

52- 19 
56-175 
58-102 
65-116 
70-70 
74-184 
78-68 
85-37 



15-36 

20-16 

31-55 

46-52 

52-52 

56-205 

58-135 

65-158 

70-78 

74-209 

78-78 

85-66 



13-41 

25-54 

52-12 

46-41 

52-101 

56-225 

58-159 

66-71 

70-87 

74-212 

78-116 

86-7 



15-54 
25-9 
55-29 
49-48 

55- 57 

56- 245 
58-174 
66-85 
70-125 
75-13 
78-124 
86-17 



15-75 
25-16 

54- 20 
49-52 

55- 65 

56- 260 
58-176 
67-25 
70-131 
75-29 
78-128 
86-59 



SEQ 202 



33-19 

13-161 

20-14 

31-55 

49-45 

51-52 

56-67 

56-258 

58-172 

68-52 

70-92 

74-201 

76-116 

78-134 

82-149 

87-67 

90-69 

95-57 

51- 20 
56-288 
86-61 

15- 51 

16- 21 
25-34 
58-98 
49-108 

52- 52 

55- 126 

56- 204 
58-75 
61-15 
65-156 
73-10 
76-114 
80-56 
86-15 
90-64 
92-25 



51-33 52-50 57-33 58-100 74-59 80-69 80-80 



15-98 
25-17 
55-22 
49-95 

55- 84 

56- 272 
58-186 
68-11 
70-135 
75-58 
80-33 
86-67 



I 16 
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CALL 



oncooE 

OMENO 
OHOOT 

omv 
omvLY 

OUBINC 

GETB 
JNP 



ns6 

OVTERfl 



POP 



87-17 
90-78 
94-82 
2-4# 
13-62 
13-172 
19-22 
31-6 
40-32 
40-204 

48- 6 

49- 69 

50- 65 
53-35 

55- 86 

56- 292 
62-10 
65-150 
68-21 
70-94 
74-51 
74-198 
76-33 

78- 65 
80-68 
85-33 
87-129 

90- 32 

93- 24 

94- 35 
2-3# 
2-3# 
2-5# 
4-65# 
2-3# 

79- 7 
4-106# 

91- 156 
4-1 17# 
2-4# 

13-81 
16-33 
27-9 
47-10 

57- 44 
72-19 
84-34 

4- 56# 

5- 3 
60-6# 
79-7f 

4-32# 
13-45 
18-17 
27-10 

58- 88 



87-65 
90-86 
94-89 
9-23 
13-64 
13-180 
19-29 
31-33 
40-48 
40-208 

48- 7 

49- 79 

50- 151 
53-37 
55-99 
58-98 
62-19 
65-161 
68-24 
70-95 
74-58 
74-208 
76-38 
78-75 
80-79 
85-74 
87-141 
90-62 

93- 58 

94- 44 
5-3 

97-48 



5-3 
80-7 
52-30 
93-81 
25-9 

5-5 

13-112 

17- 28 
28-13 
48-13 
58-230 
73-48 
85-76 

5-49 
5-3# 

65-5 

80-7 
7-29 

13-46 

18- 33 
28-12 
50-9 



87- 71 
90-102 
95-39 
10-27 
13-65 
13-193 
20-22 
31-50 
40-60 
40-214 

48- 8 

49- 92 

50- 158 

54- 6 

55- 108 
58-106 
63-20 
66-22 
68-61 
70-128 
74-61 
74-217 
76-61 
78-86 
80-97 
85-99 

88- 11 
90-67 

93- 69 

94- 62 



40-5 
81-5 
52-89 



7-32 
13-123 
18-18 
29-25 

49- 116 
59-12 
74-236 
85-102 

5-50 
5-3# 
65-5# 
80-7# 
7-30 
13-110 
18-50 
29-15 

50- 122 



87- 79 
91-61 
95-68 

12- 15 

13- 66 
13-212 
20-28 
32-15 
40-75 
40-242 

48- 9 

49- 93 

50- 192 
55-12 
55-118 
58-153 
63-26 
66-32 
68-72 
70-140 
74-67 

76-64 
78-87 
80-104 
85-106 

88- 12 
90-83 

93- 78 

94- 73 



49-8 
88-2 
58-33 



8-24 
13-131 
18-34 
30-13 
50-10 
60-23 
74-258 
86-79 

5-51 
40-5 
66-2 
81-5 

8-23 
13-111 
18-53 
29-23 
50-174 



87- 88 
91-154 

12- 22 

13- 72 
13-221 
23-8 

33-n 

40-86 
40-246 

48- 10 

49- 94 

50- 193 
55-21 
55-122 
58-170 
63-31 
66-38 
68-81 
72-7 
74-70 
74-235 
76-101 
78-121 
81-22 
86-30 

88- 13 
90-97 

93- 85 

94- 76 



52-10 

93-2 

58-73 



9-26 
13-157 
18-52 
31-48 
50-30 
61-24 
75-86 
87-138 

5-52 
40-5# 
66-2# 
81 -5# 

9-25 
13-122 
20-31 
30-12 
50-198 



87-124 
91-161 

12- 42 

13- 73 

14- 11 
23-52 
33-16 

40- 100 

41- 14 

48- 11 

49- 97 

50- 194 
55-24 
55-131 
58-201 
64-18 
66-41 
68-88 
72-14 
74-99 
74-245 
76-112 
78-138 
81-51 
86-64 

89- 8 

90- 113 
94-9 
94-95 



55-5 
94-2 
58-198 



10-37 
13-174 
19-25 
32-13 
50-47 
62-20 
76-160 
88-14 
5-53 
49-8 
70-2 
88-2 
10-36 
13-130 
23-20 
30-19 
56-76 



87-132 
91-169 

12- 46 

13- 115 

14- 30 
24-9 
33-17 
40-132 
42-28 

48- 12 

49- 101 
52-18 
55-39 
55-137 
58-229 
64-22 
66-60 
69-38 

73- 36 

74- 107 
74-248 
76-123 
78-142 
81-57 
87-25 
89-18 
91-27 
94-11 
94-97 



58-2 
96-5 
65-135 



11-24 

13-182 

20-32 

33-30 

50-199 

63-34 

77-20 

89-110 

5-54 
49-8# 
7C-2f 
88-2# 
11-21 
13-155 
25-53 
31-41 
56-250 



87-136 

93- 53 

12- 50 

13- 121 
15-15 
24-13 
33-32 
40-141 
42-30 
49-13 
49-113 
52-20 
55-49 
55-144 
59-9 

65- 45 

66- 61 
69-41 

73- 39 

74- 108 
74-256 
76-124 
79-17 
81-60 
87-26 
89-38 
91-83 

94- 13 

95- 8 



60-6 
74-257 



11-28 
13-204 
21-20 
34-22 

51- 44 
64-47 
78-130 
90-110 

5-55 

52- 10 
71-7 
95-2 
11-22 
15-156 
25-25 
51-46 
58-154 



89-15 
95-61 

12-54 

15-129 

15-18 

25-20 

56-7 

40-157 

45-8 

49-21 

49-122 

52-48 

55- 62 

56- 17 
60-11 

65- 46 

66- 95 
69-54 
75-52 

74- 126 

75- 22 

76- 127 
79-18 
81-61 
87-55 
89-67 
91-112 

94- 17 

95- 23 



65-5 
76-158 



11-54 
15-218 
22-5 
55-20 
52-106 
66-126 
78-159 
91-165 
5-56 
52-1 0# 
71 -7# 
95-2# 
11-25 
15-175 
25-55 
31-51 
58-208 



89-78 
95-80 

12-59 

15-139 

15-35 

25-58 

57-7 

40-164 

45-20 

49- 28 

50- 6 
52-56 

55- 65 

56- 104 
60-16 

65- 54 

66- 07 
70-25 
74-17 

74- 152 

75- 25 

76- 159 
79-26 
81-62 
87-60 
89-72 
91-120 

94- 18 

95- 52 



66-2 
81-43 



12-47 
15-25 
25-24 
56-24 
55-21 
67-19 
79-27 
92-26 
5-57 
55-5 
76-2 
94-2 
11-26 
15-181 
25-56 
54-21 
58-215 



89-86 
94-29 

12-64 

15-141 

15-56 

27-5 

58-19 

40-171 

45-62 

49- 41 

50- 24 
52-84 

55- 64 

56- 157 
60-21 

65- 72 

66- 107 
70->4 
74-25 

74- 155 

75- 65 

76- 174 
79-50 
82-156 
87-76 
89-85 
92-25 

94- 21 

95- 48 



70-2 
89-105 



12-51 
15-58 

24- 17 
57-14 
55-42 
68-85 
80-91 
95-82 

5-58 

55- 5# 
76-2# 
94-2# 
11-51 
15-202 

25- 57 

56- 15 
59-11 



89-100 
94-41 

12-66 

15-158 

17-15 

28-7 

58-85 

40-185 

46-10 

49- 47 

50- 29 
53-12 

55- 72 

56- 156 
60-22 

65- 80 

66- 125 
70-59 
74-55 

74- 155 

75- 74 
78-19 
80-15 
82-140 
87-85 
89-95 
92-50 

94- 25 

95- 58 



71-7 
90-105 



12-55 
15-42 
25-52 
58-104 
54-10 
69-51 
80-98 
94-106 
5-59 
58-2 
78-2 
96-5 
11-52 
15-205 
25-55 
56-25 
66-111 



90-21 

94- 49 

12-72 

15-162 

17-16 

29-5 

40-6 

40-187 

46-88 

49- 51 

50- 41 
55-14 

55- 75 

56- 289 
61-10 
65-115 
67-7 
70-75 
74-57 

74- 156 

75- 85 
78-49 
80-55 
84-14 
87-95 
89-115 

95- 12 
94-50 



76-2 
91-65 



12-70 

16-15 

25-54 

45-8 

55-158 

70-157 

82-157 

95- 63 

58-2# 
78-2# 

96- 5# 
12-68 
14-15 
25-57 
57-15 
66-114 



3E0 203 



90-72 
94-67 

15-49 

13-165 

17-27 

50-5 

40-12 

40-199 

47-12 

49- 55 

50- 46 
55-16 

55- 85 

56- 290 
61-23 
65-124 
67-14 
70-84 
74-45 

74- 174 

75- 89 
78-54 
80-62 
85-30 
87-96 
90-9 

93- 21 

94- 55 



78-2 
91-116 



15- 47 

16- 22 

26- 59 
46-78 
56-296 
71-11 
85-15 

96- 16 

60-6 
79-7 

97- 48 
12-69 
15-28 

27- 8 
58-20 
66-117 
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POPA 
PUSH 



PUSHA 
RETURN 



69-50 


74-218 


74-223 


74-226 


74-229 


95-6A 








87-137 


4-85# 


54-9 


70-136 


85-75 


4-9# 


7-19 


7-20 


8-14 


9-12 


13-88 


13-119 


13-127 


13-135 


13-136 


23-15 


23-22 


23-23 


23-31 


25-4 


29-4 


30-4 


31-5 


31-37 


34-10 


58-150 


59-4 


66-13 


66-15 


66-17 


83-6 


84-7 


95-10 


95-12 


95-18 


4-74# 


54-4 


70-6 


85-4 


87-5 


2-4# 


7-32 


8-24 


9-26 


10-37 


13-174 


13-182 


13-204 


13-218 


15-25 


19-25 


20-32 


21-20 


23-24 


24-17 


34-22 


35-20 


36-24 


37-14 


38-104 


51-44 


52-106 


53-21 


53-42 


54-10 


64-47 


66-126 


67-19 


68-85 


69-51 


78-139 


79-27 


80-91 


80-98 


82-157 


91-165 


92-26 


93-82 


94-106 


95-63 


4-1 33# 


25-16 








4-97# 


18-10 









76-147 76-150 



STOB 
XOR 



UOAFM - UDA FORPIATTER 
TABLE OF CONTENTS 



10-17 

13-170 

25-18 

36-6 

69-4 



11-24 

15-38 

25-54 

45-8 

55-138 

70-137 

83-13 

96-16 



DMACR X04.01 23-AUG-82 14:02:32 



3- 
5- 
7- 
12- 
14- 
17- 
22- 
38- 
46- 
49- 
52- 
56- 
58- 
62- 
63- 
67- 
68- 
73- 
75- 
76- 
77- 
78- 
85- 
90- 
91- 
93- 



EQUATES 

DATA STRUCTURES 

PIATH SUBROUTINES 

SDI SUBROUTINES 

OVERLAY PROCESSING ROUTINES 

MISCELLANEOUS COMMON ROUTINES 

DUP DM<->HOST STARTUP OVERLAY 

INITIALIZATION OVERLAY (GD 

DBN/XBN FORMAT OVERLAY (F1) 

DBN/XBN TRACK FORMAT OVERLAY (G7) 

LBN FORMATTING OVERLAY (F2) 

LBN FORMAT IMAGE SETUP OVERLAY (F8) 

L/RBN COMPUTE OVERLAY <G8) 

FCT DOWN-LINE LOAD OVERLAY (F3) 

RCT UPDATE OVERLAY (F4) 

RCT READ OVERLAY (Hi) 

FCT->RCT CONVERSION OVERLAY (F5) 

RCT INITIALIZE OVERLAY (F7) 

FCT READ OVERLAY (F6) 

GET FCT BLOCK FOR D/XBN FORMAT (G2) 

GET FCT BLOCK FOR LBN FORMAT (63) 

RCT CLEANUP OVERLAY (64) 

FINAL CHECK OVERLAY (H2) 

FCT WRITE OVERLAY (F9) 

P6N->D,X.L,RBN CONVERSION OVERLAY (65) 

ERROR MESSA6E OVERLAY (66) 



11-14 

13-178 

25-24 

37-6 

74-10 



11-28 

15-42 

26-39 

46-78 

56-296 

72-19 

84-34 



SEO 204 



76-153 82-144 83-12 84-33 95-49 95-59 95-61 

11-15 12-12 12-13 13-13 13-14 13-79 15-85 

13-186 13-187 15-11 18-7 18-25 18-41 20-7 

25-42 25-45 25-48 25-49 25-50 27-4 28-6 

38-16 38-82 50-4 50-53 50-116 56-68 58-46 

74-12 74-14 74-19 76-22 76-24 76-26 82-142 

11-34 12-70 13-47 13-112 13-123 13-131 13-157 

16-13 16-22 16-33 17-28 18-18 18-34 18-52 

27-9 28-13 29-25 30-13 .i-48 32-13 33-30 

47-10 48-13 49-116 50-10 pO-30 50-47 50-199 

57-44 58-230 5^-12 60-23 61-24 62-20 63-34 

73-48 74-236 74-258 75-86 76-160 77-20 78-130 

85-76 85-102 86-79 87-138 88-14 89-110 90-110 
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1 
2 

4 
5 
6 
7 
8 
9 
10 

n 

12 

15 

U 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 



.TITLE UDAFM - UDA FORMATTER 
•IDENT /02.01/ 
.NLIST BEX 



COPYRIGHT (C) 1980J981J982 

DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 



THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A 
SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION 
OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY OTHER 
COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE 
TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE 
WHO AGREES TO THESE LICENSE TERNS. TITLE TO AND OWNERSHIP OF 
THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DIGITAL. 

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. 

DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF 
ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 

VERSION 01.00 

M. A. PARENTI 16-MAY-80 

MODIFIED BY: 

VERSION 02.00 

M. A. PARENTI 09-0EC-80 

NEW DM INSTRUCTIONS (MEN -> MEN) 
CODE OPTIMIZATION 

31HMR-81 
N. A. PARENTI 

ADDED DOUBLE WORD ADDRESSING FOR OVERLAY ADDRESSES 



21-APR-81 

N. A. PARENTI 

FIX GROUP OFFSET CALCULATION 

23-APR-81 

M. A. PARENTI 

FIX ZERO GROUP PROBLEM 



24-APR-81 

N. A. PARENTI 

FIX LBN GROUP PROBLEM 

FIX RECAL WAIT PROBLEM 
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58 
59 
60 
61 
62 
63 
6A 
65 
66 
67 
68 
69 
70 
71 
72 
73 
7A 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 



05-HAY-81 

n. A. PARENTI 

FIX SIZE PROBLEM FOR RA81 

13-HAY-81 

H. A. PARENTI 

ADD LIMITED DUP FUNCTIONALITY 

15-MAY-81 

M. A. PARENTI 

FIX SUBUNIT MASK PROBLEM 

15-MAY-81 

N. A. PARENTI 

ONLY WRITE NON-PAD BLOCKS OF FCT 

15-MAY-81 

H. A. PARENTI 

FIX COMPUTATION OF NON-PAD FCT BLOCKS 

15-MAY-81 

M. A. PARENTI 

FIX BLOCK ZERO FCT PROBLEM 

28-MAY-81 

M. A. PARENTI 

FIX SUBUNIT PROBLEMS 

WRITE ONLY NON-PAD BLOCKS OF RCT 

01-JUN-81 

N. A. PARENTI 

FIX DOUBLE COMPARE PROBLEM 



08-JUN-81 

N. A. PARENTI 

FIX EXISTING FCT FORMAT PROBLEM 



17-JUN-81 

M. A. PARENTI 

FIX SUBUNIT WRITE PROTECT PROBLEM 

17-JUN-81 

M. A. PARENTI 

ADD STATUS UPDATES AT VARIOUS PLACES 

22-JUN-81 

M. A. PARENTI 

FIX RBN STARTING BITS PROBLEM 

22-JUN-81 

M. A. PARENTI 

FIX NON-PAD RCT INITIALIZE PROBLEM 



M 16 



UDAFn > UDA FORMATTER DHACR XOA.01 23-AUG-82 U:02:32 PAGE 2-2 
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SEQ 207 



115 

116 

117 

118 

119 

120 

121 

122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 

161 

162 

163 

164 

165 

)66 

167 

168 

169 

170 

171 



06-JUL-81 

M. A. PARENTI 

FIX STATISTICS COUNT OF BAD BLOCKS TO NOT INCLUDE RBN 

18-AU6-81 

M. A. PARENTI 

FIX CLEARING OF ECC THRESHOLD 

16-SEP-81 

M. A. PARENTI 

KLUDGE RECIR AND LAST BITS FOR UDA BUG 

6-0CT-81 

M. A. PARENTI 

FIX JUSTIFICATION ON RESPONSES 

19- 0CT-81 

M. A. PARENTI 

FIX ECC CHECKING AND MINOR FIXES TO QUESTIONS 

13-N0V-81 

M. A. PARENTI 

FIX CONVERSION BLOCK « CLEANUP COUNT 
CHECK FOR NO CORRECTION IF 0 THRESHOLD 

20- NOV-81 

M. A. PARENTI 

FIX PROBLEM WITH BAD RBN WHEN PRIMARY IN FCT 

ADD HEAD VERIFICATION ROUTINE AND MAKE FINAL CHECK 

ROUTINES A SEPARATE OVERLAY 

25-JAN-82 

M. A. PARENTI 

CHECK FOR VALID NUMERICS IN USER RESPONSES 

CHECK FOR UNIBUS ERRORS 

MODIFY LONG TIMEOUT 

CHECK FOR VALID STATUS IN GETUNT 

09-FEB-82 

M. A. PARENTI 

FIX VAX DATE ROUTINE 

18-FEB-82 

M. A. PARENTI 

CHANGE RETRY RECOVERY ON NON-CHECK PASS READS/WRITES TO NOT 
ISSUE A RECAL/RESEEK SEQUENCE AFTER RECOVERY LEVEL 0 

15-MAR-82 

M. A. PARENTI 

FIX PBN <-> LBN COMPARE PROBLEM IN FCT->RCT CONVERSION OVERLAY 

* 

24-MAR-82 

M. A. PARENTI 

FIX PBN -> D/X/L/RBN CONVERSION TO TAKE INTO ACCOUNT OFFSET 
FIX BAD RBN UITH PRIMARY IN FCT PROBLEM 
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SEO 208 



172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 



26~nAR-82 

n. A. PARENTI 

FIX PBN INCREMENT IN D/XBN FORMAT SETUP 

10-JUN-82 

N. A. PARENTI 

FIX RBN START BITS FOR PRIMARY 
FIX RCTTOT DECREMENT 



UDA50 DISK FORMATTER 



B 1 



UOAFH - UOA FORMATTER DNACR X04.01 23-AUG-82 14:02:32 PAGE 3 
EQUATES 



SEQ 209 



1 
2 
3 
4 
5 
6 
7 
8 
9 
10 

n 

12 

13 

U 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 



000000 



000000 
000001 
000002 



000000 
000000 
000005 
000001 
000002 
000003 
000004 
000000 
000400 
000401 



oooooo 

C00001 
000002 
000003 



oooooo 

OC0001 
000002 
000003 
000004 

oooor5 

000006 
000007 
000010 
000011 



.SBTTL EQUATES 
EQUATES 

CONDITIONAL FLAGS 



PROD 



OFFSETS FOR FORMAT TRACK TABLE 



FT.BUF = 
FT. LOW = 
FT. HI = 



0. 
1. 
2. 



OFFSETS FOR READ/VRITE BUFFERS 

RU.STAT = 0. 

RU.ER1 = 0. 

RU.DUM = 5. 

RU.BUF = 1 . 

RU.LOW - 2. 

RU.HI = 3. 

RU.CMD = 4. 

RU.DAT = 0. 

RW.EOC = 256. 

RU.ER2 = 257. 



.•PRODUCTION (1) 
:NOT PRODUCTION (0) 



:BUFFER POINTER OFFSET 
.-LOW ORDER HEADER OFFSET 
;HI ORDER HEADER 0FF5ET 



STATUS (12-15). NEXT BUFR PTR (0-14) 
ALSO USED AS ECC ERROR INDICATOR 
POINTER TO DUMMY SDI CONTROL BLOCK 
POINTER TO DATA BUFFER 
1ST HEADER WORD (LO ORDER LBN) 
2ND HEADER WORD (HI ORDER LBN) 
SDI RT CMD (8-15), HEAD ADDR (0-7) 
1ST WORD OF 256 WORD DATA BUFFER 
EDC 

1ST ECC RESIDUE 



OFFSETS FOR CHECK PASS READ COMMANDS 



RB.LOW 
RB.HI 
RB.CMD 
RB.IM 



BREAK 

FORMAT 

READ 

WRITE 

SEND 

RCV 

CMPDAT 

STATUS 

ECHO 

DINIT 



- 0. 

1. 
2. 
3. 

XFC DEFINITION EQUATES 

0. 
1. 
2. 
3. 

= 4. 

* 5. 

* 6. 
7. 
8. 
9. 



LOW ORDER BLOCK NUMBER 
HIGH ORDER BLOCK NUMBER 
READ COMMAND AND TRACK NUMBER 
IMAGE COUNTER 



.-BREAKPOINf XFC CODE 
: FORMAT TRACK XFC CODE 
.-READ N SECTORS XFC CODE 
.•WRITE N SECTORS XFC CODE 
.•SEND SDI COMMAND XFC CODE 
.•RECEIVE SDI MESSAGE XFC CODE 
.•COMPARE DATA PATTERN XFC CODE 
.•RETURN DRIVE STATUS XFC CODE 
:ECHO DATA TO DRIVE XFC CODE 
.•DRIVE INITIALIZE XFC CODE 



C 1 



UDAFH • UDA FORMATTER OMACR X0A.01 23-AU6-82 14:02:32 PAGE 3>1 
EQUATES 



SE<3 ?10 



58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 



000012 
000013 
000014 
000015 
000016 
000017 
000020 
000021 
000022 



000000 
000001 
000001 
000001 
000002 
000002 
000007 
000011 
000000 
000002 
000003 
000002 
000003 
000001 
000011 
000004 
000021 
000022 
000012 
000002 
000003 
000010 
000014 
000005 
000005 



000001 
000002 
000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
002000 
004000 
010000 
020000 
040000 



SIP = 10. 

UREAO = 11. 

UURITE ' 12. 

ECC = 13. 

NAINTR = 14. 

MAINTU s 15. 

CVT = 16. 

DONE = 17. 

UPDATE = 18. 

• 

: GET CHARACTERISTICS OFFSETS 

SHORTO - 0. 

FRCPV = 1. 

RTRV = 1. 

L0N6T0 = 1. 

ERRSYN = 2. 

ERCV = 2. 

REVSEC - 7 

OFFS = 9. 

CYLBN = 0. 

STLBN = 2. 

STRBN = 3. 

STXBN ' 2. 

STDBN = 3. 

STCYL = 1. 

LBNTRK = 9. 

RBNTRK = 4. 

XBNCVL = 17. 

DBNCYL • 18. 

LBNHOST = 10. 

6RPCYL = 2. 

TRK6RP = 3. 

FCTSZ = 8. 

RCTSZ = 12. 

DATA = 5. 

HEAD = 5. 



BIT DEFINITIONS 



BITO - 000001 

Bin = 000002 

BIT2 = 000004 

Bir3 = 000010 

BIT4 r 000020 

BIT5 r 000040 

BIT6 - 000100 

BIT7 s 000200 

BITS = 000400 

BIT9 s 001000 

BIT10 ' 002000 

BITT1 = 004000 

Bin 2 = 010000 

BIT13 s 020000 

Bin 4 r 040000 



:UAir FOR SECTOR/INDEX PULSE XFC CODE 
;READ UNIBUS NEnORY XFC CODE 
;URITE UNIBUS MEMORY XFC CODE 
;D0 ECC ON BUFFER XFC CODE 
;S£ND NAINT READ DATA XFC CODE 
.•RECEIVE NAINT WRITE DATA XFC CODE 
.•CONVERT TO PHYSICAL ADDRESS XFC CODE 
.•TERMINATE DM PROGRAM XFC CODE 
.•UPDATE DUP PROGRESS INDICATOR XFC 



SHORT TIME OUT 
NUMBER OF F/RCT COPIES 
NUMBER OF RETRIES 
LONG TIMEOUT 

NUMBER OF ALLOWABLE ECC ERRORS 

ERROR RECOVERY LEVELS SUPPORTED 

REVS/SECOND 

GROUP OFFSET 

CYLINDERS IN LBN AREA 

HIGH ORDER STARTING LBN 

HIGH ORDER STARTING RBN 

HIGH ORDER STARTING XBN 

HIGH ORDER STARTING DBN 

HIGH ORDER STARTING CYLINDER 

NUMBER OF LBNS PER TRACK (512) 

NUMBER OF RBNS PER TRACK 

NUMBER OF CYLINDERS IN XBN AREA 

NUMBER OF CYLINDERS IN 06N AREA 

NUMBER OF LBN'S IN HOST AREA 

GROUPS/CYLINDER 

TRACKS/GROUP 

FCT SIZE IN SECTORS 

RCT SIZE IN LBN'S 

DATA PREAMBLE SIZE 

HEADER PREAMBLE SIZE 
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EQUATES 



SEO 211 



115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
13A 
135 
136 
137 
138 
139 
HO 
HI 
U2 
U3 
U4 
U5 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
i71 



100000 



177400 
000377 
177700 
177600 
007777 
177760 
170377 
007777 
000004 
000010 
000200 
000400 



000175 



000000 
060000 
030000 
110000 
050000 
170000 
140000 
120000 
100000 
010000 



000000 
020000 
030000 
040000 
100000 



100000 
000002 
000001 



000001 
000002 



Bin 5 > 100000 



RANDOM DEFINITIONS 



n A o > lb 




1 77400 


'HIGH BYTE MASK 


LOBYTE 




000377 


■LOU BYTE MASK 


Hl2ByTE 




177700 


HIGH BYTE PLUS 2 BITS 


HI1BVTE 




177600 


;HIGH BYTE PLUS 1 BIT 


LO 


= 


007777 


;ALL BUT HEADER CODE 


FCLR 




177760 


■CLEAR FOR FRCPY 


STCLR 




170377 


; CLEAR FOR STARTING BITS 


BUFMSK 




007777 


;BUFFER CLEAR MASK 


VLD 




BIT2 


;STATUS VALID BITd^VALID) 


VLD1 




BIT3 


;STATUS VALID BITd^VALID) 


PARITY 


s 


BIT7 


; STATUS PARITY BITdsPARITY 


PARIT1 




81 T8 


;REAL TIME ERROR (I^ERROR) 


UNSEC 




000175 .-UNSUCCESSFUL COMPLETION 




HEADER 


CODES 





HD.LBN 

HD.RBN 

HD.REV 

HD.BAD 

HD.PRV 

HD.CLR 

HD.DBN 

HD.X8N 

PRMY 

FBDKD 



RC.FRE 
RC.PRV 
RC.SND 
RC.UNU 
RC.NUL 



RURDY 

ATTN 

RCVRDY 



ST.RU 
ST. PS 



000000 

060000 

030000 

110000 

050000 

170000 

140000 

120G00 

81T15 

8IT12 

RCT HEADER CODES 

000000 
020000 
r 030000 
040000 
100000 

DRIVE STATUS BITS 

BIT15 
» BIT1 
BITO 



GET STATUS BIT MASKS 



GOOD LBN 

GOOD RBN, PERHAPS UNUSED 
RE VECTORED LBN 
BAD BLOCK 

PRIMARY REVECTORED BLOCK 
CLEAR HDR CODE 
GOOD DBN 
GOOD XBN 

PRIMARY BIT IN FCT 
BAD HEADER CODE IN FCT 



FREE REPLACEMENT BLOCK 
PRIMARY REVECTOR 
SECONDARY REVECTOR 
BAD REPLACEMENT BLOCK 
NULL(FILL) BLOCK 



;READ/URITE READY BIT POSITION 

;ATTENTION 

;RECEIVER READY 



BITO 
BIT1 



;RUN/STOP SWITCH UIN 
.-PORT SWITCH 1-IN 



E 1 
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SEO 212 



172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 



000040 
170000 
000020 
001000 
002000 
000004 
000010 
000020 
000374 
000002 



000023 
000003 
000000 
000001 
000002 
000000 
000003 
000006 
000011 
000014 
000017 
000022 
000025 
000030 
000033 
000036 
000041 
000044 
000047 
000052 
000055 
000060 
000063 
000066 



000001 
000010 
000100 
001000 
000002 
000020 
000040 
000004 
000200 
000400 
002000 
004000 
020000 



ST. OR 
ST.WP 
ST.SR 
ST. OB 
ST.FO 
ST. IN 
ST.WE 
ST. OF 
ST. ERR 
ST.ERB 



BITS .-DIAGNOSTIC REQUESTED 1*YES 

BIT12«BIT13*BIT14«BIT15 ;URITE PROTECT SWITCH SU:OJ UIH 

BIT4 .SPINDLE READY I^YES 

BIT9 ;OIAG CYL ACCESS ENABLED 1«YES 

BIT10 ; FORMAT CYL ACCESS ENABLED 1>YES 

BIT2 .-DRIVE INITIALIZED 1-YES 

BIT3 .-WRITE ERROR (WRITE LOCKED) 

BIT4 .-DIAG FAILED - CANNOT DRIVE CLEAR 

000374 .-COMBINED CLEARABLE ERRORS BITS SET 

2. .-ERROR BYTE OFFSET (3RD WORD) 



OVERLAY TABLE OFFSETS 



&VCNT - 


19. 


OVLEN = 


3 


LEN 


0 


HSTLO = 


1 


HSTHI = 


2 


F1 = 


0 


F2 


3 


r3 


6. 


F4 = 


9. 


F5 


12. 


F6 


15. 


F7 = 


18. 


F8 = 


21. 
24. 


F9 s 


62 


27. 


63 


30. 


64 


33. 


65 


36. 


67 


39. 


68 


42. 


HI 


45. 


61 


48. 


66 


51. 


H2 


54. 



FCTAVL 

DBN 

REVECT 

PRIM 

FCTEMT 

60BAD 

RCINIT 

FCTBAD 

MANU 

DLL 

BST6S 

NOLL 

INIRCT 



FLA6 EQUATES 



BITO 

BIT3 

BIT6 

BIT9 

BIT1 

BIT4 

BIT5 

BIT2 

BIT7 

BIT8 

BIT10 

BIT11 

BIT13 



.-NUMBER OF OVERLAYS 

;LEN6TH OF 1 OVERLAY BLOCK 

.-WORD COUNT OF OVERLAY 

.-LOW ORDER UNI8US ADDRESS 

.-HI ORDER UNIBUS ADDRESS 

.-OFFSET INTO TABLE 

.-SECOND OVERLAY OFFSET INTO TABLE 

.-THIRD OVERLAY OFFSET INTO TABLE 

.-FOURTH OVERLAY OFFSET INTO TABLE 

.-FIFTH OVERLAY OFFSET INTO TABLE 

.-SIXTH OVERLAY OFFSET INTO TABLE 

.-SEVENTH OVERLAY OFFSET INTO TABLE 

:EI6TH OVERLAY 

.-NINTH OVERLAY 

.-ELEVENTH OVERLAY 

.-TWELVTH OVERLAY 

: THIRTEENTH OVERUY 

.-FOURTEENTH OVERLAY 

.-SIXTEENTH OVERLAY 

.-SEVENTEENTH OVERLAY 

.•NINETEENTH OVERLAY 

.-TENTH OVERLAY 



.-FCT AVAILABLE 
.-FORMAT DBN AREA 
.-REVECTOR FLAG 
; PRIMARY FOUND FLA6 
;FCT EMPTY FLAG 
.-DO BEST GUESS IF FCT BAD 
;RCT LAST BLOCK FIXED UP 
,-FCr FOUND BAD (FOR STATS) 
.-MANUFACTURING FORMAT 
.-DOWN-LINE LOAD FLA6 
.BEST 6UESS FORMAT 
.-ONLY WRITE FCT SCRATCH 
:INIT RCT FLAG 



F 1 
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SEQ 213 



229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

2A0 

2A1 

2A2 

2A3 

2A4 

2A5 

2A6 

247 

248 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 

261 

262 

263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 

275 

276 

277 

278 

279 

280 

281 

282 

283 

284 

285 



040000 
0.0000 
100000 



000001 
000002 
000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
002000 
004000 
010000 
020000 



000000 
000002 
000004 
000005 
000006 
OOC010 
000011 
000012 
000013 



000016 



000002 
000001 
000016 
000012 
000025 
100000 



FINI 

CNRONE 

RTY 



UP 

RTYDN 

RPRIM 

ERDN 

DEAD 

BDHD 

RCINDN 

QUESDN 

FLIPON 

REPEAT 

6TFLAG 

STFLAG 

BDTST 

FPRIN 



V2 

V3 

V4 

CVL 

6RP 

TRK 

STSC 

INDSEC 



BIT14 
BIT12 
BIT15 



FLAG1 EQUATES 



BITO 

BIT1 

BIT2 

BIT3 

BIT4 

BIT5 

BIT6 

BIT7 

BIT8 

BIT9 

BIT10 

BIT11 

BIT12 

6IT13 



.-FORMAT FINISHED FLAG 
.•CHARACTERISTICS DONE FLAG 
.RETRY FLAG 



.-WRITE PROTECT FLAG 
.-RETRY DOME ON THIS SECTOR 
.-FLAG FOR PRIMARY GOOD EDC 
.-FLAG FOR ERROR EXIT TRY 
.-HOST GONE FLAG 

.-BAD HEADER ON CHECK P'SS READ 

;RCT INIT DONE (WITH ONE FULL PAD BLK) 

.-STARTUP QUESTIONS FINISHED 

.-FLIP FLAG FOR CONVERSIONS 

.-REPEAT QUESTION FLAG FOR STARTUP 

.FLAG FOR GETB MACRO 

.-FLAG FOR STOB MACRO 

.-FLAG FOR TEST OF BAD HEADER IN VERHD 

.-FLAG FOR PRIMARY IN FCT 



PHYSICAL CONVERSION XFC BLOCK EQUATES 



0 

2 

4. 

5. 

6. 

8. 

9. 

10. 

11. 



DMBUF OFFSETS 
DMBUFL - 14. 

FCT BLOCK OFFSETS 



FSER = 2 

INST = 1 

C512 = 14. 

FDAT = 10. 

FCTFL6 = 21. 

NOFCT - Bins 



RCT BLOCK OFFSETS 



CYLINDER PARAMETER 

BLOCK NUMBER PARAMETER 

BLOCKS PER TRACK PARAMETER 

ONLY FOR R6N*S 

CYLINDER RETURNED 

GROUP RETURNED 

TRACK RETURNED 

STARTING SECTOR RETURNED 

SECTOR FROM INDEX 



.-BUFFER LENGTH 



SERIAL NUMBER 

FORMATTIN INSTANCE NUMBER 

COUNT OF USED 512 ENTRIES IN FCT 

MOST RECENT FORMAT DATE 

FCT FLAG FOR GOOD/BAD FCT 

FLAG - 0 - FCT GOOD 

1 - FCT KNOW BAD 



6 1 
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286 

287 

288 

289 

290 

291 

292 

293 

29A 

295 

296 

297 

298 

299 

300 

301 

302 

303 

30A 

305 

306 

307 

308 

309 

310 

311 

312 

313 

3U 

315 

316 

317 

318 

319 

320 

321 

322 

323 

324 

325 

326 

327 

328 

329 

330 

331 

332 

333 

33A 

335 

336 

337 

338 

339 

340 

341 

342 



000000 



000006 
000011 
000004 
000002 
000004 
013400 
122400 
100000 
010000 
000200 
000400 
000440 
000003 
020000 
100000 
040000 
126736 
074161 
100000 
000010 
007774 
000040 
020040 



000000 
000000 



004535 
005152 
005567 
006204 
006621 
007321 



004535 
005152 
005567 
006204 
006204 



RSER 



TUOB 

THREB 

RDLEN 

ERLEN 

REVLEN 

RWCMD 

URCMD 

RDCMD 

ECCF 

RBNRPT 

SEC$I6 

SECSI8 

IMLEN 

BD 

LAST 

RECIR 

W512 

H576 

TIMVAL 

MAXTRY 

DUPOVL 

LOBL 

6LANUD 



MASK 
UID 



BUFl 
BUF2 
6UF3 
BUF4 
BUF5 
BUF6 



RDBUF 

PBN6UF 

GDBLK 

PRNBUF 

REVBUF 



NISC DEFINITIONS 



6. 
9. 
4. 
2. 
4. 

013400 

122400 

100000 

BIT12 

128. 

256. 

288. 

3. 

BIT13 

BIT15 

BIT14 

126736 

074161 

32768. 

8. 

7774 

00040 

20040 



STATUS OFFSETS 



0 
0 



;SER1AL NUMBER OFFSET 



LENGTH OF 
LENGTH OF 
LENGTH OF 



2 IMAGE ENTRIES 

3 IMAGE ENTRIES 
CHECK PASS READ BLOCK 

LENGTH OF RE VECTOR TABLE ENTRY 

LENGTH OF SECONDARY TABLE 

SDI READ COMMAND 

SDI WRITE COMMAND 

SIGNAL TO XFC NO MORE BLOCKS 

ECC ERROR BIT 

NUMBER OF RBN COPIES IN REVECTOR 
SECTOR SIZE IN UORDS FOR 512 BYTE 
SECTOR SIZE IN UORDS FOR 576 BYTE 
LENGTH OF IMAGE BLOCK 
BAD FLAG IN IMAGE BUFFER 
LAST FLAG IN IMAGE BUFFER 
RECIRCULATE IN FORMAT IMAGE BUFFER 
FCT MODE INDICATOR FOR 512 
FCT MODE INDICATOR FOR 576 
TIMER LOOP VALUE 

FINAL SECONDARY URITE RETRY LIMIT 
OVERLAY STARTING ADDRESS FROM DUP 
BLANK IN LOU ORDER BYTE 
WORD WITH 2 ASCII BLANKS 



;SUBUNIT OFFSET MASK 
.-UNIT NUMBER OFFSET 



BUFFER DEFINITIONS 

BUFFERS ARE 269 WORDS LONG AND ARE LOCATED AT LOC 4535(8)-7777(8) 



= 004535 
= 005152 
005567 
= 006204 

- 006621 

- 007321 

BUFFER ASSIGNMENTS 
BUFl 

' BUF2 
* BUF3 
BUF4 
' BUF4 



BUFFER 
BUFFER 
BUFFER 
BUFFER 
BUFFER 
BUFFER 



AT 
AT 
AT 
AT 
AT 
AT 



LOCATION 
LOCATION 
LOCATION 
LOCATION 
LOCATION 
LOCATION 



4535(8) 
5152(8) 
5567(8) 
6204(8) 
6621(8) 
7321(8) 



READ/WRITE BUFFER 

BUFFER OF BAD PBN'S 

DATA FOR GOOD SECTOR 

DATA PATTERN FOR PRIMARY REVECTOR 

SECONDARY REVECTOR BUFFER 
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CnDBUF = BUfS 

RCTBUF - BUF5 

RBP«UF = BUFS 

BOLST s BUFS 

CLBUF - BUF6 

IMAGE s BUF6 



B«AX = 7775 



EQUATES 




3A3 


006621 


344 


006621 


345 


006621 


346 


006621 


347 


007321 


348 


007321 


349 




350 




351 




352 




353 




354 


007775 


355 




356 




357 





READ COMMAND BUFFERS 

RCT BLOCK BUFFER 

R6N FORMAT BUFFER 

HEAD VERIFICATION BUFFER 

USED IN FINAL CLEANUP 

FORMAT IMAGE BUFFER 

BUFFER EXCfc'SS AFTER FORMAT IMAGE 

IS USED TO HOLD BLOCKS TO BE 

REVECTORED. MAX BLOCKS BEFORE 

REVECTOR ROUTINE IS CALLED VARIES 

WITH THE SIZE OF THE FORMAT BUFFER AREA 

MAX BUFFER ADDRESS 



I 1 
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SEQ 216 



1 
2 

3 000000 

4 000714 
5 

6 
7 
8 
9 

10 000715 

11 000716 

12 000717 

13 000720 
14 

15 
16 
17 
18 

19 000721 

20 000721 

21 000722 

22 000723 

23 000724 

24 000725 

25 000726 
26 

27 
28 

29 000727 

30 000730 

31 000731 

32 000732 

33 000733 

34 000733 

35 000735 

36 000736 

37 000736 
38 

39 
40 
41 
42 

43 000740 

44 000741 
45 

46 
47 

48 000742 

49 000746 

50 000752 

51 000756 

52 000762 

53 000766 

54 000772 

55 000776 

56 001002 

57 001006 



003023 



000000 
000000 
000000 
000000 



100000 
000000 
000000 
000000 
000000 
000000 



000200 
001046 
000000 
000000 



000000 



000000 
000000 



ENTRY: 



UN. ERR 
UN.ERT 
UN.ERI 
UN.SEK 



URBU: 
RDBLK: 



.SBTTL DATA STRUCTURES 

DNCODE UDAFN.0,714J3,2SS. 
JNP START 

DATA STRUCTURES 

RETRY COUNTERS 



.WORD 
.WORD 
.WORD 
.WORD 



0 
0 
0 
0 



;JUHP TC START LOCATION 



UNSUCCESSFUL CMD RETRY CNTR 
TRANSMISSION ERROR RETRY CNTR 
INITLIZATION ERROR RETRY CNTR 
SEEK RETRY COUNT 



READ COMMAND BLOCK 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



100000 

0 

0 

0 

0 

0 



.•STATUS POINTER 
.•POINTER TO DATA BUFFER 
.'FIRST WORD OF EXPECTED HDR 
.•SECOND WORD 
;REAL->TIME SDI COMMAND 
.•POINTER TO SDI BLOCK 



DUMMY DOUBLE WORDS AND DUMMY SDI COMMAND 



HSLIM: 


.WORD 


200 




.WORD 


SCR-5 


DDUMMY: 


.WORD 


0 




.WORD 


0 


TEMP2: 






HULPC: 


.BLKW 


2 




.WORD 


0 


OFFSET: 






TEMP: 


.BLKW 


2 





CURRENT 


UNIT: 


.WORD 


UNNO: 


.WORD 




MESSAGE 


CR.6ST: 


MSG 


CR.GCR: 


MSG 


CR.6SR: 


MSG 


CR.DIS: 


MSG 


CR.RUN: 


MSG 


CR.ACC: 


MSG 


CR.CLR: 


MSG 


CR.SEK: 


MSG 


CR.RCL: 


MSG 


CR.ERV: 


MSG 



0 
0 

TABLES 

6ST,1.ST,7 

GCR.1,CR,11. 

GSR. 2, SCR, 19. 

DIS.2«ST,6 

RUNJ,ST«6 

ACC.3.ST,6 

DCLR,2,ST,6 

ISEEK.6.ST.6 

IRECAL.1,ST,6 

EREC0V«2.ST,6 



.•HEADER CMP LIMIT 
.•POINTER TO SUBUNIT CHAR 
: DUMMY DOUBLE WORD FOR ONE 
;BYTE OPERAND CONVERSION 
.-ALSO USE AS TEMP 
.-MULTIPLICATION BUFFER 
.•RESERVED LOCATION (A>7) 
;FOR EASIER REFERENCE 
.-USED FOR COMPUTATIONS 



;SDI INTERCONNECT 
;UNIT NUMBER ENTERED 



GET STATUS 

GET CHARACTERISTICS 

GET SUBUNIT CHARACTERISTICS 

UNLOAD DRIVE 

LOAD DRIVE 

SET FORMAT ACCESS 

DRIVE CLEAR 

SEEK 

RECALIBRATE 

ERROR RECOVERY COMMAND 
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58 001012 
59 




CR.ONL: 


MSG 


ONLINE. 2, ST, 6 


60 




• 
• 
0 
• 


MESSAGES AND COMMANDS 


61 

62 001016 


004400 


GST: 


.WORD 


000011*256. 


63 001017 


103400 


GCR: 


.WORD 


000207*256. 


64 001020 


104000 


GSR: 


.WORD 


00210*256. 


65 001021 


OOOOOO 




.WORD 


0 


66 001022 


102000 


DIS: 


.WORD 


000204*256. 


67 




.IF EQ PROD 




68 001 C2? 


OOOOOO 




.WORD 


0 


69 




.IFF 






70 






.WORD 


1 


71 




.ENDC 






72 001 02A 


006000 


RUN: 


.WORD 


000014*256. 


73 001025 


100400 


ACC: 


.WORD 


000201*256. 


74 001026 


003006 




.WORD 


3006 


75 001027 


002400 


DCLR: 


.WORD 


000005*256. 


76 001030 


000374 




.WORD 


374 


77 001031 




ST; 


.BLKW 


*• 

7 


78 001040 




CR: 


.BLKW 


11. 


79 001053 




SCR: 


.BLKW 


19, 


80 001076 


005000 


I SEEK: 


.WORD 


000012*256. 


81 001077 


OOOOOO 




.WORD 


0 


OC OUllUO 


AAAAAA 
OOOOOO 




.WORD 


0 


83 001101 


OOOOOO 




.WORD 


0 


O/ AAilA*) 

84 001102 


1 A7AAA 

lOrOOO 


IRECAL: 


.WORD 


000216*256. 


85 001103 


003000 


ERECOV: 


.WORD 


000006*256. 


86 001104 


OOOOOO 




.WORD 


0 


87 001105 


105400 


ONLINE : 


.WORD 


000213*256. 


88 001106 
89 


000377 


* 


.WORD 


377 


90 
91 




0 
m 
0 


DISK LOCATION POINTERS 


92 001107 


OOOOOO 


a 

CURRBN: 


.WORD 


0 


93 001110 


OOOOOO 




.WORD 


0 


94 001111 


OOOOOO 


CURPBN: 


.WORD 


0 


95 001112 


OOOOOO 




.WORD 


0 


96 001113 


OOOOOO 


CURTRK: 


.WORD 


0 


97 001114 


OOOOOO 


CURBN: 


.WORD 


0 


98 001115 


OOOOOO 




.WORD 


0 


99 001116 




CURLBN: 






100 001116 


OOOOOO 


CURX8N: 


.WORD 


0 


101 001117 


OOOOOO 




.WORD 


0 


102 001120 




STASEC: 






103 001120 


OOOOOO 


HOLDBN: 


.WORD 


0 


104 001121 


OOOOOO 




.WORD 


0 


105 001122 


OOOOOO 


HOLRBN: 


.WORD 


0 


106 001123 


OOOOOO 


.WORD 


0 


107 001124 


OOOOOO 


HOLDPN: 


.WORD 


0 


108 001125 


OOOOOO 


.WORD 


0 


109 001126 


OOOOOO 


CYLNUM: 


.WORD 


0 


110 001127 


OOOOOO 


.WORD 


0 


111 001130 


OOOOOO 


SECTRK: 


.WORD 


0 


112 001131 


OOOOOO 


.WORD 


0 


113 001132 


OOOOOO 


SECTCr: 


.WORD 


0 


114 001133 


OOOOOO 


.WORD 


0 



S£Q 217 



;ONLINE COMMAND 



;GET STATUS COMMAND 

;6ET CHARACTERISTICS 

;GET SUBUNIT CHARACTERISTICS 

.'SUBUNIT MASK 

;UNLOAD DRIVE 
;NOT PRODUCTION - NO SPINDOWN 

:N0 SPIN DOWN MODIFIER 
: PRODUCT I ON - SPINDOWN 

; SPINDOWN 

.•INITIATE LOAD 

;ACCESS OIAG AND FMT CYL 

:MASK BYTE/NODE BYTE 

;DRIVE CLEAR 

:BHS TO CLEAR 

; STATUS MESSAGE BUFFER 

.•CHARACTERISTICS MESSAGE BUFF 

;SUBUNIT CHARACTERISTICS BUFF 

; INITIATE SEEK 



INITIATE RECAL 
ERROR RECOVERY COMMAND 
RECOVERY LEVEL 
ONLINE COMPIAND 
COMMAND TIMfcOUT (SECS) 



.•CURRENT RBN 
. ** 

; CURRENT PBN 

• ** 

; CURRENT TRACK 
.•CURRENT BLOCK NUMBER 

;FOR RCT INIT 

. CURREH^T XBN NUMBER 

.•FOR HEAD VERIFICATION ROUTINE 

.•BLOCK NUMBER OF FIRST BLOCK ON CYL 

• ** 

;BLOCK NUN OF FIRST RBN ON CYLINDER 

;P8N OF FIRST SECOTR ON TRACK 

.•CURRENT CYLINDER NUMBER 

•SECTORS/TRACK 
. •• 

•SECTORS/CYLINDER 

• •• 



LBNLBN 


.BLKU 


2 


RBNLBN 


.BLKW 


2 


XBNSEC 


.BLKU 


2 


TRKCYL 


- .BLKU 


2 


LBNCYL 


.BLKU 


2 


LBNPCY 


.BLKU 


2 


RBNPCY 


.BLKU 


2 


REVRBN 


.UORD 


0 




.UORD 


0 


CUROVL 


.UORD 


0 


HGHPBN: .BLKW 


2 



STACK 



.BLKU 
STACK: .UORD 
STCKSV: .UORD 



31. 

0 

0 



NISC DEFINITIONS 
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115 001134 

116 001136 

117 001140 

118 001142 

119 001144 

120 001146 

121 001150 

122 001152 000000 

123 001153 000000 

124 001154 000000 

125 001155 
126 
127 
128 
129 
130 
131 
132 

133 001157 

134 001216 000000 

135 001217 000000 
136 
137 
138 
139 
140 

141 001220 

142 001221 

143 001222 

144 001223 

145 001224 

146 001225 

147 001226 
148 

149 C01 227 

150 001230 

151 001231 

152 001232 

153 001233 

154 001234 

155 001235 
156 
157 

158 001236 

159 001236 004704 

160 001237 000000 

161 001240 000000 

162 001241 

163 001243 

164 001245 000000 

165 001246 000000 

166 001247 000105 

167 001250 000400 

168 001251 000100 

169 001252 002000 

170 001253 000000 

171 001254 000000 



000000 


FLAG: 


.UORD 


0 


000000 


FLAG1 : 


.UORD 


0 


000000 


ERFLAG: 


.UORD 


0 


000000 


URFLG: 


.UORD 


0 


000000 


BADPBN: 


.UORD 


0 


000000 


ERRBUF : 


.UORD 


0 


000000 


EMAX: 


.UORD 


0 


000000 


ERR: 


.UORD 


0 


000000 


HOLD: 


.UORD 


0 


000000 




.UORD 


0 


000000 


EIMAGE: 


.UORD 


0 


000000 


STARIT: 


.UORD 


0 


000000 


SKPCNT: 


.UORD 


0 


000000 


TBLK: 


.UORD 


0 



RCTTOT: 






CUTOF: 


.UORD 


2500. 




.UORD 


0 


FCNT: 


.UORD 


0 


FCTFHT: 


.BLKU 


2 


RCTFMT: 


.BLKU 


2 


FCTCPY: 


.UORD 


0 


NEXT1 : 


.UORD 


0 


INI: 


.UORD 


69. 


CNT: 


.UORD 


SECSI6 


LTO: 


.UORD 


100 


STO: 


.UORD 


1024. 


ERPNT: 


.UORD 


0 


BUFPNT: 


.UOR& 


0 



SEQ 218 



LBN'S IN LBN AREA 
RBN'S IN LBN AREA 
SECTORS IN LBN AREA 
TRACKS/CYLINDER 
NUMBER OF LBN CYLINDERS 
LBN'S/CYLINDER 
RBN'S/CYLINDER 
REVECTORED RBN NUMBER 

CURRENT OVERLAY 
HIGHEST PBN IN LBN AREA 



; STACK 

;TOP OF STACK 

; STACK PTR TEMP SAVE 



;FLAG UORD 

;FLA6 UORD 

; RE-FORMAT FLAG 

;RCT URAP FLAG 

; POINTER TO P6NTAB ENTRY 

;POINTER TO BEGINNING OF REVECTOR BUFFER 

:NAX NUMBER OF REVECTORS BEFORE 

;RCT UPDATE ROUTINE IS CALLED 

; NUMBER OF SECTORS IN ERROR 

.•DOUBLE UORD TEMP STORAGE 

; ADDRESS OF END IMAGE BLOCK 
.'STARTING ADDRES OF THIS PASS 
.•OFFSET FOR FIRST READ CHECK 
.•INTERLEAVE 
;6 - BI-LEAVE 
;9 - TRI-LEAVE 

.-ALSO RCT TOTAL HOLDING AREA 
; SECT/SECOND CUTOFF 
; DOUBLE UORD 

.'COUNT OF USED FCT ENTRIES FOR FORMATTING 

.SIZE OF ONE FCT COPY 

;SIZE OF ONE RCT COPY 

.•NUMBER OF FCT COPIES 

;MUTLI-COPY COUNTER 

.•INITIAL VALUE FOR EDC 

.•COUNT FOR EDC 

:L0N6 TIMEOUT 

.-SHORT TIMEOUT (IN MILLESECS) 
.•REVECTOR LIST POINTER 
.•BUFFER POINTER FOR FCT READ 



L 1 
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SEO 219 



172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 



001255 
001256 
001257 
001260 
001261 
001262 
001263 
001264 



001302 
001306 
001312 
001313 
001314 
001315 
001316 
001317 
001320 
001321 
001322 
001323 
001324 
001325 
001326 



001327 
001330 
001331 
001332 
001333 
001334 
001335 
001336 
CO J 337 
001340 
001341 
001342 
001343 
001344 
001345 
001346 
001347 
001350 
001351 
001352 
001353 
001354 
001355 
001356 



000000 
000000 
000001 
000000 
000000 
000000 
000000 
000016 



000000 
000000 
000000 
000000 
000000 
060001 
000000 
000000 
000000 
000000 
000000 
000000 
000000 



001057 
013176 
000000 
001402 
016304 
000000 
000422 
023346 
000000 
000652 
024412 
000000 
001202 
026764 
000000 
000334 
032510 
000000 
000450 
031370 
000000 
000573 
021310 
000000 



REVCNT: 


.WORD 


0 


FCTPTR: 


.WORD 


0 


FCTCNT. 


' .WORD 


1 




.WORD 


0 


FCTNPD: 


.WORD 


0 


RCTLBN. 


.UORD 


0 


HNCNT: 


.WORD 


0 


DMBUF: 


.REPT 


14. 




.UORD 


0 




.ENDM 




DATE : 


.BLKU 


4 


' SERNUn. 


.BLKU 


4 


FCTREV 


.WORD 


0 


LBNBAD 


.WORD 


0 


RCTBAD 


.WORD 


0 


DBBAD: 


.UORD 


0 


XB6AD: 


.UORD 


0 


FCnSG: 


.UORD 


60001 


INSTAR 


.UORD 


0 


HPREA: 


.UORD 


0 


DPREA: 


.UORD 


0 


ST. LBN 


: .UORD 


0 


ST.RBN 


- .UORD 


0 


ST.XBN 


.UORD 


0 


ST.DBN 


; .UORD 


0 



; RE VECTOR COUNT 

.•POINT TO CURRENT LOCATION IN FCT LBOKL 
.-CURRENT FCT BLOCK 

: NON-PAD FCT BLOCKS 
:LBN'S IN RCT 
;USED FCT ENTRIES 
.-MAINTENANCE BUFFER 
.-MAKE SURE IT IS 0 

.•DATE BUFFER 
.•SERIAL NUMBER 

;FCT ENTRIES AT CERTAIN POINTS 
.-TOTAL REVECTORED LBN'S 
.-TOTAL BAD RCT BLOCKS 
.•TOTAL DBN BAD BLOCKS 
.•TOTAL LBN BAD BLOCKS 
;DUP CODE 

.•POINTER TO START OF IMAGE 
;NEAt«R PREAMBLE LENGTH 
;DATA PREAMBLE LENGTH 
.•STARTING LBN BITS 
.-STARTING RBN BITS 
.•STARTING XBN BITS 
.•STARTING DBN BITS 



OVERLAY POINTERS 
NOTE: 



UHEN ADDING AN ENTRY TO THIS TABLE EQUATE 
OVCNT MUST BE INCREMENTED 



OVLTBL: .WORD 


0VL.F1 


.UORD 


0VS.F1 


.UORD 


0 


.UORD 


0VL.F2 


.UORD 


0VS.F2 


.WORD 


0 


.UORD 


0VL.F3 


.UORD 


0VS.F3 


.WORD 


0 


.WORD 


0VL.F4 


.UORD 


0VS.F4 


.UORD 


0 


.UORD 


OVL.FS 


.UORD 


0VS.F5 


.UORD 


0 


.UORD 


0VL.F6 


.UORD 


0VS.F6 


.UORD 


0 


.UORD 


0VL.F7 


.UORD 


0VS.F7 


.UORD 


0 


.UORD 


OVL.FS 


.UORD 


0VS.F8 


.UORD 


0 



LENGTH OF FIRST OVERLAY 
:LOU ORDER HOST ADDRESS 
;HIGH ORDER HOST ADDRESS 
.•LENGTH OF SECOND OVERLAY 
;LOU ORDER HOST ADDRESS 
.'HIGH ORDER HOST ADDRESS 
.LENGTH OF THIRD OVERLAY 
:LOU ORDEP HOST ADDRESS 
.•HIGH ORDER HOST ADDRESS 
.-LENGTH OF FOURTH OVERLAY 
;LOU ORDER HOST ADDRESS 
;HIGH ORDER HOST ADDRESS 
.•LENGTH OF FIFTH OVERLAY 
;LOU ORDER HOST ADDRESS 
;HIGH ORDER HOST ADDRESS 
.•LENGTH OF SIXTH OVERLAY 
;LOU ORDER HOST ADDRESS 
.HIGH ORDER HOST ADDRESS 
.•LENGTH OF SEVENTH OVERLAY 
;LOU ORDER HOST ADDRESS 
.•HIGH ORDER HOST ADDRESS 
.•LENGTH OF EIGHTH OVcRLAY 
;LOU ORDER HOST ADDRESS 
.•HIGH Of^DER HOST ADDRESS 
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?29 001357 


000205 




.WORD 


0VL.F9 


230 001360 


042640 




.WORD 


0VS.F9 


231 001361 


000000 




.WORD 


0 


232 001362 


000045 




.WORD 


0VL.G2 


233 001363 


033400 




.WORD 


0VS.G2 


234 001364 


000000 




.WORD 


0 


23S 001365 


000225 




.WORD 


0VL.G3 


236 001366 


033512 




.WORD 


0VS.G3 


237 001367 


000000 




.WORD 


0 


238 001370 


001667 




.WORD 


0VL.64 


239 001371 


034164 




.WORD 


0VS.G4 


240 001372 


000000 




.UORD 


0 


241 001373 

242 001374 


000351 




.WORD 


0VL.G5 


043252 




.UORD 


0VS.G5 


243 001375 


000000 




.WORD 


0 


244 001376 


000364 




.WORD 


0VL.G7 


245 001377 


015334 


« 


.WORD 


0VS.G7 


246 001400 


000000 




.WORD 


0 


247 001401 


000224 




.UORD 


0VL.G8 


248 001402 


022676 




.UORD 


0VS.G8 


249 001403 


000000 




.UORD 


0 


250 001404 


000313 




.UORD 


0VL.H1 


251 001405 


026136 




.UORD 


OVS.HI 


252 001406 


000000 




.UORD 


0 


253 001407 


001317 




.UORD 


0VL.G1 


2'>4 001410 


010340 




.UORD 


0VS.G1 


2 '>5 001411 


000000 




.UORD 


0 


256 C01412 


000471 




.UORD 


0VL.G6 


257 001413 


0A4174 




.UORD 


0VS.G6 


258 0014K 


000000 




.UORD 


0 


259 001415 


001337 




.UORD 


0VL.H2 


260 001416 


037742 




.UORD 


0VS.H2 


261 001417 


000000 




.UORD 


0 


262 001420 






0VL6LK: .BLKW 


4 



SEQ 220 



LENGTH OF NINTH OVERLAY 
LOU ORDER HOST ADDRESS 
HIGH ORDER HOST ADDRESS 
LENGTH OF TENTH OVERLAY 
LOU ORDER HOST ADDRESS 
HIGH OPDER HOST ADDRESS 
LENGTH OF ELEVENTH OVERLAY 
LOU ORDER HOST ADDRESS 
HIGH ORDER HOST ADDRESS 
LENGTH OF TUELFTH OVERLAY 
LOU ORDER HOST ADDRESS 
HIGH ORDER HOST ADDRESS 
LENGTH OF THIRTEENTH OVERLAY 
LOU ORDER HOST ADDRESS 
HIGH OROER HOST ADDRESS 
LENGTH OF FOURTEENTH OVERLAY 
LOU ORDER HOST ADDRESS 
HIGH ORDER HOST ADDRESS 
LENGTH OF FIFTEENTH OVERLAY 
LOU ORDER HOST ADDRESS 
HIGH ORDER HOST ADDRESS 
LENGTH OF SIXTEENTH OVERLAY 
LOW ORDER HOST ADDRESS 
HIGH ORDER HOST ADDRESS 
LENGTH OF SEVENTEENTH OVERLAY 
LOU ORDER HOST ADDRESS 
HIGH ORDER HOST ADDRESS 
LENGTH OF EIGHTEENTH OVERLAY 
LOU ORDER HOST ADDRESS 
HIGH ORDER HOST ADDRESS 
LENGTH OF NI»£TEENTH OVERLAY 
LOU ORDER HOST ADDRESS 
HIGH ORDER HOST ADDRESS 
FOR BUFFER OVERLAYS 



L 



N 1 



UDAFM - UDA FORMATTER DMACR X04.01 23-A'J6-8r. U:02:32 PAGE 6 
DATA STRUCTURES 



StQ 221 



00U24 



1 
2 
3 

5 
6 
7 
8 
9 
10 

11 00U4O 

12 00U41 

13 0OU42 
U 00U43 

15 00Uh4 

16 OOU45 
17 

18 

19 00UA6 

20 00K47 
21 

22 
23 
2« 

25 00U50 

26 00U51 

27 00U52 

28 O0U53 

29 001A54 

30 OOU55 

31 00U56 

32 00U57 

33 00K60 

34 00U61 

35 00U62 

36 001463 

37 00U64 

38 001465 

39 001466 

40 001467 

41 001470 

42 001471 

43 001471 

44 001472 

45 001473 

46 001474 

47 001475 

48 001476 

49 001477 

50 001500 

51 001501 

52 001502 



000377 
004536 
155555 
133333 
066666 
177777 



030206 
147571 



000000 
000000 
OOQOOO 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000001 
000000 
000002 
000000 
000090 
000000 

000000 
000000 
000000 
000000 
000000 
000000 
000005 
000000 
000000 

ooocoo 



: CONVERSION BUFFER 

CONBLK: .BLKU 12. 

« 

: COMPARE DATA XFC CONTROL BLOCK 



NUM: 


.WORD 


255. 


CBUF: 


.UORO 


RDBUF^I 


FWRD: 


.WORD 


155555 


SWRO: 


.WORD 


133333 


TURD: 


.WORD 


066666 


DURD: 

• 


.WORD 


177777 


EOC: 


.WORD 


30206 


BADEDC: 


.WORD 


147571 



« 


COUNTERS 


ERRCNT: 


.WORD 


0 


SECCNT: 


.WORD 


0 


N: 


.WORD 


0 


N1: 


.WORD 


0 


m^ : 


.WORD 


0 


CNTCYL: 


.WORD 


0 




.WORD 


0 


HD.CUR: 


.WORD 


0 


CUR6RP: 


.WORD 


0 


GRPCNT: 


.WORD 


0 


TRKCNT: 


.WORD 


0 


ONE: 


.WORD 


1 




.WORD 


0 


TWOC: 


.WORD 


2 




.WORD 


0 


SNDCNT: 


.WORD 


0 


RTYCNT: 


.WORD 


0 


CURPNT: 






UPDPNT: 


.WORD 


0 


TOTRCT: 


.WORD 


0 




.WORD 


0 


RCTCNT: 


.WORD 


0 


PCNT: 


.WORD 


0 


COUNT: 


.WORD 


0 


RETRVt 


.WORD 


5 


RECOV: 


.WORD 


0 


THPTRV: 


.WORD 


0 


RECTMP: 


.WORD 


0 



.•CONVERSION BUFFER 



NUMBER OF WORDS IN PATTERN 
BUFFER TO COMPARE(NOT FIRST WORD) 
FIRST WORD OF PATTERM 
SECOND WORD OF PATTERN 
THIRD WORD OF PATTERN 
DIAGNOSTIC VOR0(FIRST IN SECTOR) 



;EDC FOR ABOVE DATA PATTERN 
;BAD EDC FOR RBN BLOCKS 



FOR TESTING VERIFICATION 
SECTOR COUNT 

NUMBER OF ORIGINAL CHECK PASS READ 

NUMBER OF ERROR READS 

DITTO 

NUNBe» OF CYLINDERS TO FORMAT 

CURRENT HEADER 
CURRENT GROUP 
NUMBER OF GROUPS TO 00 
NUMBER OF TRACKS TO DO 
WORD CONSTANT OF 1 
DOUBLE WORD 
WORD CONSTANT OF 2 
DOUBLE WORD 

COUNT OF SECONDARY REVECTORS 
COUNT OF SECTORS RETRYED 
POINT FOR HEAD VERIFICATION 
POINTER FOR RCT UPOATb 
TOTAL LBN'S IN RCt'S 

CURRENT RCT BLOCK 
PBN BLOCK COUNTER 
COUNT FOR XBN DLL 
RETRIES FROM SDI 

RECOVERY LEVELS SUPPORTS BY DRIVER 

TEMP FOR RETRY COUNT 

TEMP FOR ERROR RECOVERY LEVEL 



i 
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UOAFM > UOA FORMATTER ONACR X0A.01 23-AUG-82 U:02:32 PAGE 
MATH SUBROUTINES 



SEfl 222 



1 






2 






3 






A 






5 






6 






7 






8 






9 






10 






11 






12 






13 






U 






15 






16 






17 






18 






19 


001503 




20 


001504 




21 


001505 


104235 


22 


001506 


104131 


23 


001507 


105245 


2A 


001510 


041512 


25 


001511 


115401 


26 


001512 


105141 


27 


001513 


100141 


28 


001 5U 


100445 


29 


001515 




30 


001516 




31 


001517 


117403 


32 


001520 


000000 


33 







.SBTTL MATH SUBROUTINES 

SUBROUTINES 

DOUBLE ADD ROUTINE 
INPUT PARAMETERS 

R3 CONTAINS POINTER TO OPERAND 1 



R4 



CONTAINS POINTER TO OPERAND 2 



DADD: 



DADD1 



OUTPUT PARAMETER 

R4 CONTAINS THE RESULT 

PUSH R5 

PUSH R1 

NOV (R3)*.R5 

MOV (R3),R1 

ADD (R4)t,R5 

BCC DADD1 

INC R1 

ADO (R4),R1 

MOV R1,(R4) 

MOV R5.-(R4) 

POP R1 

POP R5 

DEC R3 
RETURN 



;SAVE A SCRATCH REGISTER 

;SAVE ANOTHER 

;GET LOU ORDER OPERAND 

;GET HIGH ORDER OPERAND 

:ADD LOW ORDER OPERAND 

.•BRANCH IF NO CARRY 

:ADD ONE TO HIGH IF CARRY 

;AOD OP 2 

:SAVE HIGH ORDER 

;SAVE LOU ORDER 

.RESTORE R1 

.-RESTORE RS 

.•RESTORE R3 
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UDAFH • UOA FORMATTER OMACR X04.01 23-AUG-82 U:02:32 PAGE S 
HATH SUBROUTINES 



SEQ 223 



1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
16 
19 
20 
21 
22 
23 
24 
25 



001521 



001521 
001523 
001524 
001525 
001526 
001527 
001530 
001532 
001533 
001534 
001536 



DSUB: 



104245 
104141 
107135 
041530 
117401 
107631 
100141 
100445 

000000 



000001 



10$: 



DOUBLE PRECISION FIXED POINT SUBTRACT ROUTINE 
INPUTS : 

R3 = POINTER TO OPERAND 1 (SUBTRAHEND) 
R4 = POINTER TO OPERAND 2 (HINUEND) 



OUTPUT 



R4 s POINTER TO RESULT WHERE (R4) s (R4} - (R3) 



PUSH 

MOV 

MOV 

SUB 

BCC 

DEC 

SUB 

MOV 

MOV 

POP 

RETURN 



R1,R5 

(R4)*,R5 

(R4),R1 

(R3),R5 

10$ 

R1 

1(R3),R1 
R1,(R4) 
R5.-(R4) 
R5.R1 



SAVE REGISTERS 

GET LO ORDER HINUEND 

GET HI ORDER HINUEND 

SUBTRACT LOU ORDER OPERANDS 

POSITIVE RESULT 

BORROW FROn HI ORDER OPERAND 

SUBTRACT HI ORDER OPERANDS 

STORE HI ORDER RESULT 

STORE LO ORDER RESULT 

RESTORE REGISTERS 



UOAFM - UDA FORMATTER DNACR X04.01 23-AUG-82 U:02:32 PAGE 9 
HATH SUBROUTINES 



SEQ 22t* 



1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
?7 



001537 



DNUL: 



001537 

001541 104137 

001542 051547 

001543 100147 

001544 100647 000001 

001546 001562 

001547 104140 000733 5S: 
001551 104640 000001 000734 
001554 104203 000733 

001556 117407 10$: 

001557 011562 

001560 021503 

001561 001556 

001562 20$: 
001564 000000 



4"*' 

DOUBLE PRECISION FIXED POINT MULTIPLY ROUTINE 
INPUTS: 

R3 = POINTER TO MULTIPLIER (SINGLE PRECISION) 
R4 - POINTER TO NULTIPlICANT (DOUBLE PRECISION) 

OUTPUT: 

R4 : POINTER TO RESULT WHERE (R4} s (R4) * (R3) 



PUSH 

MOV 

BNE 

Mcy 

NOV 

BR 

MOV 

NOV 

MOV 

DEC 

BEQ 

CALL 

BR 

POP 

RETURN 



R0.R3 

(R3),»0 

5$ 

R0,(R4) 

R0.1(R4) 

20i 

(R4),NULPC 

1(R4),MULPC*1 

#HULPC,R3 

RO 

20$ 

DADD 

10$ 

R3.R0 



SAVE RO & R3 
GET MULTIPLIER 
MULTIPLIER NOT = 0 
LOAD LO ORDER RESULT 
LOAD HI ORDER RESULT 
RETURN 

COPY NULTIPLICANT FOR DADD 



ADJUST NULTIPLIER FOR •I 
NULTIPLIER - 0, EXIT 
PERFORM ITERATIVE ADDS 



RESTORE RO % R3 
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HATH SUBROUTINES 



SEQ 225 



1 001565 



I 



4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
U 
15 
16 

17 001565 

18 001571 

19 001572 

20 001573 

21 001574 

22 001576 

23 001577 

24 001600 

25 001601 

26 001602 

27 001603 

28 001604 

29 001606 

30 001607 

31 001610 

32 001611 

33 001612 

34 001613 

35 001615 

36 001616 

37 001622 
38 



ODIV: 



114007 
114001 
104132 

104645 000001 

051603 

104145 

106052 

041603 

001611 

021521 

105207 000001 

041574 

115401 

0C1574 

104145 

100147 

100641 000001 
100135 

000000 



10S: 
15S: 
20$: 

30S: 



DOUBLE PRECISION FIXED POINT DIVIDE 
INPUTS: 

R3 - POINTER TO DIVISOR (SINGLE PRECISION) 

HIGH ORDER WORD MUST BE ZERO 
R4 = POINTER TO DIVIDENT (DOUBLE PRECISION) 

OUTPUT: 

R3 = POINTER TO REMAINDER 
R4 s POINTER TO QUOTIENT 

NOTE - THE CASES WHERE EITHER THE DIVISOR OR DIVIOENT ARE ZERO. 
ARE NOT CONSIDERED IN THIS ROUTINE. 



PUSH 

CLR 

CLR 

NOV 

NOV 

BNE 

NOV 

CNP 

BCC 

BR 

CALL 

ADD 

BCC 

INC 

BR 

NOV 

NOV 

NOV 

NOV 

POP 

RETURN 



R0,R1.R2.R5 

RO 

R1 

(R3),R2 

1(R4}.R5 

20S 

(R4).R5 

R5.R2 

20i 

30S 

OSUB 

fl.RO 

toi 

R1 
10S 

(R4).R5 

R0,(R4) 

R1.1(R4) 

R5.(R3) 

R5.R2.R1.R0 



SAVE REGISTERS 

CLP LO ORDER QUOTIENT REG 

CLR HI ORDER QUOTIENT REG 

GET DIVISOR 

GET HI ORDER DIVIDENT 

DIVISOR NOT s 0 

GET LO ORDER DIVIDENT 

IS DIVIDENT < DIVISOR ? 

NO, CONTINUE 

YES. STOP 

SYNTHESIZE DIVIDE 

IHCn LO ORDER QUCTIENT 

DID NOT OVERFLOU 

ADJUST HI ORDER QUOTIENT 



; GET REMAINDER 

; LOAD LO ORDER QUOTIENT 

; LOAD HI ORDER QUOTIENT 

: LOAD RENAINDER 

: RESTORE REGISTERS 
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NATH SUBROUTINES 



sea 226 



1 

c 
















5 








u 








7 








8 








9 








10 








11 








12 








13 








14 


001623 






15 


001624 






16 


001625 


104141 




17 


001626 


104647 


000001 

www ' 


18 


001630 


106637 


000001 

wwwww ■ 


19 


001632 


011646 




20 


001633 


041641 




21 


001634 






22 


001635 






23 


001636 


106204 


000000 

\ wwwww 


24 


001640 


000000 






001641 








001642 






27 


001643 


106204 


077777 


28 


001645 


000000 




29 


001646 


106131 




30 


001647 


051654 




31 


001650 






32 


001651 






33 


001652 


106044 




34 


001653 


000000 




35 


001654 


106131 




36 


001655 


041641 




37 


001656 


001634 





DOUBLE COMPARE 
INPUT PARAMETERS 

R3 CONTAINS A POINTER TO THE FIRST OPERAND 

R4 CONATINS A POINTER TO THE SECOND OPERAND 

OUTPUT PARAMETERS 

THE FLAGS ARE SET AS IF A SINGLE PRECISSION "CMP" HAD OCCURED 



DCNP: PUSH 
PUSH 
MOV 
MOV 
CMP 
BEQ 
BCC 

DCMP4: POP 
POP 
CMP 

RETURN 
DCMP2: POP 
POP 
CMP 

RETURN 
DCMP1 : CMP 
BNE 
POP 
POP 
CMP 

RETURN 
DCMP3: CMP 
BCC 
BR 



RO 
R1 

(R4),R1 

1(R4),R0 

1(R3)«R0 

DCMP1 

DCMP2 

R1 

RO 

#0,R4 

R1 
RO 

#077777. R4 

(R3),R1 
DCMP3 
R1 
RO 

R4,R4 

(R3).R1 

DCMP2 

0CMP4 



SAVE RO FOR USE AS SCRATCH 
SAVE R1 FOR USE AS SCRATCH 
GET LOU ORDER DEST OPERAND 
GET HIGH ORDER OLST OPERAND 
DO ACTUAL HIGH ORDER TEST 
GO DO ADDITIONAL TESTING 
SRC HI, CLEAN UP AND RTN 
RESTORE R1 
RESTORE RO 

SET CONDITION CODES - SRC LSS 
AND RETURN 
RESTORE R1 
RESTORE RO 

SET CONDITION CODES - DST LSS 
AND RETURN 
TEST LOU ORDER 
BRANCH IF NOT EQUAL 
RESTORE R1 
RESTORE RO 

SET CONDITION CODES • EQUAL 
AND RETURN 
COMPARE AGAIN 
BRANCH ON SRC HI 
BRANCH ON SRC LOU 
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SDI SUBROUTINES 



1 
2 
3 
4 
5 

^ 

8 

9 
10 
11 

12 001657 

13 001660 
U 001661 

15 001663 

16 001664 

17 001666 

18 001670 

19 001672 

20 001673 

21 001674 

22 001676 

23 001677 

24 001701 

25 001702 

26 001704 

27 001706 

28 001707 

29 001710 

30 001712 

31 001713 

32 001715 

33 001717 

34 001720 

35 001721 

36 001722 

37 001724 

38 001725 

39 001727 

40 001732 

41 001733 

42 001736 

43 001737 

44 001740 

45 001742 

46 001743 

47 001744 

48 001745 

49 001747 

50 001750 

51 001751 

52 001752 

53 001754 

54 001755 

55 001756 

56 001757 

57 001760 



104203 

022010 

104207 

104673 

103203 

115003 

011677 

104030 

022234 

104205 

104253 

104202 

102203 

052005 

115402 

102203 

012005 

104202 

102203 

012005 

104032 

110702 

102302 

011740 

104202 

102200 

052005 

101200 

022226 

001661 

102203 

051745 

022152 

001661 

102203 

051752 

022226 

001661 

102203 

051757 

022226 

001661 

104153 

102203 



.SBTTL SDI SUBROUTINES 

GET STATUS 

OUTPUT PARAMETERS 

CLEARS DRIVE STATUS AND GETS 
IF NOT ALREADY RECEIVED 







GSTATS: 


PUSH 
PUSH 


R3 
R5 


000742 




STATST: 


mv 

CALL 


#CR.GST,R3 
TALK 


001031 






NOV 


#ST,RO 


000002 






NOV 


ST.ERB(R0>,R3 


177420 






BIC 
TST 
BEQ 


«ST.DF»NIBYTE,R3 
R3 

STSK1 


001030 






NOV 

CALL 


R3,0CLR*1 
CLEAR 


001032 




STSK1 : 


NOV 
NOV 


#ST*1,R5 
(R5>*,R3 


000001 






NOV 


«1,R2 


000040 






BIT 
BNE 
INC 


#ST.0R,R3 

STPNIC 

R2 


000001 






BIT 
BEQ 


#ST.RU«R3 
STPNIC 


000004 






NOV 


#4,R2 


000002 






BIT 
BEQ 
NOV 
SUAB 


#ST.PS,R3 

STPNIC 

R3*R2 

R2 


001021 






BIT 
BEQ 


GSR^l ,R2 
SRCK 


000003 






NOV 


#3,R2 


000001 


001221 




BIT 
BNE 


fUP.FLAGI 
STPNIC 


000001 


001221 




BIS 

CALL 

BR 


fWP.FLAGI 

ACCESS 
STATST 


000020 




SRCK: 


BIT 
BNE 
CALL 


#ST.SR,R3 

STFORN 

LOAD 


002000 






JNP 


STATST 




STFORM: 


BIT 
BNE 
CALL 
JNP 


#ST.F0.R3 
STDIAG 
ACCESS 
STATST 


001000 




STDIAG: 


BIT 
BNE 
CALL 
JNP 


fST.DB,R3 
STWLK 
ACCESS 
STATST 






STWLK: 


NOV 


(R5),R3 


000010 






BIT 


«ST.WE,R3 



SEQ 227 



CHARACTERISTICS 



PUSH R3 
PUSH R5 

POINT TO GET STATUS TABLE 
GET STATUS 

POINT TO SUBUNIT CHARACTERISTICS 

GET ERROR BYTE 

CLEAR HIGH BYTE AND DF BIT 

ANY NEED TO ISSUE DRIVE CLEAR ? 

NOPE - SKIP IT 

STORE NASK IN DRIVE CLR CONNAND 

DO A DRIVE CLEAR 

POINT TO FIRST WORD OF STATUS 

GET FIRST WORD OF STATUS 

ERROR SUBCODE IN CASE 

IS DRIVE IN DIAGNOSTIC REQUEST NODE 

YES, WE LOSE 

ERROR SUBCODE 2 

IS RUN STOP SWITCH OUT 

YES, LOSE AGAIN 

SUBCODE 

PORT SWITCH OUT ? 

YES - DIE PAINFULLY 

GET STATUS NODE BYTE 

SWITCH WRITE PROTECT TO LOW BYTE 

THIS SUBUNIT WRITE PROTECTED ? 

IF NOT CHECK IF SPINNING 

IN CASE IT'S FATAL 

BEEN HERE ONCE ? 

YUP - GIVE UP 

SET BEEN HERE FLAG 

TRY TO RESET IT 

AND SEE IF IT WORKED 

IS PACK SPINNING? 

YES. TEST FOR FORNAT ENABLE 

NO, SPIN PACK 

SEE IF ANYTHING CHANGED 

IS FORNATTING ENABLED? 

YES, TEST FOR DIAG ACCESS 

NO. SET UP DIAG/FORN ACCESS 

SEE IF ANYTHING CHANGED 

IS DIAG CYL ACCESS ALLOWED 

YES, CHECK FOR ERRORS 

NO, SET UP DIAG/FORN ACCESS 

SEE IF ANYTHING CHANGED 

GET SECOND STATUS WORD 

ANY WRITE ENABLE ERRORS 
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SDI SUBROUTINES 



61 

62 



58 001762 

59 001763 

60 001764 
001765 
001770 
001771 

64 001773 

65 001774 

66 001776 

67 001777 

68 002002 

69 002003 

70 002004 

71 002005 

72 002007 



011765 
022226 
001661 
102200 
052002 
104203 
022010 
104203 
022010 
101200 



OOOUOO 
104201 
022542 











CHAR 










ACCESS 








On 


STATST 


01 0000 


001 ??0 
W 1 ccv 




BIT 


MCM6Uf FLAG 










STSKP 


0007^^ 






MOV 


Mco nro ox 








CALL 


TALK 


000752 






MOV 


#CR.GSR,R3 








CALL 


TALK 


CI 0000 


001220 




BIS 


#CHRDNE,FLAG 






STSKP: 


POP 


R5 








POP 


R3 








RETURN 




000001 




STPNIC: 


MOV 


#UR1 








CALL 


ERRMNT 



NO, GET CHARACTERISTICS 
TRY ENABLING LOGICAL WRITE 
AND CHECK WORLD AGAIN 
CHARCTERISTICS ALREADY RECEIVED 
VUP - NO NEED TO GET AGAIN 
POINT TO GET CHAR CMD TABLE 
GET CHARACTERISTICS 
GET SUBUNIT CHARACTERISTICS 
GET THEM 

SET CHAR DONE BIT 
RESTORE R5 
RESTORE R3 
RETURN TO CALLER 
INDICATE STATUS FAILURE 
SEND ERROR MSG AND QUIT 
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SOI SUeROUTINES 



SEQ 229 



1 

i 

4 

5 

6 

7 

8 

9 
10 
11 
12 

13 002010 
U 002011 

15 002012 

16 0020U 

17 002015 

18 002016 

19 002020 

20 002021 

21 002022 

22 002023 

23 002025 
2A 002027 

25 002030 

26 002033 

27 002034 

28 002036 

29 002037 

30 002040 

31 002042 

32 002043 

33 002044 

34 002045 

35 002047 

36 002051 

37 002052 

38 002054 

39 002055 

40 002057 

41 002061 

42 002062 

43 002065 

44 002066 

45 002070 

46 002071 

47 002072 

48 002073 

49 002074 

50 002075 

51 002100 

52 002101 

53 002104 
002106 
002107 

56 002111 

57 002114 



54 

55 



104663 


000001 


104237 




104231 




104302 


000/40 


060004 




115001 




012030 




115400 


000716 


104201 


000002 


002075 




102200 


100000 


052036 




114000 


000716 


104231 




104137 




104302 


000740 


060005 




115001 




012052 




115400 


000715 


104201 


000004 


002075 




106207 


000175 


052062 




115400 


000715 


104201 


000003 


002075 




102200 


100000 


052070 




114000 


000715 



000000 
114002 
C22542 
102200 
052107 
101200 
104060 
002111 
104306 
106300 
072073 



TALK: 
L00P1: 



nS61: 
L00P2: 



100000 001220 

100000 001220 
001217 

001217 

001477 000716 



TALK ROUTINE 
INPUT PARAMETERS 

R2 CONTAINS PORT NUN8ER CODE 

R3 CONTAINS A POINTER TO A COMMAND/RESPONSE AODRESS/SIZF TABLE 

OUTPUT PARAMETERS 



TALKDN: 

TALKRT: 

TALKP: 

ERRT: 
TCLEAR: 



TALKIP: 
TALIP1: 



PUSH 


R3 




PUSH 


R4 




MOV 


1(SP),R3 


-RESTORE R3 FOR RETRIES 


NOV 


(R3)*«R0 


GET CONNANO ADDRESS 


NOV 


(R3)*,R1 


GET CONNAND SIZE 


MOV 


UNIT,R2 


MAKE SURE HAVE INTERCONNECT 


XFC 


SEND 


•SEND GET STATUS COMMAND 


TST 


R1 


;SUCESSFUL? 


BEQ 


MS61 


■YES, BRANCH 


INC 


UN.ERT 


; INCREMENT ERROR COUNT 


NOV 


f2,Rl 


; ERROR NUNBER IN CASE 


BR 


TCLEAR 


;D0 RECOVERY 


BIT 


#RTY-FLA6 
L00P2 


;IN A RETRY ? 

;YES - DON'T CLEAH COUNTER 


BNE 


CLR 


UN.ERT 


;FOR RESET 


NOV 


(R3)*.R1 


;POINT TO RCV BUFFER 


NOV 


(R3),R0 


rSET SIZE OF REPLY 


NOV 


UNIT,R2 


;NAKE SURE HAVE INTERCONNECT 


XFC 


RCV 


;RCV REPLY TO GET STATUS 


TST 


R1 


;SUCESSFUL? 


BEQ 


TALKDN 


;YES. CHECK STATUS 


INC 


UN.ERR 


;INCRENENT ERROR COUNT 


NOV 


f4,R1 


; ERROR CODE IN CASE 


BR 


TCLEAR 


;D0 RECOVERY 


CNP 


«UNSEC,RO 


;UAS CND UNSUCESSFUL? 


BNE 


TALKRT 


;YES, DONE 


INC 


(M.ERR 


;INCRENENT ERROR COUNT 


NOV 


#3,R1 


; ERROR CODE IN CASE 


BR 


TCLEAR 


;N0, TRY AGAIN 


BIT 


#RTY,FLA6 


;IN A RETRY ? 


BNE 


TALKP 


rYUP - SKIP CLEAfJ 


CLR 


UN.ERR 


; CLEAR FOR REST 


POP 


R4 


^RESTORE R4 


POP 


R3 


^RESTORE R3 


RETURN 






CLR 


R2 


-CLEAR SUBCODE 


CALL 


ERRMNT 


■ERROR EXIT 


BIT 


#RTY,FLA6 


'IN A RETRY '' 


BNE 


TALKIP 


■YUP - SKIP FLAG SET AND STACK SAVb 


BIS 


#RTY,FLAG 


SET FLAG 


NOV 


SP.STCKSV 


,SAVE STACK POINTER 


BR 


TALIP1 


■SKIP RETRY HANDLING 


MOV 


STCKSV.SP 


RESTORE STACK POINTER 


CNP 


RETRY^UN.ERT 


DONE RETRIES ? 


BNI 


ERRT 


YUP - CAN IT 



r 



J 2 
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58 002115 

59 002120 

60 002121 

61 002123 

62 002124 

63 002125 
6A 002126 

65 002 i 27 

66 002130 

67 002131 

68 002132 

69 002134 

70 C02135 

71 002137 

72 002140 

73 002141 

74 002142 

75 002145 
76 

77 
78 

79 002146 

80 002147 

81 002151 
82 

83 
84 

85 002152 

86 002153 

87 002155 

88 002157 

89 002160 

90 002161 

91 002163 

92 002165 

93 002166 

94 002167 

95 002170 

96 002172 

97 002175 

98 002176 

99 002177 
100 002201 

002203 
002205 
002207 

104 002211 

105 002212 

106 002213 

107 002214 

108 002215 

109 002216 

110 002217 

111 002220 

112 002221 

113 002222 

114 002224 



101 
102 
103 



106300 001477 000715 
072073 

104302 000740 

060011 

022642 

052115 

022627 

022627 

022642 

052135 

102201 000001 
052141 

104201 000024 
114002 
022542 
021657 

103200 100000 001220 
002012 



104203 001002 
002157 



CHP 
BNI 

mv 

XFC 

CALL 

BNE 

CALL 

CALL 

CALL 

BNE 

BIT 

BNE 

TERR: mv 
CLR 
CALL 

TATTN1: CALL 
BIC 
BR 



RE TRY, UN. ERR 

ERRT 

UNIT,R2 

DINIT 

STATVL 

TERR 

TIMER 

TIMER 

STATVL 

TERR 

«RCVRDY,R1 
TATTN1 
r20.,R1 
R2 

ERRMNT 
GSTATS 
#RTY.FLAG 
L00P1 



RECAL ROUTINE 



114000 
104203 

104137 
104631 
104302 
060004 
115001 
012177 
115400 
106300 
072222 
002157 
114000 
104304 
104631 
104637 
104302 
060005 
115001 
012217 
117404 
052203 
002222 



000000 
104201 
114002 



000717 
000762 



000001 
000740 



RECAL: 

« 
# 

LOAD: 
LOADS: 



PUSH 

NOV 

JMP 



R3 

#CR.RCL,R3 
LOADS 



LOAD ROUTINE 



000717 

001477 000717 



000717 
001251 
000002 
000003 
000740 



L0AD2: 
L0AD3: 



000003 



L0AD4: 
LOADER: 



PUSH 

CLR 

NOV 

PUSH 

NOV 

NOV 

NOV 

XFC 

TST 

BEQ 

INC 

CMP 

6M! 

BR 

CLR 

MOV 

NOV 

NOV 

NOV 

XFC 

TST 

BEQ 

DEC 

BNE 

BR 

POP 

POP 

RETURN 

NOV 

CLR 



R3 

UN.ERI 
#CR.RUN,R3 

R4 

(R3),R0 

1(R35,R1 

UNIT,R2 

SEND 

R1 

L0AD2 
UN.ERI 

RETRY,UN.ERI 

LOADER 

L0AD5 

UN.ERI 

LT0,R4 

2(R3),R1 

3<R3),R0 

UNIT,R2 

RCV 

Rl 

L0AD4 
R4 

L0AD3 
LOADER 
R4 
R3 

#3,R1 
R2 



SE3 230 



.•OVER THE LIMIT ? 
;YUP 

;6ET UNIT 

;INIT THE DRIVE 

;TST DRIVER STATUS VALIDITY 

:IF NOT ZERO - NO GOOD 

;UAIT ANOTHER 2 SECONDS 

;T0 MAKE SURE DRIVER HAS ENOUGH TIME 

;6ET VALID STATUS AGAIN 

;IF NO GOOD • ERROR 

;IS RECEIVER READY SET 

;YES - ALL SET 

:SET ERROR CODE 

.'CLEAR SUBCODE 

;DIE PEACEFULLY 

:GET STATUS AND CLEAR ERRORS 

.•CLEAR RETRY FLAG 
;AND TRY AGAIN 



•SAVE R3 

•POINT TO RECAL TABLE 
.•SEND CND VIA LOAD ROUTINE 



SAVE R3 
FOR INIT 

POINT TO LOAD DRIVE TABLE 
SAVE R4 

GETCONNAND ADDRESS 

GET CONNAND SIZE 

GET INTERCONNECT 

ISSUE GET STATUS CONNAND 

SUCCESSFUL ? 

YUP - SKIP RETRY 

INC COUNT 

DONE ALL RETIES ? 

YUP 

FOR ERROR CLEAR 

LONG TINEOUT VALUE (SECONDS) 

GET RECEIVE 8UFFRE 

GET BUFFER LENGTH 

GET INTERCONNECT 

RECEIVE SDI RESPONSE 

SUCCESSFUL ? 

YUP - SKIP RETRY 

DECRENENT COUNTER 

LOOP TILL DONE 

IF NOT DONE YET - THEN ERROR 

RESTORE R4 

RESTORE R3 

RETURN TO CALLER 

ERROR CODE 

CLEAR SUBCODE 
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CALL ERRNNT 
ACCESS ROUTINE 



lie nnppps 


02254? 




1 • w 






117 






118 






119 002226 






120 002227 

121 002231 


104203 


000766 


022010 

WfcfcW I w 




122 002232 






123 002233 


000000 

www 




12A 






125 






126 






127 002234 






128 002235 


104203 


000772 


129 002237 


022010 




130 002240 






131 002241 


000000 

www 




132 






133 






134 






135 '^02242 






136 002243 






137 002244 


104302 


000740 

WWW* ~»r 


138 002246 


104203 


000776 

WWW" • w 


139 002250 


022010 

WbbV 1 W 




140 002251 


104303 


001252 

WW 1 & 


141 002253 


022642 




1^.2 002254 


052300 




143 «jf02255 


102201 


000002 


144 002257 


052301 




145 002260 


102201 


100000 


146 002262 


052272 




147 002263 


1 1 7403 




148 002264 


012312 




149 002265 


10A207 


000240 


150 002267 


117407 




151 002270 


052267 




152 002271 


002253 




153 002272 


114001 




154 002273 


11 4000 


000720 


155 002275 






156 002276 






157 002277 


000000 




158 002300 


022362 




159 002301 


115400 


000720 


160 002303 


106300 


001477 


161 002306 


012312 




162 002307 


021657 




163 002310 


022 K6 




164 002311 


0022A4 




165 002312 


104201 


177775 


166 002314 


002273 




167 






168 






169 






170 002315 






171 002316 


104203 


000756 



ACCESS: 



CLEAR: 



SEEK: 
SEEKO: 

SEEK1 : 



000720 



SEEK7: 



SEEK6: 
SEEK4: 



SEEK5: 
SEEK2: 



SEEK3: 



01 SCON: 



PUSH R3 

nOV «CR.ACC,R3 

CALL TALK 

POP R3 

RETURN 

CLEAR ROUTINE 



PUSH 

nov 

CALL 
POP 

RETURN 



R3 

#CR.CLR,R3 

TALK 

R3 



SEEK ROUTINE 



PUSH 
PUSH 

mv 

NOV 
CALL 

nov 

CALL 

BNE 

BIT 

BNE 

BIT 

BNE 

DEC 

BEQ 

mv 

DEC 

BNE 

BR 

CLR 

CLR 

POP 

POP 

RETURN 

CALL 

INC 

C«P 

BEQ 

CALL 

CALL 

BR 

NOV 

BR 



R3 
RO 

UNIT.R2 , 

#CR.SEK,R3 

TALK 

ST0-R3 

STATVL 

SEEK5 

#ATTN,R1 

SEEK2 

«RURDY,R1 

SEEK6 

R3 

SEEK3 
#160., RO 
RO 

SEEK7 
SEEK1 
R1 

UN.SEK 

RO 

R3 

INITPT 

UN.SEK 

RETRY, UN.SEK 

SEEK3 

GSTATS 

RECAL 

SEEKO 

#-3,Rl 

SEEK4 



UNLOAD ROUTINE 



PUSH 
NOV 



R3 

#CR.DIS,R3 



:D1E 



SAVE R3 

POINT TO ACCESS TABLE 
SEND ACCESS CND 
RESTORE R3 
RETURN TO CALLER 



SAVE R3 

POINT TO CLEAR TABLE 
SEND CLEAR CND 
RESTORE R3 
RETURN TO CALLER 



SAVE R3 
SAVE RO 

NAKE SURE HAVE UNIT 

POINT TO SEEK TABLE 

SEND SEEK CONNAND 

SHORT TINEOUT 

CHECK FOR STATUS VALIDIT) 

IF NOT ZERO - DIE 

ANY PROBLENS 

YES, BRANCH 

NO, DONE? 

ALL DONE 

DECRENENT COUNTER 
IF ZERO THEN DEAD 
INS DELAY 
DECREMENT COUNTER 
DELAY LOOP 
TRY AGAIN 
CLcAR ERROR FLAG 
FOR RESET 
YES, RESTORE RO 
RESTORE R3 
RETURN TO CALLER 
JNIT THE DRIVE 
INCRENENT RETRY COUNTER 
HAVE WE DONE ALL RETRIES? 
YES, PANIC 

PANIC AND CALL GET STATUS 

RECAL DRIVE 

AND TRY AGAIN 

SET ERROR CODE 

RESTORE REGS AND RETURN 



'SAVE R3 

•DISCONNECT WITH 
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172 

173 

174 

175 

176 

177 

1?8 

179 

180 

181 

182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 

201 

202 

203 

204 

205 

206 

207 

208 

209 

210 

211 

212 

213 

214 

215 

216 

217 

218 

219 

220 

221 



002320 
002321 
002322 



002323 
002324 
002326 
002327 
002330 



002331 
002332 
C02334 
002336 
002340 
002341 
002342 
002344 
002345 
002346 
002347 
002350 
002352 
002353 
002354 
002355 
002356 
002360 
002361 



00?362 
00J364 
002365 
002367 
002370 
002371 
002372 
002373 
002375 
002376 
002377 
002401 
002402 



022010 
000000 



104203 
022010 

000000 



104204 
104203 
104042 
060011 
104207 
022642 
052353 
117407 
012353 
102201 
012344 
110204 
117403 
052340 



000000 



104302 
060011 
104207 
022642 
052377 
117407 
012377 
102201 
012367 
000000 
104201 
114002 
022542 



001012 



ONLIN: 



000001 
C00004 



066540 



000001 



AOUT: 



CALL 


TALK 


POP 


R3 


RETURN 




ONLINE 


ROUTINE 


PUSH 


R3 


NOV 


fCR.0NL,R3 


CALL 


TALK 


POP 


R3 


RETURN 




INITIALIZE ROUTINE 


PUSH 


R1 


PUSH 


R3,R4 


NOV 


«nR4 


MOV 


#4.i<3 


MOV 


R4,R2 


XFC 


DINIT 


MOV 


#28000., RO 


CALL 


STATVL 


BNE 


AOUT 


DEC 


RO 


BEQ 


AOUT 


BIT 


#RCVR0Y,R1 


BEQ 


ATTNl 


ROL 


R4 


DEC 


R3 


BNE 


INIT5 


POP 


R4,R3 


POP 


R1 


RETURN 





000740 
066540 

000001 
000024 



INIT GIVEN PORT 



INITPT: MOV 
XFC 
MOV 

INITPI: CALL 
BNE 
DEC 
BEQ 
BIT 
BEQ 
RETURN 

INI TDD: MOV 
CLR 
CALL 



UNIT,R2 
DINIT 

#28000., RO 
STATVL 
INITDD 
RO 

INITDD 

#RCVRDY,R1 

INITPI 

f20.,R1 

R2 

ERRMNT 



;S£ND UNLOAD CMD 
;RESTOPC Ki 
;RFTOKN TO CALLfR 



SAVE R3 

ONLINE COMMAND 
BRING DRIVE ONLINE 
RESTORE R3 
RETURN TO CALLER 



SAVE R1 

SAVE R3 AND R4 
START UITH PORT 0 
INir PORT COUNTER 
SET UP INTERCONNECT 
INIT DRIVE 

TIMER (APPROX 2 SEC!>) 

CHECK STATUS VALIDITY 

IF NOT ZERO - NO GOOD 

DEC COUNT 

IF ZERO THEN DEAD 

IS RECECIVER READY SET ? 

NO, TRY AGAIN 

NEXT PORT 

DECREMENT COUNTER 

IF NOT DONE DO NEXT PORT 

RESTORE R3 AND R4 

RESTORE R1 

AND RETURN TO CALLER 



GET PORT NUMBER 

DO THE INIT 

1 SECOND TIMER 

VALIDATE STATUS 

DEAD IF NOT VALID 

DECREMETN COUTNER 

DEAD IF COUNT EXPIRED 

DONE INIT ? 

NOPE - KEEP TRYING 

EXIT 

ERROR CODE 
NO SUBCODE 
ERROR EXIT 



N 2 
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SEQ 235 



1 
2 
3 
4 
5 
6 
7 

8 002403 

9 002405 

10 002406 

11 002410 

12 002411 

13 002412 

14 002413 

15 002415 

16 002416 

17 002417 

18 002422 

19 002423 

20 002425 
21 

22 
23 

24 002426 

25 002427 
26 

27 
28 

29 0024^^ 

30 00.% ' 



104204 001327 
105014 

104203 003023 
022510 
115007 
052417 

114000 000715 



N^XT: 
NEXT5: 



003023 

106300 001477 000715 OERR: 
012426 

115400 000715 
C02410 



104012 dERR2: 
101200 000020 001221 



104201 000005 
022542 



UERR: 



.SBTTL OVERLAY PROCESSING ROUTINES 

OVERLAY PROCESSING ROUTINES 
R1 = OFFSET INTO TABLE 

NEXT CALLS OVERLAY FOR NEXT CODE OVERLAY 



NOV #0VLTBL,R4 

ADD R1,R4 

NOV #START«R3 

CALL OVRLAY 

TST RO 

BNE OERR 

CLR UN. ERR 

POP R1 

BR START 

CMP RE TRY, UN. ERR 

BEQ 0ERR2 

INC UN.ERR 

BR NEXTS 

DEAD HOST EXIT FOR ALL ROUTINES 



GET POINTER TO OVERLAY TABLE 

INDEX INTO TABLE 

UDA ADDRESS TO LOAD AT 

CALL ROUTINE TO DO OVERLAY 

CHECKSUM O.K. ?? 

YES - RETRY IF POSSIBLE 

CLEAR ERROR COUNT 

POP CURRENT RETURN ADDRESS 

GO TO OVERLAY 

DONE ALL RETRIES ? 

YUP 

INC ERROR AND 
TRY AGAIN 



NOV 
BIS 



R1.R2 

«DEA0,FLA61 



;6ET ERROR CODE FROM XFC 
.INDICATE HOST GONE 



UNIBUS ERROR EXIT FOR ALL ROUTINES 



NOV 
CALL 



#5,R1 
ERRNNT 



;SET UNIBUS I/O ERROR 
; ERROR RETURN 



L 



N 2 
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S£0 23^ 



1 

! 

5 
6 
7 
8 

9 

n 002437 

12 002AA0 

13 002442 

14 002443 

15 002445 

16 002446 

17 002447 

18 002450 

19 002451 

20 002452 

21 002454 

22 002456 

23 002457 

24 002461 

25 002462 
26 

27 

28 002463 

29 002464 

30 002466 

31 002470 

32 002471 

33 002'.73 

34 002474 

35 002475 

36 002476 

37 002477 

38 002500 

39 002501 

40 002504 

41 002505 

42 002507 



104204 
105014 
104203 
022510 
115007 
012452 
022501 
002445 
114000 
104203 
100463 
104203 
100463 
000000 



104010 
104204 
105014 
104203 
022510 
115007 
012500 
022501 
002473 
000000 
106300 
012426 
115400 
000000 



001327 
003023 



000715 
002463 

003023 



001154 
001327 

003023 



PALPI 



PALP2: 



001477 000715 
000715 



PAGER: 



PALP4: 



PALP3: 
PAERR: 



PAGE BRINGS IN AN OVERLAY AND CALLS IT 
UPON RETURN OF THE OVERLAY PAGE BRINGS IN 
THE PREVIOUS OVERLAY AND BEGINS EXECUTION 
AT THE POINT THE CALL TO PAGE WAS HADE 



R1 s OVERLAY TO BE BROUGHT IN 



PUSH 

MOV 

ADO 

NOV 

CALL 

TST 

BEQ 

CALL 

BR 

CLR 

NOV 

NOV 

NOV 

NOV 

RETURN 



POP 

NOV 

NOV 

ADD 

NOV 

CALL 

TST 

BEQ 

CALL 

BR 

RETURN 
CNP 
BEQ 
INC 

RETURN 



R3 

#0VLTBL.R4 
R1,R4 . 
#START,R3 
OVRLAY 
RO 

PALP2 

PAERR 

PALPI 

UN. ERR 

«PA6ER«R3 

R3,-(SP) 

«START,R3 

R3,-(SP) 



R1 

RUCUROVL 

#0VLTBL,R4 

R1,R4 

#START«R3 

OVRLAY 

RO 

PALP3 
PAERR 
PALP4 

RETRY^UN.ERR 

0ERR2 

UN. ERR 



PUSH FOR LATER RETURN 

POINT TO OVERLAY TABLE 

POINT TO ENTRY FOR NEU OVERLAY 

POINT TO UOA LOAD ADDRESS 

BRING IN NEU OVERLAY 

EDC O.K. ? 

YUP 

CALL ERROR HANDLER 

TRY AGAIN 

CLEAR ERROR COUNT 

ADDRESS FOR OVERLAY TO RETURN TO 

PUSH ON STACK 

STARTING ADDRESS OF NEU OVERLAY 
PUSH ON STACK FOR "CALL" 
"CALL" OVERLAY 

NEXT ADDRESS ON STACK IS RETURN 

ADDRESS TO PAGE 

POP OLD OVERLAY NUNBER 

NAKE IT CURRENT 

POINT TO OVERLAY TABLE 

POINT TO OLD OVERLAY BLOCK 

POINT TO UDA LOAD ADDRESS 

BRING IT IN 

EDC O.K. ? 

YUP 

ERROR HANDLER 
TRY AGAIN 

RETURN TO ADDRESS PAGE CALLED FROM 
DONE ALL RETRIES ? 

YUP - EXIT WITH DEAD HOST UNIBUS EttR 
INC ERROR COUNT 
RETURN AND TRY AGAIN 



1. 



B 3 
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1 

! 

4 
5 
6 

7 002510 

8 002S12 

9 002514 

10 002516 

11 002517 

12 002520 
i: 002521 
14 

15 
16 

17 002522 

18 002524 

19 002526 

20 002527 

21 002530 

22 002531 
23 

24 
25 
26 
27 

28 002532 

29 002534 

30 002536 

31 002537 

32 002540 

33 002541 



104647 000001 

104641 000002 

104642 000000 
060013 
115001 
052432 
000000 



104207 001264 

104201 000016 

060016 

115001 

052432 

000000 



104207 001264 

104201 000016 

060017 

115001 

052432 

000000 



OVRLAY: 



OVERLAY ROUTINE 

ISSUES UNIBUS READ TO GET OVERLAY 
R3 -> UDA ADDRESS TO LOAD 



NOV 
NOV 
NOV 
XFC 
TST 
BNE 

RETURN 



HSTLO(R4),R0 

HSTHI(R4).R1 

LEN(R4),R2 

UREAD 

R1 

UERR 



SEND NAINTENANCE READ CONHAND 



SNDNNT: NOV 
NOV 
XFC 
TST 
BNE 



RETURN 



#DNBUF,RO 
#DNBUFL,R1 
NAINTR 
R1 

UERR 



RECEIVE NAINTENANCE WRITE DATA 



ftCVNNT: NOV 
NOV 
XFC 
TST 
BNE 

RETURN 



#DNBUF,RO 
#DNBUFL,R1 
NAINTU 
R1 

UERR 



LOU ORDER UNIBUS ADDRESS 

HI ORDER UNIBUS ADDRESS 

WORD COUNT TO OVERLAY 

ISSUE UNIBUS READ 

ANY UNIBUS PROBLENS ? 

YUP - EXIT WITH UNIBUS ERROR 

OETURN TO CALLING ROUTINE 



POINT TO BUFFER 
LENGTH 

ISSUE COHNAND 

ANY UNIBUS PROBLENS ? 

YUP • EXIT WITH UNIBUS ERROR 



POINT TO BUFFER 

SIZE OF BUFFER 

RECEIVE NAINT WRITE DATA 

ANY UNIBUS PROBLENS ? 

YUP - EXIT WITH UNIBUS ERROR 
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NISCELLANEOUS CCMHON ROUTINES 



1 
2 






3 






4 

5 






6 

7 






8 


002542 


102200 


9 


0025A5 


052562 


10 


002546 


101200 


11 


002551 


104207 


12 


002553 


100171 


13 


002554 


100672 


U 


002556 


104201 


15 


002560 


022435 


16 


002561 


022315 


17 


002562 


114007 


18 


002563 


102200 


19 


002566 


012570 


20 


002567 


115407 


21 


002570 


060021 


22 






23 






2A 






25 


002571 


104300 


26 


002574 


104203 


27 


002576 


022010 


28 


002577 


000000 



000010 001221 

000010 001221 
001264 

000001 
000063 



000020 001221 



.S8TTL NISCELLANEOUS C0W10N ROUT 



ERROR RETURN TO HOST 



ERRMNT : 


BIT 


#ERDN,FLa61 




BNE 


ALLOVR 




BIS 


#ERDN,FLAG1 




NOV 


#DNBUF ,R0 




NOV 


Rn(RO) 




NOV 


R2J(R0) 




NOV 


#66, R1 




CALL 


PAGE 




CALL 


DISCON 


ALLOVR: 


CLR 


RO 




BIT 


#DEAD.FLA61 




BEQ 


ALL0V1 




INC 


RO 


ALL0V1 : 


XFC 


DONE 



001502 001 104 
001006 



ERROR RETRY SEQUENCER 



ERRHND: 



NOV 
NOV 
CALL 
RETURN 



RECTNP.ERECOV+1 

#CR.ERV.R3 

TALK 



TRIED TO QUIT YET ? 
YUP - DISCON FAILED 
SET FLAG 

POINT TO NAINT BUFFER 
PUT ERROR NUMBER IN NSG 
PUT IN ERROR SUBCODE 
ERROR MESSAGE OVERLAY 
BRING IT IN 

DISCONNECT/SPINDOUN DRIVE 

IN CASE O.K 

DIE OR JUST QUIT ? 

JUST QUIT 

MAKE NON 2ER0 

EXIT DN MODE 



STORE LEVEL IN COMMAND 
POIT TO COMMAND 
DO ERROR RECOVERY 
RETURN 
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MISCELLANEOUS CCWHON ROUTINES 



1 



4 

5 
6 


002600 

wwfc www 






7 


002603 

WWb vw*^ 


104303 


001247 


8 


002605 


104305 


001250 


9 


002607 


104224 




10 


002610 






11 


002614 


105203 


000000 


12 


002616 


110203 




13 


002617 


042621 




K 


002620 


115403 




15 


002621 


1 1 7405 




16 


002622 


052607 




17 


002623 






18 


002626 

W Wb w 


000000 

W V w w w w 




19 








20 








21 








22 








23 








24 








25 


002627 






26 


002530 


104203 


100000 


27 


002632 


104011 




28 


002633 


104011 




29 


002634 


104011 




30 


002635 


104011 




31 


002636 


117403 




32 


002637 


052632 




33 


002640 






34 


002641 


000000 




35 








36 








37 








38 








39 








40 








41 


002642 






42 


002643 


104205 


077777 


43 


002645 


060007 




44 


002646 


117405 




45 


002647 


012661 




46 


002650 


102201 


000004 


47 


002652 


012661 




48 


002653 


102201 


000400 


49 


002655 


052645 




50 


002656 






51 


002657 


106011 




52 


002660 


000000 




53 


002661 






54 


002662 


106201 


M7777 


55 


002664 


002660 





COMPUTE EDC 
R2 -> BUFFER 



CEDC: 
EA6AIN: 

NOCRY: 



PUSH 

MOV 

MOV 

MOV 

XOR 

ADD 

ROL 

BCC 

INC 

DEC 

BNE 

POP 

RETURN 



R2,R4.R5 

INI,R3 

CNT.R5 

(R2)»,R4 

R4,R3 

#0,R3 

R3 

NOCRY 

R3 

RS 

EA6AIN 
R5.R4.R2 



ONE SECOND DELAY ROUTINE 



TIMER: 
TIMLP: 



PUSH 

MOV 

MOV 

MOV 

MOV 

MOV 

DEC 

8NE 

POP 

RETURN 



R3 

fTIMVAL,R3 

R1,R1 

R1.R1 

R1«R1 

R1,R1 

R3 

TIMLP 
R3 



VALIDATE XFC STATUS RESPONSE 



STATVL: 
STATRE: 



STATRT: 
STATFR: 



PUSH 

MOV 

XFC 

DEC 

BEO 

BIT 

BEO 

BIT 

BNE 

POP 

CMP 

RETURN 
POP 
CMP 
BR 



RS 

#77777,R5 

STATUS 

R5 

STATFR 

«VL0,R1 

STATFR 

#PARIT1,R1 

STATRE 

R5 

R1.R1 
RS 

#1 77777. R1 
STATRT 



INITIAL VALUE (69) 

SECTOR SIZE 

MOVE A WORD INTO R4 

XOR INTO EDC 

CLEAR CARRY 

CIRCLE LEFT 

IF NO CARRY SKIP 

INCREMENT IF CARRY 

DECREMENT COUNTER 

IF NOT 0 DO NEXT UORD 

R3 - EDC 



SAVE R3 

LOOP COUNTER (32768) 

DELAY 

DELAY 

DELAY 

DELAY 

DECRMENT COUNTER 
LOOP TILL DONE 
RESTORE R3 
RETUR TO CALLER 



SAVE R5 

COUNTER (1 SECOND) 

GET DRIVE STATUS 

INCREMENT COUNTER 

IF ZERO - NO GOOD 

LOW VALID BIT GOOD ? 

NO DRIVE CLOCK - STATUS BAD 

PARITY ERROR ? 

YES - RETRY 

RESTORE R5 

SET COND CODE EQ ZERO 

RETURN 

RESTORE R5 

MAKE SURE NOT EQUAL 

RETURN 
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mSCELLAN£OUS CCmOH ROUTINES 



1 
2 
3 
4 
5 
6 
7 



002665 
002667 
002671 



8 002673 

9 002674 

10 002676 

11 002700 

12 002701 

13 0O270A 
U 002707 

15 002712 

16 002715 

17 002716 

18 002717 

19 002720 

20 002721 

21 002723 

22 002725 

23 002727 



104207 
104641 
100671 
104143 
100673 
104201 
060020 
104670 
104670 
104670 
104670 
022242 
115001 
052721 
000000 
104201 
104207 
104672 
022542 



001424 
000001 
000003 

000002 
001053 

009011 001113 

000006 001077 

000007 001100 
000010 001101 



000012 
001424 
000006 



CONVERT BLOCK NUWER TO Pf 
R4 -> BLOCK NUMBER 



CVTSK: NOV 
NOV 
NOV 
NOV 
NOV 
NOV 
XFC 
NOV 
NOV 
NOV 
NOV 
CALL 
TST 
BNE 

RETURN 
CVTERR: NOV 
NOV 
NOV 
CALL 



«CONBLK.RO 

1(R4),R1 

R1 ,V2*1 <R0) 

(R4).R3 

R3,V2(R0) 

#SCR,R1 

CVT 

TRK(RO),CURTRIi; 

CrL(R0).ISEEk*1 

CYL*1(R6),ISEEK*2 

GRP(R0),ISEEK*3 

SEEK 

R1 

CVTERR 

»10.,R1 
fCONBLK.RO 
CYL(R0),R2 
CRRNNT 



ADDRESS AND SEEK 



.'POINT AT CONVERT BLOCK 
;GET HIGH ORDER 
.•STORE IT 
:GET LOW OH0€^ 
.•STORE IT 

.•POINT TO SUBUNIT CHARACTERISTICS 

.•CONVERT IT 

;(>ET TRACK NUNBER 

;LOW ORDER XVLINDER 

.-HIGH ORDER CYLINDR 

.•GROUP NUNBER 

:D0 SEEK 

;ANY ERROR ? 

;YUP ERROR 

;SEEK ERROR 
.•CONVERT BLOCK 
.•CYLINDER FAILED ON 
.•ERROR RETURN 
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MISCELLANEOUS CCmN ROUTINES 



SEO 239 



1 

I 

4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
U 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 



002730 
002731 
002733 
002735 
002737 
002741 
002741 
002745 
002747 
002751 
002753 
002755 
0C2756 
002760 
002762 
002764 
002766 
002770 
002771 
002773 
00277^ 



COnPUTE PRIMARY RBN FOR GIVEN LBN 
RO -> CHARACTERISTICS BLOCK 
R4 -> LBN 

RBN s (QUO(CURBN-STLBN)/LBNTRK)*RBNTRK 



104140 
104642 
104204 
107302 
100642 
104673 
103203 
104030 
114000 
104203 
021565 
104673 
103203 
104030 
114000 
104203 
021537 
104140 
104640 



C00736 
000001 
000736 
001323 
000001 
000011 
177400 
000731 
000732 
000731 

000004 
177600 
000731 
000732 
000731 

001152 
000001 



PRIMRB: 



001153 



002777 000000 



PUSH R2 

MOV (R4)JENP 

MOV 1(R4),R2 

MOV #TENP,R4 

SUB ST.LBN«R2 

MOV R2.1<R4> 

MOV LBNTRK(R0),R3 

BIC «HIBYTE«R3 

MOV R3,D0UNMY 

CLR DDUMMY*1 , 

MOV #D0UMNY,R3 

CALL DDIV ^ , 

NOV RBNTRK(R0),R3 

BIC #HnBYTE,R3 

MOV RS«DOUNNY 

CLR DDUMNY^I 

MOV #DDUMNY,R3 

CALL DMUL 

NOV (R4),REVRBN 

NOV 1(R4>,REVRBN^1 

POP R2 
RETURN 



GET LOU ORDER LBN 
GET HIGH ORDER 
FOR SUBTRACT 
DO SUBTRACT 
STORE BACK 
GET LBN/TRACK 
CLEAR HIGH BYTE 
STORE FOR COMPUTATION 
CLEAR FOR STORE 
ruN uIviOE 

GET R8N/TRAtf( 
CLEAR GARBAGE 
FOR COMPUTATION 
CLEAR HIGH OROE» 
FOR NULTIPLY 

GET LOy ORDER 
STORE HIGH ORDER 
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6 003000 

7 003002 
6 003004 
9 003006 

10 003007 

11 003010 
003011 
003C13 
003014 
003015 

16 003016 

17 003017 

18 003020 

19 003022 



u 

15 



10420 

10462 

103203 

110703 

115003 

013020 

104207 

060015 

115001 

053020 

106073 

073022 

104201 

000000 



001040 
000002 
000377 



000721 



177777 



COMPUTE ECC SYMBOLS IN ERROR 



ECCCK: 



105$: 

GDECC: 



MOV 

MOV 

BIC 

SWAB 

TST 

BEQ 

MOV 

xrc 

TST 
BNE 
CMP 
BNI 
NOV 
RETURN 



«CR,R2 

ERRSYM(R2),R3 

#L0BYTE,R3 

R3 

R3 

105S 

«RDBLK«RO 

ECC 

R1 

105$ 
R0«R3 
GDECC 
#-1 .R1 



POINT TO CHARACTERISTICS 

GET THRESHOLD 

CLEAR LOU GARBAGE 

GET IN LOU ORDER 

IS THRESHOLD 0 ? 

YUP - NO POINT IN CORRECTING 

POINT TO COMMAND BLOCK 

PERFORM ECC CORRECTION 

SUCCESSFUL ? 

NOPE 

UITHIN BOUNDS ? 
YES CONSIDER GOOD 
ELSE SIGNAL BAD 
RETURN 
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SEO 241 



003023 003344 



1 
2 
3 
4 
5 
6 
7 
8 
9 

10 
11 

12 003024 

13 003024 

14 003025 

15 003026 

16 003027 
17 

18 

19 003044 

20 003045 

21 003046 

22 003047 
23 

24 

25 003070 

26 003071 

27 003072 

28 003073 
29 

30 

31 003120 

32 003121 

33 003122 

34 003123 
35 

36 

37 003140 

38 003141 

39 003142 

40 003143 
41 

42 

43 003177 

44 003200 

45 003201 

46 003202 
47 

48 

49 003223 

50 

51 

52 

53 003224 

54 003225 
55 

56 

57 



003464 
000016 
010000 
105 
000016 

003705 
000022 
020001 
105 
000022 

004236 
000026 
020004 
125 
000026 

003762 
000016 
020005 
125 
000016 

004261 
000035 
020006 
103 
000035 

003723 
000022 
010007 
105 
000022 

000000 



030000 
106 
000010 



156 



156 



163 



163 



157 



156 



164 



164 



145 



145 



156 



164 



.SBTTL DUP DH<->HOST STARTUP OVERLAY 
DUP DN<->HOST STARTUP OVERLAY 
START: JHP START3 ;SKIP LOCAL DATA STORAGE 



157 



162 



NSGTBL: 

10S: 
nSGiLN 

20$: 
NSG2LN 

■ 

50$: 
NS65LN 

70$: 
NSG7LN 

* 

60$: 
HSG6LN 

40$: 
HSG4LN 



FMTSTA: 
FHSTL 



DATA STRUCTURES 
.ENABL LC 



.UORD 
.UORD 
.UORD 
.ASCIZ 



.WORD 
.yORD 
.UORD 
.ASCIZ 



.UORD 
.UORD 
.UORD 
.ASCIZ 



.UORD 
.UORD 
.UORD 
.ASCIZ 



.UORD 
.UORD 
.UORD 
.ASCIZ 



.UORD 
.UORD 
.UORD 
.ASCIZ 



DATCON 
NSG1LN 
10000 

•Enter date <HH-OD-YVyY> 
.-10$ 



;DATE CONVERSION ROUTINE 
.-MESSAGE LENGTH 
;DUP UORD 
» • 

.MESSAGE LENGTH 



UNITCN .-UNIT NUMBER HANDLER 

NSG2LN .-MESSAGE LENGTH 

20001 :DUP UORD 

'Enter unit nuMber to foriMt <0>: * 
.-20$ .MESSAGE LENGTH 

EXTFCT .-EXISTING FCT ? 

MSG5LN .-MESSAGE LENGTH 

20004 :DUP UORD 

'Use existing bad block fntoraatfon <V>: ' 

.-50$ 



DLLFLE 
MSG7LN 
20005 

'Use Down- line load <N>: 
.-70$ 



;D0UN-LINE LOAD FILE 
.-MESSAGE LENGTH 
:DUP UORD 



CONBAD .CONTINUE IF BAD ? 

MSG6LN .MESSAGE LENGTH 

20006 :DUP UORD 

'Continue if bad block information is inaccesable <N>: ' 
.-60$ 

SERCON .-SERIAL NUMBER HANDLER 

MS64LN : MESSAGE LENGTH 

10007 ;D'JP UORD 
'Enter a non-zero serial number: * 
.-40$ 



.UORD 0 

FORMAT STARTED INFO MESSAGE 

.UORD 30000 

.ASCIZ 'Format begun' 

s .-FHTSTA 

INPUT ERROR MESSAGE 



.END FLAG 



DUP UORD 

MESSAGE 

LENGTH 
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SEQ 242 



58 

59 003234 

60 003235 
61 

62 
63 
6A 
65 

66 003243 

67 003244 

68 003245 

69 003246 
70 

71 

72 003247 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

S5 

86 003320 

87 003321 

88 003322 

89 003323 

90 003324 

91 003325 

92 003326 
93 

94 
95 
96 

97 003327 

98 003330 

99 003331 

100 003332 

101 003333 
103 003334 

103 003335 

104 003336 

105 003337 

106 003340 

107 003341 

108 003342 

109 003343 
110 

111 



030100 
111 
000007 



000000 
000000 
000000 
000000 
000002 
000001 
000051 



000051 
000131 
000055 
000057 

036031 



000000 
000012 
023420 
000144 
000074 
000074 
000030 



000000 
000174 
000161 
000174 
000170 
000174 
000170 
000174 
000174 
000170 
000174 
000170 
177777 



INPERR: .WORD 30100 

156 160 .ASCIZ 'Input Error' 

IMPEL = .-INPERR 

.DSABL LC 



MISCELLANEOUS DUP STORAGE 



DATBUF: 


.WORD 


0 




.WORD 


0 




.WORD 


0 


MLEN: 


.UORD 


0 


MENTLN 




2 


MSGOFF 




1 


T8UFF: 


Trept 


41 




.WORD 


0 




.endm 





T8UFFL 
Y 

DASH 
SLAS 

DAYS 



TIMTBL: 



.-TBUFF 
131 
055 
057 



:DUP WORD 

.MESSAGE 

.•LENGTH 



.CONVERT BUFFER FOR DATE 
.•MAKE SURE ALL 2 WORDS 
.•ARE 0 

.•LENGTH STORAGE 
.•CONSTANT ENTRY LENGTH 
.•OFFSET OF MESSAGE LENGTH 
;ZERO 41 WORDS 
.'TERMINAL BUFFER 



.ASCII 'V' 
.ASCII 
;ASCi; V* 



14.*31.*365.*<365.*4*1*10.>*365. 

.-DAYS FROM NOV. 17.1858 TO 
;JAN. M901 



DATE CONVERSION TABLES 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



0 

10. 

10000. 

100. 

60. 

60. 

24. 



QUARTER DAYS PER MONTH TABLE 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
,WORD 
.WORD 
.WORD 



0 

31. 
28. 
31. 
30. 
31. 
30. 
31. 
31. 
30. 
31. 
30, 
-1 



•4 

♦4*1 

*4 

*4 

♦4 

*4 

•4 

♦4 

♦4 

♦4 

*4 



•TERMINATOR 

;100*S NANOSECONDS PER MICROSECOND 
.•MICROSECONDS PER HUNDREDTH SECOND 
.•HUNDREDTHS OF SECOND PER SECOND 
.SECONDS PER HINUTE 
; MINUTES PER HOUR 
.-HOURS PER DAY 



.•TERMINATOR FOR MONTH TABLE 

.•QUARTER DAYS IN JANUARY 

.•QUARTER DAYS IN FEBRUARY 

.•QUARTER DAYS IN MARCH 

; QUARTER DAYS IN APRIL 

.•QUARTER DAYS IN MAY 

.•QUARTER DAYS IN JUNE 

.•QUARTER DAYS IN JULY 

.•QUARTER DAYS IN AUGUST 

.•QUARTER DAYS IN SEPTEMBER 

.•QUARTER DAYS IN OCTOBER 

.•QUARTER DAYS IN NOVEMBER 

.•PRETEND INFINITE DAYS IN DECEMBER. 

; SINCE NOTHING COMES AFTER IT 
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START3; 
NSGLOP: 



1 
2 
3 


003344 


104206 


001216 


4 


003346 


023437 




5 


005347 


104202 


003024 


6 


003351 


104223 




7 


003352 


103200 


001000 


8 


003355 


104221 




9 


003356 


104010 


003246 


10 


003360 


104027 




11 


003361 


060016 




12 


003362 


104207 


003247 


13 


003364 


104201 


000051 


U 


003366 


060017 




15 


003367 


104204 


003374 


16 


003371 






17 


003372 






18 


003373 


000000 




19 


003374 


102200 


000200 


20 


003377 


053427 




21 


003400 


102200 


001000 


2? 


003403 


013412 




003404 


104207 


003234 


24 


003406 


104201 


000007 


25 


003410 


060016 




26 


003411 


003414 




27 


003412 


105302 


003246 


28 


003414 


104203 


003247 


29 


003416 


104201 


000051 


30 


003420 


114007 




31 


003421 


100237 




32 


003422 


117401 




33 


003423 


053421 




34 


003424 


104223 




35 


003425 


115003 




?6 


003426 


053352 




37 








38 








39 








AO 


003427 


104207 


003224 


41 


003431 


104201 


000010 


42 


003433 


060016 




43 


003434 


104201 


000060 


44 


003436 


022403 





RE TAD: 



NSGLP4: 
NS6LP2: 



HSGLP3: 



CONON: 



NOV 


#STAtK,SP 


CALL 


SETOVL 


MOV 


«N3GTPL,R2 


fWV 


(R2)«^,R3 


BIC 


fREPEAT.FLAGI 


MOV 


(R2)*,R1 


nov 


R1,MLEN 


nov 


R2,R0 


XFC 


MAINTR 


nov 


#TBUFF,RO 


mv 


#TBUFFL.R1 


XFC 


NAINTU 


MOV 


«RETAD.R4 


PUSH 


R4 


PUSH 


R3 


RETURN 




BIT 


#QUES0N,FLAG1 


BNE 


CONON 


BIT 


f REPEAT, FLAG1 


BEQ 


NSGLP4 


MOV 


fINPERR.RO 


NOV 


#INPEL.R1 


XFC 


NAINTR 


BR 


NSGLP2 


ADD 


NLEN.R2 


nUV 


jirpiice oX 
« IDUrr ,H3 


MOV 


#TBUFFL,R1 


CLR 


RC 


MOV 


R0,(R3)^ 


DEC 


R1 


BNE 


NSGLP3 


MOV 


(R2)t,R3 


TST 


R3 


BNE 


NSGLOP 


CONTINUE ON 


MOV 


#FNTSTA,RO 


MOV 


«FNSTL,R1 


XfC 


NAINTR 


NOV 


#G1,R1 


CALL 


NEXT 



SET UP STACK 

SET UP OVERLAY POINTERS 

POINT TO NESSA6E TABLE 

CONVERSION ROUTINE ADDRESS 

CLEAR REPEAT NESSA6E FLAG 

MESSAGE LENGTH 

SAVE IT 

POINT TO MESSAGE 
SEND MESSAGE 
ADDRESS OF BUFFER 
LENGTH OF BUFFER 
GET ANSWER 
RETURN ADDRESS 
SAVE IT 

ADDRESS OF CONVERSION ROUTINE 

"CALL" CONVERSION ROUTINE 

ALL DONE QUESTIONS ?? 

YES - SKIP THE REST 

REPEAT THE QUESTION ? 

HO ' DON'T REPEAT 

INPUT ERROR MESSAGE 

LENGTH 

SEND IT 

AND REPEAT QUESTION 

;ADO NESSAGE LENGTH 

;POINT TO BUFFER 

ILENGTH OF »jFFER 

: CLEAT REG 

; CLEAR BUFFER 

iDECRENENT COUNT 

;CONTINUE TILL DONE 

;GET CONVERSION ROUTINE ADDRESS 

;IF 0 THEN ALL FINISHED 

-NOT 0 THEN DO NEXT ENTRY 



ADDRESS OF INFO MESSAGE 
LENGTH OF MESSAGE 
SEND TO HOST 
NEXT OVERLAY 
BRING IT IN 



K 3 



UDAFM - UOA FORMATTER DHACR X04.01 23-AU6-82 U:02:32 PAGE 24 
DUP D«<->HOST STARTUP OVERLAY 



1 
2 
3 
A 
5 
6 
7 
8 
9 
10 
11 
i2 
13 
14 
15 
16 
17 



003437 10420S 000023 SETOVL: 

003441 104204 007774 

003443 104200 010340 000731 

003446 114000 000732 

003450 104203 000731 

003452 021521 

003453 104043 

003454 104204 001330 

003456 021503 SLOOP: 

003457 105204 000003 

003461 117405 

003462 053456 

003463 000000 



SET UP OVERLAY TABLE 

nOV «0VCNT.R5 

MOV #DUP0VL,R4 

MOV «0VS.G1,DDUNMY 

CLR DDUMMY^I 

NOV #DDUMMY,R3 

CALL DSUB 

MOV R4,R3 

MOV «0VLTBL^HSTL0,R4 

CALL DADD 

ADD «0VLEN,R4 

DEC RS 

6NE SLOOP 

RETURN 



GET COUNT OF OVERLAYS 
POINT TO OVERLAY ADDRESS (2 WORDS) 
RELATIVE START OF FIRSTOVERLAY 
CLEAR HIGH ORDER 

FOR sue 

GET OFFSET (MUST ADD TO RELATIVE 
START ADDRESS OF EACH OVERLAY) 
CHANGE POINTER FOR ADDS 
POINT TO LOW HOST ADD OF FIRST ENTRY 
ADD OFFSET 

POINT TO LOW HOST ADD. OF NEXT ENTRY 

DECREMENT COUNTER 

IF NON-ZERO THEN CONTINUE 

ELSE DONE 



UDAFn - UOA FORMATTER DMACR X04.01 23-AUG-83 U:02:32 PAGE 25 
DUP Dfl<->H0ST STARTUP OVERLAY 



1 

2 
3 

4 003464 






5 003465 


104060 


001217 


6 003467 


104202 


003243 


7 003471 


103200 


006000 


8 003474 


104204 


000003 


9 003476 






10 003516 


115001 




11 003517 


013547 




12 003520 


106201 


OOOOSS 


13 003522 


013547 




14 003523 


106201 


000057 


15 003525 


01354/ 




16 003526 






17 003546 


003^76 




18 003547 






19 003550 


104207 


003243 


20 003552 


024015 




21 003553 


053625 




22 003554 


104073 




23 003555 






24 003556 






25 003557 


103200 


004000 


26 003562 

27 003564 


104202 


003243 


104201 


000003 


28 003566 


114005 




29 003567 


100225 




30 003570 


117401 




31 003571 


053567 




32 003572 


104202 


003243 


33 003574 


117404 




34 003575 


053476 




35 003576 






36 003577 






37 003600 






38 003601 


023636 




39 003602 


115005 




40 003603 


073625 




41 003604 


104203 


003623 


42 003606 






43 003607 


104204 


000006 


44 003611 


114005 




45 003612 






46 003613 


117404 




47 003614 


053612 




48 003615 






49 003616 






50 003617 






51 003620 


104207 


001302 


52 003622 


004277 


53 003623 






54 003624 


000000 




55 003625 


104306 


001217 


56 






57 003627 







DATCON: 



DATLP: 



DONONE: 



DATLP1 



DATLP2: 



DATRET: 
DATRT1 : 
DATAGN: 



00 DATE 


CONVERSION 


PUSH 


R2 


MOV 


SP,STCKSV 


NOV 


«DATBUF,R2 


BIC 


#GTFLAG*STFLAGJLAG1 


NOV 


#3,R4 


GETB 


R0,R1 


TST 


R1 


BEQ 


DONONE 


CHP 


#DASH,R1 


BEG 


DONONE 


C«P 


#SLAS,R1 


BEQ 


DONONE 


STOB 


R1,R3,R2 


BR 


DATLP 


PUSH 


RO 


MOV 


#DATBUF,RO 


CALL 


GENCON 


BNE 


DATAGN 


NOV 


R0,R3 


POP 


RO 


PUSH 


R3 


BIC 


«STFLAG,fLAG1 


NOV 


#DATBUF,R2 


NOV 


#3,R1 


CLR 


R5 


MOV 


R5,(R2}* 


DEC 


R1 


BNE 


DATLP1 


NOV 


mTBUF.R2 


DEC 


R4 


BNE 


DATLP 


POP 


RO 


POP 


R1 


POP 


R2 


CALL 


DATVER 


TST 


R5 


BNI 


DATAGN 


NOV 


mTRET,R3 


PUSH 


R3 


NOV 


«6«R4 


CLR 


R5 


PUSH 


R5 


DEC 


R4 


BNE 


DATLP2 




n 1 


PUSH 


R2 


PUSH 


RO 


NOV 


#DATE,RO 


JNP 


VAXTNE 


POP 


R2 


RETURN 




NOV 


STCICSV,SP 


POP 


R2 



SAVE STRING COUNTER 

SAVE STACK PTR IN CASE OF ERROR 

POINT TO DATA BUFFER 

CLEAR FLAGS 

COUNT TO CONVERT(NONTH, DAY, YEAR) 
GET A BYTE FRON RO INTO R1 
IS IT A ZERO BYTE ? 
YES - DONE THIS STRING 
IS IT A 

YES - DONE THIS STRING 

IS IT A "/" 

YES - DONE THIS STRING 

STORE BYTE IN R1 AT LOCATION IN R2 

LOOP BACK 

SAVE POINTER TO STRING 
POINT TO BUFFER TO CONVERT 
CONVERT THE STRING 
ILLEGAL CHARS - ASK AGAIN 
GET RESULT 

RESTORE POINTER TO STRING 

STORE RESULT ON STACK 

SET STORE FLAG TO LOW BYTE 

POINT TO CONVERT BUFFER 

FOR BUFFER CLEAR 

CLEAR FOR STORE 

CLEAR WORD 

DEC COUNTER 

CONTINUE TILL DONE 

RESTORE POINTER 

DECREMENT PARAMETER COUNTER 

CONTINUE TILL DONE 

GET YEAR 

GET DAY 

GET MONTH 

VERIFY DATE 

ANY ERROR ? 

YUP - PROMPT AGAIN 

RETURN ADDRESS 

PUSH ON STACK 

COUNT OF ZERO STACK ENTRIES 

CLEAR FOR STORE 

ZERO ENTRY FOR CONVERSION 

DEC COUNTER 

LOOP TILL DONE 

STORE DAY 

STORE MONTH 

STORE YEAR 

POINT TO RESULT BUFFER 

CALL CONVERT TO VAX TIME ROUTINE 

RESTORE NESSAGE POINTER 

RESTORE STACK PTR - NAY HAVE PUSHED 
SOME RESULTS ONTO STACK 
GET MESSAGE POINTER 



H 3 



UDAFH - UOA FORMATTER OHACR X04.01 23-AUG-82 14:02:32 PAGE 25-1 
DUP DN<->HOST STARTUP OVERLAY 



SEQ 2A6 



58 003630 107202 000002 

59 003632 101200 001000 001221 

60 003635 00362A 



SU8 #nENTLN,R2 
BIS #REPEAT,FLAG1 
BR 0ATRT1 



.-POINT BACK AT BEGIMNIMC OF QUESTION 
;SET TO REPEAT - ANSWER HUST BE VALID 
: RE TURN 



f 



N 3 



UOAFN > UDA F0RP1ATTER ONACR X04.01 23-AUG-82 14:02:32 PAGE 26 
OUP DM<->HOST STARTUP OVERLAY 



1 

2 

3 

A 

5 

6 

7 

8 

9 
10 
11 

12 003636 

13 003637 
U 003640 

15 003641 

16 003643 

17 003644 

18 003646 

19 003647 

20 003650 

21 003651 

22 003652 

23 003654 

24 003655 

25 003656 

26 003660 

27 003661 

28 003663 

29 003664 

30 003666 

31 003670 

32 003671 

33 003672 

34 003673 

35 003674 

36 003676 

37 003677 

38 003700 

39 003701 

40 003702 

41 003704 



115002 
013702 
073702 
106202 
073702 
107207 
073702 
115001 
013702 
073702 
104203 
105023 
104134 
105204 
110604 
105204 
110604 
105204 
106202 
053672 
117401 
106041 
073702 
106202 
053701 
115401 
114005 
000000 
104205 
003701 



VERIFY DATE VALIDITY 
RO = YEAR 
R1 DAY 
R2 = MONTH 



OUTPUT- 

R5 > 0 IF VALID 
-1 IF INVALID 





OATVER: TST 


R2 




BEQ 


DATERR 




BMI 


OATERR 


000014 


CMP 


#12.,R2 




BMI 


DATERR 


003554 


SUB 


«1900.,R0 




BNI 


DATERR 




TST 


R1 




BEQ 


DATERR 




BMI 


DATERR 


003327 


MOV 


#TIMTBL-1,R3 




ADD 


R2,R3 




MOV 


(R3),R4 


000000 


ADD 


«0,R4 




ROR 


R4 


000000 


ADD 


«0«R4 




ROR 


R4 


000000 


ADD 


«0,R4 


000002 


CMP 


«2«R2 




BNE 


DATVL1 




DEC 


R1 




0ATVL1: CMP 


R4,R1 




BMI 


OATERR 


000002 


CMP 


#2.R2 




BNE 


DATVL2 




INC 


R1 




CLR 


R5 


U7777 


DArVL2: RETURN 




OATERR: NOV 


#-1,R5 




BR 


DATVL2 



I 



SEQ 247 



TEST MONTH 

IF ZERO THEN NO GOOD 
IF NEC THEN NO GOOD 
IN RANGE ? 
IF NEG THEN NO 
BIAS YEAR TO 1900 
IF NEG THEN ErROR 
TEST DAY 

IF ZERO THEN ERROR 

IF NEGATIVE THEN ERROR 

POINT TO DAYS IN MONTH TABLE 

POINT TO CURRENT MONTH 

GET DAYS IN MONTH 

CLEAR CARRY 

IN QUARTER DAYS - DIVIDE BY 4 TO GET DAYS 

CLEAR CARRY 

ONCE MORE 

CLfrAR CARRY 

IS IT FEBRUARY ?? 

NO - NOTHING SPECIAL 

MAKE DAY ONE LESS (IN CASE LEAP YEAR) 

DAY IN RANGE ? 

NOPE ERROR 

DID UE MUCK WITH DAY ? 
NOPE - JUST EXIT 
ELSE PUT DAY BACK 
SIGfML NO ERROR 
ELSE ALL O.K. 
SIGNAL ERROR 
AND RETURN 



B 



UOAFM - UOA FORNATTER OMACR X0A.01 23-AUG-82 U:02:32 PAGE 27 
DUP 0H<->HOST STARTUP OVERLAY 



1 
2 
3 
A 
5 
6 
7 
8 
9 
10 
11 
12 
13 



003705 
003706 
003707 
003710 
003712 
003713 
0037K 
003715 
003717 
003722 



02A015 
0537U 
104070 

000000 

107202 
101200 
003713 



000741 



000002 
001000 



UNIT NUMBER HANDLER 



UNITCN: 



UNITRT: 
UNITBO: 



001221 



PUSH 

CALL 

BNE 

MOV 

POP 

RETURN 

POP 

SUB 

BIS 

BR 



R2 

GENCON 
UNITBO 
RO^UNNO 
R2 

R2 

#nENTLN,R2 

«REPEAT,FLA61 

UNITRT 



SAVE MESSAGE POINTER 
CONVERT TO BINARY 
ILLEGAL CHARS 
MOVE TO UNIT NUMBER 
RESTORE MESSAGE POINTER 

GET MESSAGE POINTER 

POINT BACK AT BEGINNING OF QUESTION 

SET TO REPEAT - ANSWER MUST BE NON-ZERO 

RETURN 



UDAFH - UDA FORHATTER DNACR X04.01 23-AU6-82 14:02:32 PAGE 28 
OUP DH<->HOST STARTUP OVERLAY 



1 
2 
3 

4 003723 








5 003724 


024015 






6 003725 


053736 






7 003726 


1 1 5007 






8 003727 


053745 






9 003730 


1 1 5001 






10 003731 


053745 






11 003732 


1 1 5002 






12 003733 


053745 






13 003734 

14 003735 


115003 






053745 






15 003736 








16 003737 


107202 


000002 




17 003741 


101200 


001000 


001221 


18 003744 


003761 






19 003745 


104070 


001306 




20 003747 


104010 


001307 




21 003751 


104020 


001310 




22 003753 


104030 


001311 




23 003755 








24 003756 


101200 


000200 


001221 


25 003761 


000000 







SERIAL NUMBER HANDLER 



SERCON: 



SERBO: 



SEROK: 



SERRT: 



PUSH 

CALL 

BNE 

TST 

BNE 

TST 

BNE 

TST 

BNE 

Tsr 

BNE 

POP 

SUB 

BIS 

BR 

NOV 

nov 

MOV 
MOV 
POP 
BIS 

RETURN 



R2 

GENCON 

SERBD 

RO 

SEROK 
R1 

SEROK 
R2 

SEROK 
R3 

SEROK 
R2 

«MENTLN,R2 

#REPEAT.FLAG1 

SERRT 

RO.SERNUN 

RI.SERNUM^I 

R2,SF.RNUN*2 

R3,SEitNUN«3 

R2 

fQUESDN.FLAGI 



SAVE MESSAGE POINTER 
CONVERT HIGH ORDER 

IF NE THEN ILLEGAL CHARS - PROMPT AGN 
IS IT ZERO ? 

NO • ALL BITS CAN'T BE ZERO 
IS IT ZERO ? 

NO - ALL BITS CAN'T BE ZERO 
IS IT ZERO ? 

NO - ALL BITS CAN'T BE ZERO 
IS IT ZERO ? 

NO - ALL BITS CAN'T BE ZERO 

GET MESSAGE POINTER 

POINT BACK AT BEGINNING OF QUESTION 

SET TO REPEAT - ANSWER MUST BE NON-ZERO 

RETURN 

LOW ORDER WORD 
LOW MIDDLE 
HIGH MIDDLE 
HIGH ORDER 

RESTORE MESSAGE POINTER 
SET QUESTIONS DONE 
RETURN 



UDAFM - UOA FORMATTER DHACR X04.01 23-AU6-82 U:02:32 PAGE 29 
OUP 0H<->HOST STARTUP OVERLAY 



1 
2 
3 

4 003762 

5 003763 

6 C0376A 

7 003765 

8 003766 

9 003767 

10 003772 

11 003773 

12 003776 

13 003777 
U 

15 
16 
17 

18 004000 

19 004003 

20 004004 

21 004006 

22 004010 

23 004012 

24 004014 



DOWN LINE LOAD FILE NAME HANDLER 



024220 
115001 
014000 
074000 

101200 000400 001220 
003776 

101200 000200 001221 
000000 



DLLFLE: PUSH R2 



CALL 
TST 
BEQ 
BMI 
BIS 
BR 
SIS 

DLLDN: POP 
DLLDN1: RETURN 



F I DANS 
R1 

DLLNO 
DLLNO 
«DLL,FLAG 
DLLDN 

#QUESDN.FLAG1 
R2 



SAVE MESSAGE POINTER 
GET RESPONSE 
TEST RESPONSE 

NULL - DEFAULT TO BEST GUESS 

NO - DO BEST GUESS 

YES - DO DOUN-LiNE LOAD 

EXIT 

SET END OF QUESTIONS FLAG 
RESTORE MESSAGE POINTER 



THIS SECTION SKIPS THE NEXT QUESTION 
WHICH PERTAINS TO CONTINUING IF FCT IS BAD 



101200 


002000 001220 DLLNO: 


BIS 


#BSTGS*FLAG 


DO BEST GUE5S 






POP 


R2 


■GET MESSAGE POINTER 


105302 


003246 


ADD 


MLEN,R2 


■ADD CURRENT MESSAGE LENGTH 


104621 


000001 


NOV 


MS60FF(R2),R1 


-GET NEXT MESSAGE LENGTH 


105202 


000002 


ADD 


#MENTLN,R2 


iPAST THE FRONT ENTRIES 


104010 


003246 


MOV 


R1 ,NLEN 


;MAKE THIS MESSAGE THE NEW LENGTH 


003777 




BR 


DLLDN1 


; RETURN 



UDAFH - UDA FORMATTER DHACR X04.01 23-AUG-82 K:02:3? PAGE 30 
DUP DH<->HOST STARTUP OVERLAY 



1 

2 ; GENERAL CONVERSION FLOW 

3 ; RO -> STRING 



4^ 

5 


004015 








6eNC0N: PUSH 


R4 


A 

W 


004016 


024201 








CALL 


FINLEN 


7 


004C17 


101 200 


000400 


001221 




BIS 


#FLIP0N,FLAG1 


8 


004022 


104074 








HOV 


R0,R4 


9 


004023 


114007 








CLR 


RO 


10 


004024 


114001 








CLR 


R1 


11 


004025 


114002 








CLR 


R2 


12 


004026 


114003 








CLR 


R3 


13 


004027 


1 1 5005 








TST 


RS 


K 


004030 


014113 








BEQ 


CONDON 


15 


004031 


104140 


000736 




CNLPl : 


HOV 


(R4),TEnP 


16 


004033 


103200 


177400 


000736 


CNLP: 


BIC 


fHIBYTE.TENP 


17 


004036 


106200 


000057 


000736 




CMP 


#57, TEMP 


18 


004041 


034121 








BPL 


C0NER1 


19 


004042 


106200 


000071 


000736 




CMP 


#•9. TEMP 


20 


004045 


074121 








BMI 


C0NER1 
t*C17,TEMP 


21 


004046 


103200 


177760 


000736 




BIC 


22 


004051 


105307 


000736 






ADD 


TENP.RO 


23 


004053 


044063 








BCC 


NOCERR 


24 


004054 


115401 








INC 


R1 


25 


004055 


044063 








BCC 


NOCERR 


26 


004056 


115402 








INC 


R2 


27 


004057 


044063 








BCC 


NOCERR 


28 


004060 


115403 








INC 


R3 


29 


004061 


044063 








BCC 


NOCERR 


30 


004062 


004116 








BR 


CONERR 


31 


004063 


117405 






NOCERR: 


DEC 


R5 


32 


004064 


014113 








BcO 


CONDON 


33 


004065 


024142 








CALL 


MULT10 


34 


004066 


102200 


000400 


001221 




SIT 


#FLIP0N.FLAG1 


35 


004071 


014107 








BEQ 


CONLOU 


36 


004072 


104240 


000736 






MOV 


(R4)*,TEMP 


37 


004074 










PUSH 


RO 


38 


004075 


104307 


000736 








TENP.RO 


39 


004077 


110707 








SUAB 


RO 


40 


004100 


104070 


000736 






MOV 


RO.TEHP 


41 
42 


004102 










DAD 


RO 


004103 


103200 


000400 


001221 




BIC 


#FLIP0N.FL^G1 


43 


004106 


004033 








BR 


CNLP 


44 


004107 


101200 


000400 


001221 


CONLOV: 


BIS 


#FLIP0N.FLAG1 


45 


004112 


004031 








BR 


CNLPl 


46 


004113 








CONDON: 


POP 


R4 


47 


004114 


106011 








CMP 


R1,R1 


48 


004115 


000000 






C0ND01 : 


RETURN 


49 


004116 


104201 


000025 




CONERR: 


MOV 


#21., R1 
ERRMNT 


50 


004120 


022542 








CALL 


51 


004121 








C0NER1 : 


POP 


R4 


52 


004122 


106200 


177777 


003246 




CMP 


#177777.MLEN 


53 


004125 


004115 








BR 


C0ND01 



SAVE R4 

FIND LENGTH OF STRING 

FLIP INDICATOR 

POINT AT STRING 

RESULT REGISTER 

RESULT REGISTER 

RESULT REGISTER 

RESULT REGISTER 

IS STRING NULL ? 

YUP - EXIT 

GET WORD OF STRING 

CLEAR HIGH BYTE 

LESS THAN 0 (60 OCTAL) ? 

YES - ERROR 

GREATER THAN 9 ? 

YES - ERROR 

SUB ASCII 60 FROM CHARACTER 
ADD TO RESULT REGISTER 
IF NO CARRY THEN CONTINUE 
ELSE INC NEXT REGISTER 
IF NO CARRY THEN COtHTINUE 
ELSE INC NEXT REGISTER 
NO CARRY - C0N7 
INC NEXT REGISTER 
NO CARRY - CONT 
ERROR IF CARRY WAS SET 
DECREMENT COUNTER 
ALL DONE 
MULTIPLY BY TEN 
;UH:CK BYTE ARE WE ON ? 
;DONE ALL OF THIS VORO 
;GET UORD AGAIN 
SAVE RO 
GET FOR SUAB 
MAKE HIGH BYTE LOW 
; STORE BACK 
; RESTORE RO 
; CLEAR FLAG 
; PROCESS HIGH BYTE 
SET FLIP FLAG 
;D0 LOU BYTE 
; RESTORE R4 
;SET Z FLAG 

ERROR 21 - RESPONSE ERROR 
: ERROR RETURN 
;RESTORE R4 

;S£T NOT EaUAL-(MLEN - MESSAGE LENGTH) 
:AND RETURN 



F 4 



UOAFH - UOA FORMATTER DHACR XOA.01 23-AUG-82 U:02:32 PAGE 31 
OUP On<->HOST STARTUP OVERLAY 



SEQ 211 



1 
2 
3 

5 

6 004126 

7 004130 

8 004131 

9 004132 

10 004133 

11 004134 

12 004135 

13 004136 

14 004137 

15 004141 



105207 
110207 
110201 
110202 
110203 
044136 
004137 
000000 
104201 
022542 



000000 



MULT2: 



MULTIPLY BY 2 

R0,RUR2,R3 = 64-BIT VALUE TO BE NUITIPLIED 



000025 



ADO 
ROL 
ROL 
ROL 
ROL 
BCC 
BR 

RETURN 



MULON: 
nULERR: MOV 
CALL 



#0.R0 

RO 
R1 
R2 
R3 

NULON 
nULERR 

#21.. R1 
ERRMNT 



CLEAR CARRY 

SHIFT FIRST WORD 

SHIFT CARRY AND SECOND WORD 

SHIFT CARRY AND THIRD WORD 

SHIFT CARRY AND FOURTH WORD 

IF NO CARRY THEN DONE 

ELSE ERROR 

RETURN 

RESPONSE ERROR 
ERROR EXIT 



UOAFH - UOA FORNATTER OHACR X0A.01 23-AUG-82 14:02:32 PAGE 32 
OUP ON<->HOST STARTUP OVERLAY 



1 
2 
3 
4 
5 
6 
7 
8 
9 
10 

11 00AU2 

12 00AU3 

13 004U5 
U 0041A7 

15 00A151 

16 004153 

17 004154 

18 004155 

19 004157 

20 004160 

21 004161 

22 004163 

23 004164 

24 004165 

25 004167 

26 004170 

27 004171 

28 004173 

29 004174 

30 004175 

31 004176 

32 004200 
33 



024126 
104070 
104010 
104020 
104020 
024126 
024126 
105307 
044161 
115401 
105301 
044165 
115402 
105302 
044171 
115403 
105303 
044175 
004176 
000000 
104201 
022542 



007321 
007322 
007323 
007324 



007321 
007322 
007323 
007324 

000025 



MULTIPLY BY TEN 

R0,R1,R2,R3 - 64-OIT VALUE TO BE MULTIPLIED 
TO MULTIPLY BY TEN : 



ADD 



(N*8)''(N*2) TO GET (N*10) 



NULTIO. 


CALL 


NULT2 i 


GET N • 2 






NOV 


R0.INA6E 


'STORE FIRST WORD 






NOV 


RI.INAGE^I 


STORE SECOND VORD 






NOV 


R2,INAGE*2 


'STORE THIRD WORD 






NOV 


R2,INAGE*3 


STORE FOURTH UORD 






CALL 


NULT2 


•GET N * 4 






CALL 


NULT2 


;GEr N * 8 






ADD 


IMAGE.RO 


•ADD IN N * ? 






BCC 


10$ 


•SKIP INC IF CARRY 


CLEAR 




INC 


R1 


;PROP CARRY 




10S: 


ADD 


IMAGE^I.RI 


;ADD ;n N * 2 
;SKIP INC IF CARRY 






BCC 


20$ 


CLEAR 




INC 


R2 


;PR0P CARRY 




20S: 


ADD 


IMAG£«2«R2 


;ADD IN N • 2 






BCC 


30$ 


;SKIP INC IF CARRY 


CLEAR 




INC 


R3 


;PROP CARRY 




30S; 


ADD 


INA6E«3,R3 


;ADD IN N * 2 






BCC 


40$ 


rSKlP INC IF CARRY 


CLEAR 




BR 


NULERl 


; ERROR 




40$: 


RETURN 




;ALL DONE 




nULERl : 


NOV 


#21.. R1 
ERRNNT 


; RESPONSE ERROR 






CALL 


; ERROR EXIT 





H A 
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1 



8 
9 
10 
11 
12 
13 
U 
15 
16 
17 
18 
19 
20 
21 
22 



004201 
004202 
004203 
004204 
004206 
004207 
004210 
004211 
004213 
004214 
004215 
004216 
004217 



114005 
104171 
103201 
014216 
115405 
104271 
103201 
014216 
115405 
004203 

000000 



FIND THE LENGTH OF A STRING 
RO -> STRING 
OUTPUT: 
R5 = COUNT 



U7400 



000377 



FINLEN: PUSH 
CLR 

FINLN1: MOV 
BIC 
BEQ 
INC 
MOV 
BIC 
BEQ 
INC 
BR 

FINDON: POP 

RETURN 



RO 
R5 

(R0),R1 
#HIBYTE,R1 
FINDON 
R5 

(R0)*,R1 
#L0BYTE«R1 
FINDON 
R5 

FINLN1 
RO 



SAVE RO 

CLEAR COUNTER 

GET WORD 

CLEAR HIGH BYTE 

IF ZERO THEN DONE 

INCREMENT COUNT 

GET WORD FOR HIGH BYTE 

CLEAR LOU BYTE 

IF ZERO THE DONE 

INCREMENT COUNT 

REPEAT WITH NEXT WORD 

RESTORE RO 



I 4 
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SEQ 25S 



1 



8 

9 
10 
11 

12 004220 

13 004221 

14 004222 

15 004224 

16 004225 

17 004227 

18 004231 

19 004232 

20 004233 

21 004234 

22 004235 



114001 
104172 
103202 
014233 
103202 
106202 
054234 
115401 
OOOOOG 
117401 
004233 



OETERNINE IF VALUE IS 'Y'.NULL, OR NOT V 
INPUT: 



RO -> STRING 



OUTPUT: 



R1 = 



1 IF 'Y' 
0 IF NULL 
-1 IF NOT V 



177400 

000040 
000131 



F I DANS: 


CLR 


Rl 


-CLEAR OUTPUT 




NOV 


(R0)«R2 


;6ET WORD 




BIC 


#HIBYTE,R2 


•CLEAR HIGH STUFF 

;IF ZERO THEN IT'S NULL 




BEQ 


FIDNUL 




BIC 


«BIT5,R2 


;NAKE IT UPPER CASE 




CMP 


#Y,R2 


rIS IT 'Y' ? 




6NE 


NOTY 


;NOPE 




INC 


Rl 


;MAKE IT 1 


FIDNUL: 


RETURN 




; RE TURN 


NOTV: 


DEC 


Rl 


rNAKE IT NEGATIVE 




BR 


FIDNUL 


;AND EXIT 



J 4 
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SEQ 256 



1 
2 
3 
4 
5 

6 00A236 

7 004237 

8 004240 

9 004241 
10 004242 
11 

12 
13 
14 

15 004245 

16 004246 

17 004250 

18 004252 

19 004254 

20 004256 
21 

22 

23 004257 

24 004260 



024220 
115001 
074257 
101200 



105302 
104621 
105202 
104010 
004260 



000000 



USE EXISTING FCT ? 
RO -> STRING 



000001 001220 



003246 
000001 
000002 
003246 



EXTFCT: PUSH 
CALL 
TST 
BMI 
BIS 



R2 

F I DANS 
R1 

EXTRET 

#FCTAVL,FLAG 



SAVE MESSAGE POINTER 
WHAT'S THE ANSWER 
TEST THE RESPONSE 
NO - EXIT 

YES - SET THE FLAG 



THIS SECTION SKIPS THE NEXT QUESTION 
WHICH PERTAINS TO DOWN-LINE LOADING 



POP R2 

ADD MLEN.RZ 

NOV NS60FF(R2),R1 

ADD «NENTLN,R2 

NOV R1 «NLEN 

BR EXTRT1 



EXTRET: POP R2 
EXTRT1: RETURN 



GET MESSAGE POINTER 

ADD CURRENT MESSAGE LENGTH 

GET NEXT MESSAGE LENGTH 

PAST THE FRONT ENTRIES 

NAKE THIS MESSAGE THE NEW LENGTH 

RETURN 



^RESTORE MESSAGE POINTER 



K 4 
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1 
2 
3 
4 

5 



CONTINUE IF BAD ?? 
RO -> STRIKE 



6 004261 








CONBAD: 


PUSH 


R2 


7 004262 


024220 








CALL 


F I DANS 


8 004263 


106201 


000001 






CMP 


#1,R1 


9 004265 


054272 








BNE 


CONEXT 


10 004266 


101200 


000020 


001220 




BIS 


#GOBAD,FLAG 


11 004271 


004275 








BR 


C0N1EX 


12 004272 


101200 


000200 


001221 


CONEXT: 


BIS 


«QUESDN,FLA61 


13 004275 








C0N1EX: 


POP 


R2 


14 004276 


000000 








RETURN 





WHAT'S THE ANSWER 

IS IT YES ?? 

NOPE - EXIT 

YUP - SET THE FLAG 

RETURN 

SET FLAG ALL DONE QUESTIONS 
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SEQ 258 



1 
2 
3 
I* 
5 
6 
7 



004277 
004301 

8 004302 

9 004303 

10 004304 

11 004305 

12 004306 

13 004310 

14 004312 

15 004315 

16 004317 

17 004320 

18 004322 

19 004324 

20 004325 

21 004326 

22 004330 
23 

24 004332 

25 004333 

26 004334 

27 004335 

28 004336 

29 004337 

30 004340 

31 004341 

32 004342 

33 004344 

34 004345 

35 004346 

36 004347 

37 004350 

38 004351 
39 

40 
41 

42 004352 

43 004354 

44 004355 

45 004357 

46 004360 

47 004362 

48 004363 

49 004364 

50 004366 

51 004370 

52 004371 

53 004372 
54 

55 

56 004374 

57 004375 



104204 
104262 
054304 
117404 
104261 
117402 
104020 
114000 
104200 
114000 

104203 
104204 
021537 

104303 
104302 

115003 
034341 
115002 
034341 
104165 
115405 
100165 
117401 
105201 
105043 
044347 
115402 
104414 
054344 
117401 



105203 
110603 
105203 
110603 
105203 
110602 
044370 
101203 
105203 
110602 
044374 
101203 



105263 
044377 



170140 



000731 
000732 
002665 
000737 

000731 
000736 



000736 
000737 



VAXTNEi 



30$: 



000736 



003330 



40S: 
SOS: 



SU: 



000000 
000000 
000000 



040000 
000000 



100000 



52S: 



(3$: 



DATE CONVERSION ROUTINE 

RO -> QUAD-WORD TO STORE RESULT 



MOV #<DAYS-1>*4,R4 

MOV (SP)^,R2 

BNE 30S 

DEC R4 

MOV (SP)^,R1 

DEC R2 

MOV R2,DDUNMY 

CLR DOUNMY^I 

NOV «<36S.*4«1>,TEMP 

CLR TEMP*1 

PUSH R4 

MOV #DDUPmY.R3 

MOV #TEnP»R4 

CALL DMUL 

POP R4 

MOV TEMP.R3 

MOV TEHP*1,R2 

NOTE: LOU TWO BITS OF R3^R4 ARE 

TST R3 

BPL 40$ 

TST R2 

BPL 40S 

NOV (SP) .RS 

INC R5 

MOV R5,(SP) 

DEC R1 

ADD #TINTBL,R1 

ADD R4.R3 

BCC Sli 

INC R2 

NOV -(R1).R4 

BNE 50$ 

DEC R1 

DO A ASHC f-2,R2 INSTRUCTION 



QUARTER DAYS FROM BEGIN TO 1901 
GET YCARS 

BRANCH IF NOT 1900 

CAUSE 1900 TO NOT BE A LOOP YEAR 

GET NONTH 

YEAR AFTER LEAP YEAR DI VI SABLE BY 4 

FOR NULTIPLY 

CLEAR HIGH ORDER 

QUARTER DAYS IN A YEAR 

CLEAR HIGH ORDER 

SAVE DAYS 

FOR NULT 

DITTO 

GET YEAR TINES QUARTER DAYS IN A YEAR 
RESTORE DAYS 
LOy ORDER 
HIGH ORDER 
ONES IFF. LEAP YEAR 
AFTER 1900 ? 
YES 

AFTER 1900 ? 
YES 

GET DAYS 

ADJUST FOR 1 DAY LESS DAY IN 1900 
PUT BACK 

BIAS NONTH TO ZERO 
INDEX INTO NONTH TABLE 
ADD TO DAYS 
IF NO CARRY SKIP 
PROP CARRY 

GET LENGTH OF NEXT PREVIOUS NONTH 
BRANCH UNTIL END OF TABLE 
POINT TO FIRST TINE NULTILPLIER 



ADD 


#0.R3 


;NAKE SURE CARRY IS 0 


ROR 


R3 


; SHI FT RIGHT 1 


ADD 


#0.R3 


; CLEAR CARRY 


ROR 


R3 


; ROTATE RIGHT 1 


ADD 


#0«R3 


CLEAR CARRY 


ROR 


R2 


ROTATE HIGH ORDER RIGHT 1 


BCC 


52$ 


;IF NO CARRY THEN SKIP 
■DO "SHIFT" INTO LOU ORDER 


BIS 


#40000, R3 


ADD 


f0«R3 


-CLEAR CARRY 


ROR 


R2 


SHIFT HIGH ORDER RIGHT 1 


BCC 


53$ 


IF NO CARRY THEN SKIP 
-DO "SHIFT" INTO LOU ORDER 


BIS 


#100000«R3 



ADD 

BCC 



(SP)*.R3 
54$ 



;ADD IN DAY OF MONTH 
;SKIP INC IF NO CARRY 
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CO 

SB 


004376 


1 1 5402 




59 








6C 








Ol 








62 


AAy TTT 

004377 


1 A/ AT/ 

104074 




63 


AAi i AA 

004400 


1 AAO/ T 

100243 




6A 


AA/ y A1 

004401 


1 AAO/ O 

1 00c4c 




63 


AA/ y AO 
00440c 


11/ nnc 
1 1 4005 




66 


AA/ / AT 

004403 


1 AAO/ C 

100245 




6r 


AA/ / A/ 

004404 


1 AA1 / C 

100145 




6o 








69 








70 








71 


AA/ / AC 

004405 


1 A/ AT/ 

104074 




TO 
f £ 


AA/ / AiL. 

004406 


1 n/ one 
104c05 


000004 










fH 








75 








70 


AA/ /in 
QQ44 1 U 


1 n/ I/O 
10414c 




f f 


nn/ /II 
00441 1 


1 n/ 1 1 T 
1041 13 




78 


AA/ / 1 O 

00441c 


1 A/ ATA 

1 04030 


AAATT1 

000731 


7A 

79 


AA/ / 1 / 

004414 


1 A/ AOA 

1040c0 


AAATT^ 

000736 


AA 

80 


AA/ / 1 Z. 

004416 


11/ AAA 

1 1 4000 


AAnTTO 

00073c 


81 


AA/ / OA 

0044c0 


11/ nnn 
1 14000 


Ann7T7 
000737 


82 


AA/ / O O 

00442c 






83 


AA/ / OT 

0044^3 


1 A/ OAT 

104c03 


AnnTTi 
000731 


84 


AA/ / OC 

0044c5 


1A/ OA/ 

104c04 


AAATTA 

000736 


AC 

05 


0U44c7 


n01CT7 
Oc153f 




06 


QU443U 


1 n/ ozT 
104c43 




07 


nn/./ Ti 
UU4431 


1 t\L 1 /. 0 




Oo 


nn/ /.TO 






Ot 


AA/ / TT 

U04433 


1 1 cnno 
1 1 500c 




on 
90 


nn/ z T/ 
U04434 


nT/ /.Tit 
03443O 




91 


U0443j 


inci 1 0 
1031 1c 




9c 


A/V. /. TA 
UU4430 


10 J 103 




93 


nAAZT7 

U044Jf 


t\LLLL^ 




OA 




1 1 KLtVi 
1 1 3*»Uc 




93 


nA/./,zi 


100c43 




TO 


UUhhhc 


mm AO 
1 UU 1 oc 




97 

WW 


004443 


1 1 740$ 




98 


0044AA 


054410 




99 


00444S 


104415 




100 


004446 


0U451 




101 


004447 


104265 




102 


0044S0 


004405 




103 


004451 


104265 




104 


004452 


000000 





60$: 



^0$: 



80$: 
81$: 



90$: 



N 4 

.02:32 PAGE 37-1 



SEQ 259 



INC R2 :PR0P CARRY 

INIT QUAD-yORO TO DAYS SINCE BASE DATE 



nov 

MOV 
MOV 
CLR 

nov 

MOV 



R0,R4 
R3,(R4)« 
R2,(R4)* 
R5 

R5,(R4)« 
R5,(R4) 



QUAD WORD POINTER 

COPY LOW ORDER DAYS 

COPY HIGH ORDER DAYS 

FOR REST OF QUAD-WORD CLEAR 

CLEAR 

CLEAR 



LOOP TO MERGE TINE OF DAY INTO DAYS SINCE BASE DATE 



MOV 
MOV 



R0,R4 
#4,R5 



;COPY QUAD WORD POINTER 
; INNER LOOP COUNT 



CALCULATE QUAD-WORD <- QUAD-WORD * (R1) ♦ (SP)^ 



MOV 


(R4) R2 


'FFTCH NFXT UORD OF QUAD-UOPD 


MOV 


(R1) R3 


>6ET MULTIPLIER 


MOV 


R3,DDUNNY 


■STORC FOR MULTIPLY 


MOV 


R2,TENP 


•FOR MULTIPLY 


CLR 


DDUNNY^I 


CLEAR HIGH ORDER 


CLR 


TENP+1 


;DITTO 


PUSH 


R4 


;SAVE QUAD-WORD POINTER 


NOV 


#0DUNMY,R3 
«TENP.R4 


;FOR MULTIPLY 


NOV 


;DITTO 


CALL 


DNUL 


;00 NULTIPLY 


NOV 


(R4)*,R3 


;GET LOW ORDER RESULT 


NOV 


(R4).R2 


;G£T HIGH ORDER RESULT 


POP 


R4 


; RESTORE QUAD-WORD POINTER 


TST 


R2 


lis IT POSITIVE 


BPL 


80$ 


;0.K. 


ADD 


(R1).R2 


;NAKE IT AN UNSIGNED NULTIPLY 


ADD 


(SP),R3 


;ADD HIGH ORDER OF PREVIOUS NUL. 


BCC 


81$ 


;SKIP INC IF NO CARRY 


INC 


R2 


;ADD CARRY 


NOV 


R3.(R4)« 


; STORE WORD INTO QUAD-WORD 


NOV 


R2.(SP) 


;SAVE HIGH ORDER WORD 


DEC 


R5 


;DEC COUNT 


BNE 


70$ 


; CONTINUE TILL DONE 
j'-POP" R1 


NOV 


-(R1).R5 


BEQ 


90$ 


;IF ZERO THEN DONE 


NOV 


(SP)*,R5 


;POP STACK 


BR 


60$ 


;D0 NEXT NULTIPLIER 


NOV 


(SP)*.R5 


;D0 FINAL POP 


RETURN 


;AND RETURN 



N 4 
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SEQ 260 



1 
2 
3 
4 

5 0044S3 

6 003023 

7 003024 

8 003027 

9 003030 

10 003032 

11 003033 

12 003035 
13 

14 
15 
16 
17 
18 
19 
20 

21 003036 

22 003040 

23 003042 

24 003044 

25 003046 

26 003050 

27 003052 

28 003054 

29 003056 

30 003060 

31 003062 

32 003064 

33 003065 

34 003067 
35 

36 
37 

38 003071 

39 003073 

40 003075 

41 003077 

42 003101 

43 003103 

44 003105 

45 003106 

46 003110 
47 

48 
49 

50 003112 

51 003114 

52 003116 

53 003120 

54 003122 

55 003124 

56 003126 

57 003127 



024330 
102200 
053033 
104201 
003035 
104201 
022403 



104207 
104673 
103203 
104030 
114000 
104673 
103203 
104030 
114000 
104203 
104204 
021537 
104240 
104140 



104673 
103203 
104030 
114000 
104204 
104203 
021537 
104240 
104140 



104673 
103203 
104030 
114000 
104204 
104203 
021537 
104240 



000001 
000000 
000003 



001053 
000003 
177400 
000731 
000732 
000002 
177400 
000736 
000737 
000731 
000736 

001142 
001143 



000011 
177400 
000736 
000737 
000736 
001142 

001146 
001147 



000004 
177600 
000736 
000737 
000736 
001142 

001150 



001220 



.SBTTL INITIALIZATION OVERLAY (61) 
INITIALIZATION OVERLAY 



CALL 
BIT 
BNE 

nov 

BR 

OOLBN: MOV 
DXBN: CALL 



OMOVLY 61, START 
INITL 

#FCTAVL,FLA6 
OOLBN 
*F1,R1 
DXBN 
#F2,R1 
NEXT 



.•INITIALIZE DISK 
:USE RESIDENT FCT ? 
;YES - ONLY DO LBN 
;ELSE DO D/XBN FIRST 
;SKIP LBN FLAGGING 
; SIGNAL LBN FORMAT 
;BRING IN NEXT OVERLAY 



COMPUTE DISK CONSTANTS FROM CHARACTERISTICS 



: COMPUTE 


TRACKS/CYLINDER 


CONINT: MOV 


#SCR,RO 


MOV 


TRKGRP(R0),R3 


BIC 


fHIBYTc,R3 


MOV 


R3,D0UMNY 


ri D 
LLN 


DDUnnT+l 


MOV 


GRPCYL(R0)«R3 


BIC 


«HIBYTE,R3 


MOV 


R3.TEMP 


CLR 


TEMP*1 


MOV 


#0DUMHY,R3 


MOV 


«TENP,R4 


CALL 


DHUL 


MOV 


(R4)*,TRICCYL 


MOV 


(R4),TRKCYL*1 


; COMPUTE 


LBN'S/CYLINDER 


MOV 


LBNTRK(R0),R3 


BIC 


«NIBYTE,R3 


MOV 


R3,TEMP 


CLR 


TEMP*1 


MOV 


«TENP,R4 


MOV 


#TRICCYL,R3 


CALL 


DNUL 


MOV 


(R4)«,LBNPCY 


MOV 


(R4),LBNPCY«1 


; COMPUTE 


RBN'S/CYLINDER 


MOV 


RBNTRK(R0),R3 


BIC 


#HI1BYTE,R3 


MOV 


R3,TEHP 


CLR 


TEHP*1 


MOV 


#TEHP,R4 


MOV 


#TRKCYL.R3 


CALc 


DMUL 


NOV 


(R4)^.RBNPCY 



.•POINT TO SUB CHARACTERISTICS 

;LOAD TRACKS/GROUP 

: CLEAR HIGH BYTE 

.•STORE IN DUMMY AREA 

.•CLEAR FOR STORE 

:6ET GROUPS/CYLINDER 

.•CLEAR HIGH BYTE 

.•STORE IN TEMP AREA 

.•CLEAR HIGH ORDER 

;S£TR UP FOR MULT 

;DITTO 

.•COMPUTE IT 

;LOAD FOR STORE 

;LOAD FOR STORE 



.GET LBN*S/TRACK 
.•CLEAR HIGH BYTE 
.-FOR MULT 
;FOR STORE 
.•FOR MULTIPLY 
.•DITTO 

:6ET LBN'S/CYL 
;6ET LOV ORDER 
;GET HIGH ORDER 



GET RBN'S/TRACK 
CLEAR our GARBAGE 
STORE FOR MULT 
FOR STORE 
FOR MULTIPLY 
DITTO 

GET RBN'S/CYL 
GET LOW ORDER 



B 5 
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58 003131 

59 

60 

61 

62 

63 

6A 003133 

65 003135 

66 0O3U0 

67 003142 

68 003UA 

69 003U6 

70 003150 

71 003152 

72 003153 

73 003155 

74 003160 

75 003163 

76 003166 

77 003170 

78 003171 

79 003173 
80 

81 
82 
83 

84 003175 

85 003177 

86 003202 

87 003204 

88 003206 

89 003210 

90 003212 

91 003214 

92 003215 

93 003217 
94 

95 
96 

97 003221 

98 003223 

99 003225 

100 003227 

101 003231 

102 003?32 

103 003234 
104 

105 
106 

107 003236 

108 003241 

109 003244 

110 003246 

111 003250 

112 003251 

113 003253 
114 



104140 001151 



nov 



(R4),RBNPCY*1 



104207 
104670 
104673 
103203 
104030 
104204 
104203 
021537 
104140 
104640 
104670 
104670 
104203 
021521 
104240 
104140 



104207 
104670 
104673 
103203 
104030 
104204 
104203 
021537 
104240 
104140 



104673 
103203 
104674 
103204 
105043 
104030 
114000 



104300 
104300 
104204 
T04203 
021537 
104140 
104640 



001053 
000000 
000001 
170000 
000737 
000736 
001146 

001134 
000001 
000012 
000013 
000731 

001472 
001473 



001053 
000000 
000001 
170000 
000737 
000736 
001150 

001136 
001137 



000004 
177600 
000011 
177400 

001130 
001131 



001130 
001131 
000731 
001142 

001132 
000001 



000736 



001135 
000731 
000732 



000736 



000731 
000732 



001133 



COMPUTE LBN'S IN LBN AREA 



nov #SCR,RO 

nov CYLBN(RO).TEnP 

nov CYLBN«1(R0),R3 

BIC «HD.CLR,R3 

nov R3,TEnP*1 

nov «TEnP,R4 

nov #LBNPCY,R3 

CALL DHUL 

nov (R4),LBNLBN 

nov 1(R4),LBNLBN4-1 

nov LBNHOST(RO).DOUnnY 

nov LBNHOST^I (RO) ,DDunnY«i 

nov #DDunnY,R3 

CALL DSUB 

nov (R4)««T0TRCT 

nov (R4),T0TRCT«1 

COnPUTE RBN'S IN LBN AREA 



nov «SCR,RO 

nov CYLBN(RO).TEnP 

nov cylbnm(r6),r3 

BIC «H0.CLR,R3 

nov R3.TEnp4^i 

nov fTEflP,R4 

nov fRBilPCY«R3 

CALL OnUL 

nov (R4)«,RBNLBN 

NOV (R4),ReNLBN«^1 

COMPUTE SECTORS/TRACK 

nov RBNTRK(R0),R3 

bIC «H11BYTE.R3 

nov lbntrk(r0),r4 

BIC fHIBYTE,R4 

ADO R4,R3 

NOV R3,SECTRK 

CLR SECTRK^I 

CONPUTE SECTORS/CYLINDER 

NOV SECTRK,DDUHNY 

NOV SECTRK^I ,DDUnNY«1 

NOV #DDUNNY,R4 

NOV #TRKCYL,R3 

CALL OnUL 

nov (R4),SECTCY 

NOV 1(R4),SECTCY>1 



;6ET HIGH ORDER 



POINT TO CHARACTERISTICS 

GET LBN CYLINDERS 

GET HIGH ORDER 

CLEAR STARTING CYLINDER BITS 

STORE IT 

FOR nULT 

POINT TO LBN'S/CYLINDER 

GET LBN'S IN IBN AREA 

GET LOW ORDER 

GET HIGH ORDER 

GET LBN'S IN HOST AREA 

GET HIGH ORDER 

FOR SUB 

SUBTRACT TO GET LBN'S IN RCT 
GET LOW ORDER 
GET HIGH ORDER 



POINT TO CHARACTERISTICS 

GET LBN CYLINDERS 

GET HIGH ORDER 

CLEAR STARTING CYLINDER BITS 

STORE IT 

rOR nULT 

POINT TO RBN'S/CYLINDER 
GET LBN'S IN LBN AREA 
GET LOW ORDER 
GET HIGH ORDER 



LOAD RBN'S/TRACK 
CLEAR OUT GARBAGE 
LOAD LBN'S/TRACK(512) 
CLEAR OUT HIGH BYTE 
ADD FOR SECT/TRACK 
STORE IT 
CLEAR FOR STORE 



LOW ORDER 
HIGH ORDER 
SET UP FOR nULT 
DITTO 
COnPUTE IT 
LOAD FOR STORE 
LOAD FOR STORE 
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120 


003265 
003266 


021537 






121 


104240 


001140 
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003270 


104140 


001141 
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125 










126 


003272 


104207 


001055 




127 


003274 


104670 


000000 


001144 


128 


003277 


104670 


000000 


000756 


129 


003302 


104674 


000001 




130 


003304 


104040 


001145 




131 


003306 


104040 


000737 




132 


003310 


104204 


000736 




133 


003312 


10467C 


000021 


000751 


134 


003315 


114000 


000732 




135 


003317 


104203 


000731 




136 


003321 


021503 






137 


003322 


104673 


000022 




138 


003324 


110703 






139 


003325 


103205 


177400 




140 


003327 


104050 


AAA^V 4 

000751 




141 


003331 


114000 


000732 




142 


AA W W 

003333 


« A ^ A9 

104205 


AAA^9 4 

000731 




143 


AA W9 P 

003335 


A'^ 4 F A9 

021505 






144 


003336 


104642 


A A A A A 4 

000001 




145 


003340 


4 A^ ^ ^9 

104673 


AAAAA4 

000001 




■'46 


003342 


105205 


007777 




147 


003344 


4 A 4 AV^ 

101052 






148 


003345 


100642 


A A AM A 4 

000001 




149 


AA W t ^ 

003347 


4 A« ^A9 

104205 


001465 




150 


AA 4 

003351 


AA4 ^'^4 

021521 






151 


AA ^ 

003352 


4 ^ / A 

104240 


AA4 4 

001126 




152 


AA # 

003354 


4 A^ 4 /A 

104140 


AA4 4 ^9 

001127 




153 










154 










155 










156 


003356 


104500 


/\/\4 4 

001136 


AAA 

000736 


157 


i%AW^ 4 

003361 


4 A J 9AA 

104500 


AA4 4 9^ 

001157 


AAA9Y9 

000737 


158 


AA9 9^ M 

003364 


4 A/ ^AA 

104200 


AAA4 W 

000177 


000731 


159 


003367 


4 4 J AAA 

114000 


AAA 

000752 




4 ^ A 

160 


AA99 94 

003371 


4 A^ '^A^ 

104204 


AAA^V^ 

000756 




4^4 

161 


003373 


4 A^ 1A9 

104205 


AAA W 4 

000751 




162 


005375 


A14 f A9 

021 505 






4 ^ V 

165 


005576 


4 A^ 

104200 


AAA^AA 

000200 


AAA 971 

000731 






1 IZAAA 
11*000 


UOUf J£ 




165 


005405 


104205 


000751 




166 


005405 


021565 






167 


005406 


104140 


001262 




168 


005410 


105200 


000002 


001262 


169 










170 










171 
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SEG 262 



COMPUTE 


SECTORS IN XBN AREA (R4 


nov 


XBNCyL(RO>,TENP 


CLR 


TEMP+l 


MOV 


#TEMP,R3 


CALL 


DMUL 


MOV 


(R4)«^,XBNSEC 


MOV 


(R4) ,XBNSEC'^1 


COMPUTE 


LAST CYLINDER NUMBER ON 


MOV 


#SCR,RO 


MOV 


CYLBN(RO),LBNCYL 


MOV 


CYLBNcROi.TEMP 


MOV 


^Wl Akl^4 # A A \ A/ 

CYLBN^l (RO) ,R4 


MOV 


A^ I AftlfWI 4 4 

R4,LBNCYL*1 


MOV 


A/ VPMA^ 4 

R4,TEMP*1 


MOV 


AftTPMA A/ 

#TEMP,R4 


MOV 


XBNCYLlRO) fDDUNHY 


CLR 


DDUMMY+1 


MOV 


#DDUNMY«R5 


CALL 


DADD 


MOV 


DBNCYL(R0),R5 


SWAB 


A V 

R5 


BIC 


#HlBYTE,R5 


MOV 


A 9 Alkl i4M4M 

R3«DDUHMY 


CLR 


DDUNMY+1 


MOV 


fDDUHMY,R3 


CALL 


A A A A 

OADD 


NOV 


4 /A/ \ A^ 

1 (R4) ,R2 


MOV 


STCYL(R0),R5 


BIC 


fL0,R3 


BIS 


R5«R2 


mv 


R2J(R4) 


MAI* 

NOV 


f0NE«R3 


CALL 


DSW 


nUV 




NOV 


(R4J #CYLNUn^1 


CUHrUlC 


MAai n A ffi B^T 


MOV 


RBNLBN«Tcnr 


NOV 


BB&U TCiiDA.1 


NOV 


iff ^9 AAIiMMW 

f l27,,D0UMNY 


CLR 


AA| IMMV^I 

DDUHMT+I 


NOV 


MTCMA A/ 

f TtNP,R4 


NOV 


#D0UfWY«R3 


CALL 


OADD 


nUV 


ill f\ni Mmv 


CLR 


DDUNNY^I 


NOV 


#DDUNnY,R5 


CALL 


DDIV 


NOV 


{R4)«RCT| BN 


ADD 


#2,RCTLBN 


CONPUTE 


NON-PAD FCT 



-> SECTORS/CYL) 

.-LOAD NUMBER OF XBN CYLINDERS 

.•CLEAR FOR STORE 

;SET UP FOR MULT 

:GET XBN SECTORS 

;LOAD FOR STORE 

:LOAD FOR STORE 

SUBUNIT 

.•POINT TO CHARACTERISTICS 
;GET LOW ORDER LBN CYLINDERS 
;ALSO FOR MATH 

:6ET HIGH orde;( 

.•STORE HI ORDER 

.ALSO FOR MATH 

;SET UP FOR ADD 

.•LOAD XBN CYLINDERS 

.•CLEAR HIGH ORDER 

;SET UP FOR ADD 

;GET LBN^XBN CYLINDERS 

;LOAD DBN CYLINDERS 

;GET INTO LO BYTE 

.•CLEAR GARBAGE 

;FOR DIVIDE 

.•CLEAR HIGH ORDER 

;SET UP FRO ADD 

.-GET LBN^XBN^DBN CYLINDERS 

.-GET HIGH ORDER 

:GET CYLINDER BITS 

; CLEAR OUT REST OF VORD 

;0R IN CYLINDER HIGH BITS 

; STORE BACK 

.•DECREMENT TO GET NUN OF LAST CYL 
;D0 IT 

:MAKE IT CURRENT CYLINDER 
.•LOAD HI ORDER 



bET LOU ORDER LBN*S IN HOST AREA 

GET HIGH ORDER 

ADD 127 FOR DIV FUNCTION 

FOR CLEAR 

FOR ADD 

DITTO 

ADD 

FOR DIVIDE (128 R6N/RCT BLOCK) 
FOR STORE 
POINT TO IT 
DO DIVIDE 

GET LOU ORDER QUOTIENT 
FOR CONTROL BLOCKS 



0 s 



UDAfH - UOA FORMATTER OHACR X04.01 23-AU6-82 U:02:32 PAGE 38-3 



INITIALIZATION OVERLAY 


(G1) 




17? 
1 r c 




10^X00 

1 vH jvv 


001 1 36 


000736 


17^ 


on'^16 




001 1 37 


000737 


\ f 




104>00 


000002 


000731 


17S 




114000 

1 1 ^Www 


000732 






0034?6 


104204 


000736 




177 

Iff 


003430 


104203 


000731 




178 




071 565 

wC I 




000731 




003433 


1 04200 

1 W~ WW 


0001 77 


180 


003436 

W 


114000 

1 1 ~ www 


000732 




181 


003440 


104204 


000736 




182 


003442 


104203 

i W~ k W«^ 


000731 




183 


003444 


021 503 






ISA 


003445 


104200 

1 w~ www 


000200 


000731 


18S 


003450 


114000 

1 I "Www 


000732 




186 


003452 


104203 

1 W~ W 


000731 




187 


003454 


071565 






188 


003455 


104200 


000002 


000731 


189 


003460 


114000 

1 1 ~ WW 


000732 




190 


003462 


1 04203 

1 w~ t w^ 


000731 




191 


003464 


021537 






197 


003465 


104140 


001261 




193 


003467 


115400 


001261 




194 










19S 










196 










19/ 


003471 


104203 


MAP f ^ 9 

005567 




198 


003473 


104302 


001445 




199 


003475 


100232 






200 


003476 


104204 


000125 




201 


003500 

WW^^ WW 


104302 


001442 




202 


003502 

^ Ww 


100232 






203 


003503 


104302 


001443 




20A 


003505 


100232 






205 


003506 


104302 






206 


003510 


100232 






207 


003511 


117404 






208 


003512 


053500 






209 


003513 


104302 


AA4 1 £ ^ 

001446 




210 


003515 


100232 

■ W Wfc rffc 






211 










212 










213 










2U 










215 


003516 

WW ^ ^ 1 W 


104203 


i\/\4 4 

001130 




216 


003520 


104200 


000003 


AAA*y 

000736 


217 


003523 


114000 


000737 




218 


003525 


104204 


000756 




219 


003527 


021537 






220 


003530 


104200 


007321 


000731 


221 


003533 


114000 


000732 




222 


003535 


104203 


000731 




223 


003537 


021503 






224 


003540 


104U0 


001232 





OVER: 



nov 


RBNLBN.TEnP 


HOV 


rfSNLBN^I ,TENP*1 


NOV 


#2#DDUnnT 


CLR 


DDUnnT*! 


HOV 


f TEIlr,li4 


HOV 


Mff^f^l iMMIf Bit 

fDDUNnY 


CALL 


AA V \a 

DDIV 


TOV 


ill 07 f^f^lllMiV 

#1cr . fDDUnni 


CLR 




—At J 

nov 


ilTCIIB BZ 


rlOV 




CALL 


DADD 


mJV 


fl£e.«DDUnnY 


CLR 


DOUBNY*! 






CALL 


DDIV 


NOV 


f2.DDUNNY 


CLR 


DDUNNY^I 


NOV 


#0DUNNY,R3 


CALL 


DNUL 


NOV 


(R4),FCTNPD 


INC 


FCTNPO 



INITIALIZE GOOD DATA BLOCK 



NOV 
NOV 
NOV 
NOV 
NOV 
NOV 
NOV 
NOV 
NOV 
NOV 
DEC 
BNE 
NOV 
NOV 



f6DBLK,R3 

DWRD.R2 

R2.(R3)> 

#85.«R4 

FURD,R2 

R2,(R3)* 

SWRD,R2 

R2,(R3)^ 

TWR0«R2 

R2«(R3)^ 

R4 

OVER 

EDC,R2 

R2,(R3)> 



SET UP END OF IMAGE POINTER 

NOV #SECTRK«R3 

NOV f3JENP 

CLR TENP*1 

NOV fTENP«R4 

CALL DNUL 

NOV #INAGE,DDUmY 

CLR DDUNNY^I 

NOV #DDUmiY,R3 

CALL DADD 

NOV (R4),EinAGE 



;GET LOU ORDER LBN'S IN HOST AREA 

;GET HIGH ORDER 

;FOR DIVIDE BY 2 

.•DITTO 

.SETUP 

.SETUP 

.•CALL DIVIDE 

.•ADD 127 FOR DIV FUNCTION 

.FOR CLEAR 

;FOR ADD 

.•DITTO 

;ADD 

.FOR DIVIDE (128 R6N/RCT BLOCK) 

;FOR STORE 

.POINT TO IT 

;D0 DIVIDE 

:FOR NULT 

.•CLEAR HIGH WORD 

.-FOR DIVIDE 

.•DO NULTIPLY 

;NON-rAD FCT BLOCKS 

:FOR NON-PAD FCT BLOCKS 



.-POINT TO BUFFER 

.-DIAGNOSTIC UORD 

.-STORE IT 

;SET COUNTER 

.'FIRST UORD OF PATTERN 

.-STORE IT 

.-SECOND UORD OF PATTERN 
.•STORE IT 

.-THIRD UJRD OF PATTERN 
.STORE IT 

.'DECRENENT COUNTER 
.•REPEAT TILL DONE 
.-EDC FOR PATTERN 
.-STORE IT 



: SEC/TRACK 

;FOR NULT 

;FOR STORE 

;SET UP FOR NULT 

.-GET LENGTH OF INAGE BLOCK 

.FOR ADD 

; CLEAR HIGH BYTE 
.-SET UP FOR ADD 
.-ADD TO GET ADDRESS 
.GET ADDRESS 
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1 
2 
3 
A 

5 

6 0035A2 

7 003544 

8 003546 

9 003547 

10 003551 

11 003553 

12 003555 

13 003557 

14 003561 

15 003562 

16 003565 

17 003566 

18 003571 

19 003574 

20 003S75 

21 003600 

22 003603 



104207 
104673 
110703 
103203 
104030 
114000 
104204 
104203 
021537 
106300 
033575 
104200 
104200 
003603 
104200 
104200 



001040 
000007 

177400 
000736 
000737 
000736 
001130 

001236 000736 

000011 001235 
000044 001234 

000006 001235 TWO: 
000033 001234 

ISKIP: 



COMPUTE INTERLEAVE FACTOR 



NOV fCR,RO 

NOV REVSEC(R0),R3 

SWAB R3 

BIC #HIBVTE«R3 

NOV R3,TENP 

CLR TENP*1 

NOV «TENP,R4 

NOV «SECTRK,R3 

CALL ONUL 

CNP CUTOF,TENP 

BPL TWO 

NOV «THREB,TBLK 

NOV #44,SKPCNT 

BR ISKIP 

NOV #TyOB.TBLK 

NOV #33.SKPCNT 



POINT TO CHAftACTFRISTICS BLOCK 

GET REVS/SECOND 

GET INTO LOU BYTE 

CLEAR HIGH BYTE 

FOR NULTIPLY 

CLEAR FOR STORE 

SET UP FOR NULTIPLY 

SECTORS/TRACK 

GET SECTORS/SECOND 

WITHIN LINITS ? 

DO BI -LEAVE 

ELSE 00 TRI-LEAVE 

INIT CHECK PASS OFFSET 

SKIP BI -LEAVE SETUP 

DO BI-LEAVE 

JNIT CHECK PASS OFFSET 
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1 
2 
3 
4 
5 
6 
7 



003603 
003605 
003607 
003610 

8 003612 

9 003614 

10 003616 

11 003621 

12 003623 

13 003626 
14 

15 
16 
17 
18 
19 

20 003630 

21 003633 

22 003636 

23 003640 

24 003642 

25 003643 

26 003645 

27 003646 

28 003650 

29 003652 

30 003654 



104207 
104673 
110703 
103203 
104030 
104207 
104670 
114000 
104670 
114000 



104300 
104300 
104204 
104203 
02^503 
104203 
021521 
104642 
107302 
104020 
104140 



001040 
000001 

177760 
001245 
001053 

000010 001241 
001242 

000014 001243 
001244 



001134 
001135 
00073b 
001136 

001463 

000001 
001323 
001156 
001155 



000736 
000737 



FILL IN FCT INFO 

NOV «CR.RO 

NOV FRCPY(R0),R3 

SWAB R3 

BIC #FCLR,R3 

NOV R3,FCTCPY 

NOV #SCR.R0 

NOV FCTS2(R0),FCTFNT 

CLR FCTFNT+1 

NOV RCTSZ(RO)«RCTFNT 

CLR RCTFNT*1 



CONPUTE HIGHEST PBN IN L3N AR 



NOV LBNLBN.TENP 

NOV LBNLBH*1.TENP*1 

NOV «TENP,RA 

NOV «RBNLBN,R3 

CALL DADO 

NOV fONE,R3 

CALL DSUB 

NOV 1(R4),R2 

SUB ST.LBN,R2 

NOV R2.HGHPBN*1 

NOV (R4),HGHPBN 



POINT TO CHARACTERISTICS BLK 

GET F/RCT COPIEf 

GET INTO LOU BYTE 

CLEAR OUT REST OF GARBAGE 

STORE 

POINT TO SU6UNIT CHARACTERISTICS 
GET FCT SIZE IN SECTORS 
CLEAR HIHG ORDER 
GET RCT SIZE 
CLEAR HIHG ORDER 



GET LOW ORDER 
GET liIGH ORDER 
FOR SUB 

POINT TO RBN'S IN LBN AREA 
ADD TO GET HIGHEST PBN 
DITTO 

TO GET ACTUAL PBN NUPBER 
GET HIGH ORDER 

SUBTRACT TO GET RELATIVE LAST BLOCK 

STORE IT 

GET HIGH ORDER 
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SEQ 266 



1 
2 
3 

4 003656 

5 00366T 

6 003663 

7 003665 

8 003667 

9 003670 
10 003672 
n 003674 

12 003675 

13 003677 
U 003701 

15 003704 

16 003706 

17 003710 

18 003712 

19 003714 

20 003716 

21 003717 

22 003721 

23 003722 
24 

25 
26 

27 0037 

28 0037 

29 003730 

30 003732 
003734 

_ 003736 

33 003740 

34 003741 

35 003742 

36 003743 

37 003744 

38 003746 

39 003747 

40 003751 
41 

42 
43 
44 
45 

46 003753 

47 003755 

48 003757 

49 003761 

50 003762 

51 003763 

52 003765 

53 003767 

54 003770 

55 003771 

56 003772 

57 003774 



31 
32 



104200 
114000 
104204 
1042C3 
021537 
104303 
104204 
105034 
104040 
104040 
104200 
114000 
104040 
114000 
■04204 
104203 
021521 
104304 
110604 
104040 



104207 
104673 
103203 
104030 
104030 
104673 
110603 
110603 
110603 
110603 
103203 
115403 
104030 
114000 



104207 
104673 
103203 
053763 
115403 
104201 
105201 
110201 
117403 
053767 
104070 
114000 



000003 000736 
000737 
000736 
001130 

000736 
007321 

001225 
001253 

007775 000736 

000737 

000731 

000732 

000736 

000731 

000736 

001226 



001040 
000002 
177400 
001500 
001502 
000001 



177700 

001477 
001501 



001040 
000001 
177760 



000001 
000000 



000736 
000737 



COMPUTE REVECTOR BUFFER ADDRESS AND HAX REVECTOR COUNT 



MOV flNLEN.TEMP 

CLR TEHP*1 

NOV tfrEMP,R4 

MOV #SECTRK,R3 

CALL DNUL 

NOV TENP,R3 

NOV LINAGE, R4 

ADO R3,R4 

NOV R4,ERRBUF 

NOV R4,ERPNT 

NOV #BNAX.TEN? 

CLR TEMP*1 

NOV R4,D0UNMY 

CLR ODUNNY^I 

NOV #TENP,R4 

NOV fDDUNNY.R3 

CALL DSU8 

NOV TENP«R4 

ROR R4 

NOV R4,ENAX 

STORE RETRY AND RECOVERY LEVELS 



NOV #CR,RO 

NOV ERCV(R0)«R3 

BIC #HIBYTE,R3 

NOV R3,REC0V 

NOV R3.RECTNP 

NOV RTRY(R0).R3 

ROR R3 

ROR R3 

ROR R3 

ROR R3 

BIC «HI2BYTE,R3 

INC R3 

NOV R3, RETRY 

CLR TNPTRY 



SET UP LONG TINEOUT 



NOV 
NOV 

BIC 



INC 

TINL01: NOV 
ADD 

TINLOP: ROL 
DEC 
BNE 
NOV 

CLR 



#CR«RO 

LONGTO(RO) ,R3 

fFCLR.R3 

TIHLOl 

R3 

f1,R1 
«0,R1 
R1 
R3 

TIHLOP 

RO.TENP 

TENP*1 



GET LENGTH Of FORMAT IMAGE BLOCK 
CLEAR FOR STORE 
FOR MULT 
SECTORS/TRACK 

GET LENGTH OF FORNAT BUFFER TABLE 
GET LENGTH 

GET INAGE BUFFER START ADDRESS 

GET START ADDRESS OF REVECTOR BUFFER 

STORE IT 

INIT POINTER 

GET NAX BUFFER ADDRESS 

FOR CLEAR 

STORE BEGINNING ADDRESS 
CLEAR HIGH WORD 
POINT TO ENf ADDRESS 
POINT TO BEGINNING ADDRESS 
SUBTRACT TO GET LENGTH 
GET LENGTH 

DIVIDE BY 2 (LENGTH OF 1 ENTRY) 
STORE AS NAX NUNBER 



.•POINT TO CHARACTERISTICS 
;6ET RECOVERY LEVELS 
: CLEAR HIGH ORDER 
: STORE IT 
;INIT COUNTER 
.-GET RETRY NUMBER 

;SHIFT BY FOUR TO GET INTO LOU ORDER NIBBLE 



; CLEAR HIGH ORDER JUNK 

.ONE NORE BECAUSE OF WRONG INC 

.STORE IT 

.'FOR STORE 



POINT TO COMMON CHARACTERISTICS 

GET LONG TINEOUT IN L062 

CLEAR ALL BUT TIMEOUT 

IF NOT ZERO THEN CONTINUE 

NAKE IT AT LEAST 1 

INIT COUNTER 

CLEAR CARRY 

SHIFT 

DECREMENT SHIFT COUNT 
CONTINUE TILL DONE 
FOR DIVIDE 
CLEAR HIGH yORD 
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SEO 267 



58 003776 

59 004001 

60 004003 

61 004005 

62 004007 

63 004010 

64 004012 
65 

66 
67 
68 
69 

70 004014 

71 004016 

72 004020 

73 004022 

74 004023 

75 004025 

76 004027 

77 004030 

78 004031 

79 004032 

80 004034 

81 004035 

82 004036 

83 004037 
84 

85 
86 
87 
88 
89 

90 004041 

91 004043 

92 004046 

93 004051 

94 0040:^ 

95 004054 

96 004056 

97 004060 



104200 000012 000731 

114000 000732 

104204 000736 

104203 000731 
021565 

104140 001251 

115400 001251 



mv 

CLR 

Roy 
mv 

CALL 

NOV 

INC 



«10.,DDUmY 

DOUHHY^I 

»TENP,R4 

#D0UfmY,R3 

ODIV 

(R4),LT0 

LTO 



104207 
104673 
103203 
117403 
104201 
105201 
110201 
117403 
054027 
104203 
110201 
117403 
054034 
104010 



001040 
000000 
177760 

000001 
000000 



000012 



001252 





SET UP 


SHORT TINEOUT 




NOV 


#CR,RO 




NOV 


SHORTO(R0),R3 




BIC 


#FCLR«R3 




DEC 


R3 




NOV 


#1.R1 




ADD 


#0.R1 


TILOP: 


ROL 


RI 




DEC 


R3 




BNE 


TILOP 




NOV 


#10., R3 


TIL0P1 : 


ROL 


RI 




DEC 


R3 




BNE 


TIL0P1 




NOV 


RI.STO 



:FUR DIVIDE BY 10 
; CLEAR HIGH WORD 

.•DIVIDE BY 10 (UDA RECEIVE TINEOUT) 
;T0 GET VALUE TO USE AS LTO 
;D0 DIVIDE 

; STORE IT FOR US LATER 
;NAKE SURE AT LEAST 1 



.•POINT TO CONN CHAR 

.-GET SHORT TINEOUT WORD 

.•CLEAR WORD 

.FOR LOG CALCULATION 

;INIT COUNTER 

; CLEAR CARRY 

.'ROTATE (NULT BY 2) 

.-DECRENENT COUNTER 

:KEEP GOING TILL DONE 

.•SHIFT COUNT FOR NILSEC CONVERSION 

:GET NUNBER IN NILSECS 

;G0 TILL DONE 

;A6AIN 

.-STORE IT 



SET UP HEADER AND DATA PREANBLE LENGTHS 



104207 001053 

104670 000005 001322 

103200 177400 001322 

104673 000005 
110703 

103203 177400 

104030 001321 
114001 



NOV #SCR,RO 

NOV DATA(RO) .DPREA 

BIC fHIBYTE.OPREA 

NOV HEA0(R0).R3 

SUAB R3 

BIC «HI6YTE.R3 

NOV R3.HPREA 

CLR RI 



.'POINT TO CHARACTERISTICS 8LK 
.'DATA PREANBLE LENGTH 
.'CLEAR OUT HIGH BYTE GARBAGE 
: HEADER PREANBLE LENGTH 
.GET INTO LOU BYTE 
.'CLEAR OUT HIGH BYTE GARBAGE 
.•STORE IT 
;FOR NO ERROR 
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SEQ 268 



1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
U 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 



004061 104203 001053 



004063 
004065 
004067 



004071 
004073 
004075 



004077 
004101 
004102 
004103 
004104 
004105 
004107 



004111 
004113 
004114 
004115 
004116 
004117 
004121 



104637 
103207 
104070 



104637 
103207 
104070 



104637 
110607 
110607 
110607 
110607 
103207 
104070 



104637 
110607 
110607 
110607 
110607 
103207 
104070 



000002 
170377 
001323 



000003 
170377 
001324 



000002 



170377 
001325 



000003 



170377 
001326 



SET UP STARTING ADDRESS BITS 



NOV 


#SCR.R3 


LBN 




NOV 


STLBN(R3),RC 


BIC 


fSTCLR^RO 


NOV 


RO.ST.LBN 


RBN 




NOV 


STRBN(R3) RO 


BIC 


fSTCLR.RO 


NOV 


RO.ST.RBN 


XBN 




NOV 


STXBN(R3),R0 


ROR 


RO 


ROR 


RO 


ROR 


RO 


ROR 


RO 


BIC 


fSTCLR^RO 


NOV 


RO.ST.XBN 


DBN 




NOV 


STDBN(R3)«R0 


ROR 


RO 


ROR 


RO 


ROR 


RO 


ROR 


RO 


BIC 


#STCLR,RO 


NOV 


RO,ST.DBN 



.-POINT TO SU6UNIT CHAR BLOCK 



:GET THE WORD 
; CLEAR THE REST 
.-STORE IT 



;GET RBN WORD 
.•CLEAR THE REST 
; STORE IT 



;GET THE WORD 



;GET INTO THE RIGHT NIBBLE 
.-CLEAR THE REST 
.-STORE IT 



;6ET THE WORD 



;6ET INTO THE RIGHT NIBBLE 
.-CLEAR THE REST 
: STORE IT 
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1 
2 
3 
4 
5 
6 
7 



00A123 
004125 
00A127 
004131 



8 004133 



104203 
104632 
103202 
100632 
000000 



001040 
000002 
177400 
000002 



CLEAR ECC THRESHOLD 



MOV 
NOV 
BIC 
NOV 

RETURN 



#CR,R3 

ERRSYN(R3),R2 

«HIBYTE,R2 

R2,ERRSYN(R3) 



POINT TO CHARACTERISTICS 
GET THE WORD 
CLEAR THE THRESHOLD 
STORE IT BACK 
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SEO 270 



1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
15 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



004134 
004136 
004140 
004143 
004145 
004146 
004147 
004151 
004152 
004153 
004155 
004156 
004157 
004160 
004162 
004165 
004166 
004167 
004171 
004172 
004173 
004174 
004175 
004176 
004200 
004203 
004204 
004205 
004207 
004211 
004213 
004215 
004217 
004220 
004221 
004223 
004224 
004226 
004230 
004231 
004232 
004253 
004234 
004235 
004236 
004240 
004241 
004242 
004244 
004245 
004246 
004250 



104205 

114000 

104200 

104302 

022642 

054307 

104203 

104237 

104231 

104302 

060004 

115001 

014167 

115400 

106300 

074307 

004147 

114000 

104231 

104137 

060005 

115001 

014205 

115400 

106300 

074307 

004147 

114000 

104204 

104641 

103201 

106301 

074307 

054224 

104202 

004274 

104643 

103203 

110703 

110603 

110603 

110603 

110603 

114007 

102203 

014252 

115407 

102203 

014252 

115407 

102203 

014252 



001264 
001476 

000001 000740 
000740 



000742 
00U740 



000717 

001477 000717 



FIND SDI INTERCONNECT FOR DESIRED UNIT 



6ETUNT: 
G0VER1 : 
COVER: 



000717 



001476 

001477 001476 



001476 
001031 
000000 
170000 
000741 



000001 

000000 
007777 



GSKIP1 



GSKIP2: 



GSKIP3: 



000002 
000004 
000010 



MOV 


#DNBUF,R5 


CLR 


COUNT 


NOV 


»^ .UNIT 


MOV 


UNIT,R2 


CALL 


STATVL 


BNE 


NOTHER 


MOV 


#CR.6ST,R3 


MOV 


(R3)^,R0 


MOV 


(R3)«^,R1 


MOV 


UNIT,R2 


XFC 


SEND 


TST 


R1 


BEO 


GSKIP1 


INC 


UN.ERI 


CMP 


RETRV.UN.ERI 


BMI 


NOTHER 


BR 


GOVER 


CLR 


UN.ERI 


MOV 


(R3)*«R1 


NOV 


(R3).R0 


XFC 


RCV 


TST 


R1 


BEQ 


GSKIP2 


INC 


COUNT 


CMP 


RE TRY, COUNT 


BNI 


NOTHER 


BR 


GOVER 


CLR 


COUNT 


NOV 


fST,R4 


NOV 


UI0(R4),R1 


BIC 


fHD.CLR.RI 


CNP 
BMI 


UNN0.R1 
NOTHER 


BNE 


GSKIP3 


NOV 


#1,R2 


BR 


GDONE 


MOV 


NASK(R4),R3 


BIC 


«L3«R3 


SVAB 


R3 


ROR 


R3 


ROR 


R3 


ROR 


r1 


ROR 


R3 


CLR 


RO 


BIT 


«BIT1.R3 


BEQ 


GSKIP 


INC 


RO 


BIT 


«GIT2.R3 


BEQ 


GSKIP 


INC 


RO 


BIT 


«BIT3,R3 


BEQ 


GSKIP 



;POINT TO STARTUP INFO 

;FOR INTERCONNECT iNIT 

:1NIT INTERCONNECT 

:GET INTERCONNECT INTO R2 

;ANV DRIVE THERE ??? 

:NOPE - TRY NEXT ONE 

;FOR GET STATUS 

:6ETC0MNAND ADDRESS 

;GET CONNAND SIZE 

;GET INTERCONNECT 

; ISSUE GET STATUS CONNAND 

.SUCCESSFUL ? 

;YUP - SKIP RETRY 

;INC COUNT 

;DONE ALL RETIES ? 

;VUP 

;FOR ERROR CLEAR 
;SET RECEIVE BUfFRE 
:GET BUfFER LENGTH 
.•RECEIVE SDI RESPONSE 
SUCCESSFUL ? 
,yUP - SKIP RETRY 
;INC ERROR COUNT 
.DONE AU RETRIES ? 
;YUP 

.-TRY AGAIN 

;FOR COUNT CLEAR 

.•POINT TO STATUS BUFFER 

.-GET UNIT NUMBER FROM STATUS 

.CLEAR GARBAGE 

*IS IT Tl^ ONE "* 

;NOT EVEN A POSSIBLE SUBUNIT 

:N0 - SEE IF A SUBUNIT 

;SET SUBUNIT MASK 

:AND EXIT 

;GET SUBUNIT MASK 

.-CLEAR GARBAGE 

.-GET INTO LOy BYTE 

:T0 GET IN LOW NIBBLE 

;T0 GET IN LOU NIBBLE 

;T0 GET IN LOU NIBBLE 

;T0 GET IN LOU NIBBLE 

.CLEAR COUNTER 

.•ANYTHING THERE ? 

.-NOPE - ONLY 1 

;YUP - INCREMENT COUNTER 

.-ANYTHING HERE ? 

.-NOPE - ONLY 2 

;INC OUNTER 

.ANYTHING HERE ? 

.-NOPE 
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58 004251 

59 004252 

60 004253 

61 004255 

62 004256 

63 004260 

64 004262 

65 004264 

66 004265 

67 004267 

68 004271 

69 004272 

70 004273 

71 004274 

72 004276 

73 004277 

74 004300 

75 004301 

76 004302 

77 004304 

78 004306 

79 004307 

80 004311 

81 004312 

82 004314 

83 004316 

84 004320 

85 004322 

86 004323 

87 004325 

88 004327 



115407 
105071 
107301 
074307 
104303 
104641 
103201 
107013 
104202 
105202 
110202 
117403 
054271 
105202 
110202 
110202 
110202 
110202 
104020 
101020 
000000 
104302 
105022 
104020 
114000 
114000 
106202 
034143 
104652 
104201 
022542 



000741 

000741 
000000 
170000 

000001 
000000 



000000 



001021 
001026 

000740 

000740 
000717 
001476 
000010 

000002 
000007 



INC 

GSKIP: ADD 
SUB 

Bni 

MOV 
MOV 
BIC 
SUB 
MOV 
ADD 

SFTRPT: ROL 
DEC 
BNE 

6D0NE: ADD 
ROL 
ROL 
ROL 
ROL 
MOV 
BIS 

RETURN 
MOTHER: MOV 
ADD 
MOV 
CLR 
CLR 
CMP 
BPL 
MOV 
MOV 
CALL 



RO 

RO.RI 

UNNO.RI 

NOTHER 

UNN0,R3 

UID(R4),R1 

«HD.CLR,R1 

R1,R3 

#1,R2 

#0,R2 

R2 

R3 

SFTRPT 

«0,R2 

R2 

R2 

R2 

R2 

R2.GSR«1 
R2,ACC«1 

UNIT-R2 

R2.R2 

R2,UNIT 

UN.ERI 

COUNT 

#8.,R2 

G0VER1 

2(R5).R2 

#7.R1 

ERRHNT 



SEO 271 



YUP 

ADD TO UNIT NUMBER 

GET RELATIVE OFFScT FROM GIVEN UNIT NUMBER 

IF NEGATIVE THEN NOT IN THE RANGE 

GET DESIRED 

GET ORIGINAL 

CLEAR SUBUNIT MASK 

FIGURE OUT WHICH SUBUNIT 

INIT SUBUNIT MASK 

TO CLEAR CARRY 

SHIFT LEFT 

DECREMTN COUNTER 

REPEAT SHIFT 

CLEAR CARRY 

HAVE TO ROTATE 

4 TIMES TO DO A 

SWAP NIBBLE 

FOR SUBUNIT MASK 

STORE MASK IN SUBUNIT CHAR COMMAND 
SET IN FOR CHANGE MODE COMMAND 

RETURN 

GET CURRENT INTERCONNECT 
NEXT PORT 
;SAVE BACK 
FOR RESTORE 
CLEAR ERROR COUNT 
ALL DONE ? 

;NOPE - TRY THIS INTERCONNECT 
;UNIT SEARCHING FOR 
rSIGNAL NON-EXISTANT UNIT 
; ERROR RETURN 
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1 
2 
3 
4 

5 004330 

6 004332 

7 004333 

8 004334 

9 004335 

10 004336 

11 004337 

12 004340 



104302 
022331 
024134 
022323 
021657 
022146 
023036 
000000 



000740 



INITIALIZATION ROUTINE 



INITL: 



MOV 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

RETURN 



UN|T,R2 

INITIT 

GETUNT 

ONLIN 

6STATS 

RECAL 

CONINT 



; SELECT UNIT 
;INIT DRIVE 

:GET THE SDI INTERCONNECT 

;BRING IT ONLINE 

;GET STATUS 

; RECALIBRATE 

.-COMPUTE DISK CONSTANTS 

;AND STOP 



UDAFM 


UDA FORMATTER ONACR X04.01 23-AUG-82 U:02:32 


DBN/XBN 


FORMAT 


OVERLAY 


(F1) 








1 
2 












.SBTTL 


3 
A 
S 












FORMAT 


6 
7 
8 

Q 


0043A1 










DMOVLY 


V 

1 A 

10 


003023 


104200 


000000 


001154 




NOV 


1 1 


003026 


101200 


000010 


001220 




BIS 


12 


003031 


023070 








CALL 


13 


003032 


104303 


001312 






NOV 


IH 


003034 


107303 


001240 






SUB 


15 


003036 


105303 


001450 






ADD 


16 


0030A0 


104030 


001315 






MOV 


1 r 


0030A2 


114000 


001450 






CLR 


i o 

IS 


0030AA 


104300 


001240 


001312 




MOV 


IV 


003047 


103200 


000010 


001220 




BIC 


OA 


003052 


023070 








CALL 


d 1 


003053 


104303 


001312 






NOV 


2c 


003055 


107303 


001240 






SUB 


OT 


003057 


105303 


001450 






ADD 


2h 


003061 


1 04030 


001316 






NOV 


25 


003063 


114000 


001450 






CLR 


26 


003065 


104201 


000006 






NOV 


27 

OB 


003067 


022403 








CALL 


2o 
oo 


003070 


104207 


001053 




DXFORM: NOV 


30 


003072 


102200 


000010 


001220 




BIT 


31 


003075 


013145 








BEQ 


32 


003076 


104673 


000022 






MOV 


33 


003100 


110703 








SWAB 


3A 


003101 


103203 


177400 






BIC 


33 


003103 


104030 


001455 






MOV 


36 


003105 


102200 


002000 


001220 




BIT 


57 


003110 


053140 








BNE 


30 


0031 1 1 


104200 


000200 


001475 




MOV 


3t 


0031 14 


114000 


001257 






CLR 


/ A 


003116 


023341 








CALL 


•tl 


003117 


104200 


005152 


001224 




MOV 


zo 

HC 


003122 


104300 


005170 


001240 




NOV 


h3 


003125 


104300 


005170 


001312 




MOV 


/ / 
HH 


003130 


013135 








BEQ 




003131 


1 1 5400 


001257 






INC 


h6 


0031 33 


023341 








CALL 


/ 7 


003134 


003140 








BR 


/ fi 
HO 


0031 35 


101200 


000002 


001220 


SICIP19: 


BIS 




003140 


104200 


140000 


001457 


SKIP4: 


NOV 


CA 
>0 


003143 


023355 








CALL 


CI 

51 


003144 


003154 








BR 


CO 

52 


003145 


104200 


M MAMMA 

120000 


001457 


XBNIT: 


NOV 


53 


0031 50 


104670 


000021 


001455 




NOV 


5h 


AAT1 CT 

003153 


A01/ AC 








CALL 


cc 


003154 


104140 


001120 




SKIPl : 


NOV 


56 


003156 


104240 


001114 






NOV 


57 


003160 


104140 


001121 






NOV 



N S 

46 



.£0 273 



DBN/XBN FORMAT OVERLAY (F1) 



DBN AND XBN AREAS 



F1, START 

#F1,CUR0VL 

«DBN,FLAG 

DXFORN 

FCTREV.R3 

FCNT,R3 

ERRCNT,R3 

R3,DBBAD 

ERRCNT 

FCNT,FCTREV 

#DBN,FLAG 

DXFORN 

FCTREV.R3 

FCNT.R3 

ERRCNT. R3 

R3,XBBAD 

ERRCNT 

«F3,R1 

NEXT 

fSCR.RO 

fDBN.FLAG 

XBNIT 

DBNCYL(R0),R3 
R3 

#HI6YTE.R3 
R3.CNTCYL 
#BSTGS«FLA6 
SKIP4 

#128..PCNT 

FCTCNT 

DXFCPG 

#PBNBUF,BADPBN 

PBNBUFKS12,FCNT 

PBNBUFK512.FCTREV 

SKIP19 

FCTCNT 

DXFCPG 

SKIP4 

#FCTENT,FLAG 
«HD.DBN,HD.CUR 
NUNDBN 
SKIP1 

#HD.XBN,HD.CUR 

XBNCYL(RO),CNTCYL 

NUNX6N 

(R4).H0LDBN 

(R4)>.CURBN 

CR4).H0LDBN4-1 



OVERLAY »^ 
SET DBN FORNAT 
FORNAT DBN AREA 
STARTING FCT ENTRf COUNT 
TOTAL BAD IN DBN AREA 
GET FINAL TOTAL 
STORE IT FOR STATS 
FOR CLEAR 

FOR BAD BLOCK COUNT 

DO XBN AREA 

FORNAT XBN AREA 

STARTING FCT ENTRY COUNT 

TOTAL BAD IN XBN AREA 

GET FIN#.L TOTAL 

STORE r. FOR STATS 

FOR CLEAR 

FCT DLL OVERLAY 

BRING IN NEXT OVERLAY 



POINT TO CHARACTERISTICS BLOCK 

DO DBN AREA ? 

NO - DO XBN AREA 

GET NUMBER OF CYLS TO FN 

GET INTO LOU BYTE 

CLEAR HI BYTE 

SET UP COUNTER 

DOING BEST GUESS ??? 

YES - SKIP FCT SET UP 

FOR PBN COUNT INIT 

FOR INIT FCT READ 

READ IT IN 

ADDR OF BAD PBN LIST 

GET COUNT OF USED ENTRIES 

STORE IT FOR STAT COMPUTATION 

IF ZERO > THEN NO ENTRIES 

START UITH SECOND FCT BLOCK 

BRING IT IN 

SKIP NO ENTRY STUFF 

SET EMPTY FLAG 

GET DBN HEADER CODE 

GET DBN OF FIRST BLOCK ON LAST CYLINDER 

SKIP XBN SETUP 

GET XBN HEADER CODE 

GET CYLINDERS IN XBN AREA 

GET XBN OF FIRST BLOCK ON LAST XBN CYL 

LO ORDER FIRST BLOCK NUM TO DO 

AND MAKE IT CURRENT NUMBER 

HI ORDER FIRST BLOCK NUM TO DO 



UOAFH • 
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DBN/XBN 


rnDMAT 


nUPDI AY 


f F1 ) 








58 


\J\Jj 1 Oc 


10^1^0 
1 UH 1 HU 


001 IIS 






MOV 

nv » 


59 




ioA?n7 


00105? 

VV 1 v^^ 




SLEEK ■ 


MOV 

nv » 


60 




10^^70 


vvvl/vC 


001461 

VV 1 *tu 1 




MOV 


61 


nn?i 71 


in??oo 


177 A 00 


001461 

VV 1 "tW 1 




BIC 


62 


nnxi74 

W3 11'* 




WW 1 *tw 1 


001^60 

VV 1 *tOv 




MOV 


63 


00'?177 

VVJ Iff 


117400 


WW 1 "f WW 






DEC 


6A 




1 w*t J V V 


001 1 ?A 

WW 1 1 CO 


001077 

VV 1 Vf ■ 


SLEEK?- 


MOV 

nw w 


65 






001 1?7 

WW 1 1 C ■ 


001100 

WV 1 1 VV 




NOV 

nv w 


66 




104?00 


001460 

Vw 1 *VOw 


001101 

VV 1 1 V 1 




MOV 


67 


00 VI? 


0???4? 








CALL 


68 


00'??!^ 


1 1 5001 








TST 


69 


00'^? 1 A 

\JvjC I H 


07???A 








BMI 


70 




104507 


00105? 

WW 1 w^«# 






MOV 


71 


00?? 17 


10467? 


00000? 

www J 






MOV 


72 


00??? 1 




1 77400 

1 f f "VVV 






BIC 


75 


00???? 


1040?0 


00146? 

VV 1 HUC 






MOV 

nv w 


7A 


00???S 


1 1 7A0? 








DEC 

Vb \« 


75 


00???A 


1040?0 


001 11? 

VV 1 1 1 J 






MOV 

nv » 


76 


oo???o 

wv 


104?01 


000047 

WW VW^ r 




SKIP3: 


MOV 


77 


00???? 

VV 


0??4?5 








CALL 


78 


00???? 


104?04 


001322 




SKIP7: 


MOV 


79 


00???5 


10A?0? 


001 1?1 

WW 1 1 






MOV 


80 


00???7 


10A?07 


00 1 320 

WV 1 ^cv 






MOV 

nw w 


81 


00??41 


104?01 


00111? 

VV 111*^ 






MOV 


82 


00??4? 


104?0? 


000740 

WV r ^ V 






MOV 

nv » 


83 


oo??^s 


1 0^?05 


007321 

WWr 1 






MOV 

nv w 


84 


00??A7 


UOvvv 1 








AT V 


85 


00??S0 


1 1 S001 








TST 


86 


00?? SI 


01??64 








BEQ 

WWW 


87 


00??5? 


1 1 5400 


000717 






INC 


88 


00?? 54 


106?00 


001477 

WW 9^1' 


00071 7 

VVV* 1 • 




CMP 


89 


003257 


073330 

W» WJ^W 








BMI 


90 


00??&0 


022362 








CALL 


91 




022234 








CALL 


92 


00??6? 


022242 








CALL 


93 


00326? 


003233 








BR 


9A 




114000 


000717 




SKIP6: 


CLR 


95 


00??66 


023431 


001113 






CALL 


96 




1 1 7400 

i 1 • ^ww 






DEC 

Ir l» V 


97 


00??71 


104204 

1 w~t w^ 


001 1 20 

VV 1 I bV 






MOV 


98 


003273 


104203 

1 W^fcW^ 


001130 

W 1 I ^V 






MOV 


99 


003275 


021521 








CALL 


100 


003276 


104300 

1 W^WWW 


001120 


001114 




NOV 


101 


003301 


104300 

1 w~^wW 


001121 

VV 1 I fa I 


001115 

VV ■ 1 1 ^ 




MOV 


102 


00??04 


117400 

1 1 • ^Ww 


001462 






DEC 


103 


00??06 


053230 








BNE 


104 


003307 


117400 

1 1 ■ ^Ww 


001460 

VV 1 ~ w 






DEC 


105 


003311 


117400 

Www ^ Vw 


001461 

VV I 1 






DEC 


106 


003313 


053201 








BNE 


107 


003314 


117400 

• If ^ww 


00145S 






DEC 


108 


003316 


060022 








XFC 

f%w V 


109 


00?317 


104204 


001 1 26 

VV 1 1 faW 






NOV 

nw » 


110 


003321 


104203 


001463 






NOV 


111 


003323 


021521 








CALL 


112 


003324 


115000 


001455 






TST 


113 


003326 


053164 








BNE 


1U 


003327 


000000 








RETUR 
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46-1 



(R4),CURBN*1 
«SCR.RO 

GRPCYL(RO),GRPCNT 
#HIBYTE.GRPCNT 
GRPCNT.CURGRP 
CURGRP 

CYLNUM,ISEEK*1 

CYLNUN*1,ISEEK4^2 

CURGRP, I SEEK4>3 

SEEK 

R1 

^KERR 
^CR.RO 

.»^ICGRP<R0),R3 
#HIBYTE,R3 
R3,TRICCNT 
R3 

R3,CURTRK 

#67.R1 

PAGE 

DPREA,R4 

HPREA,R3 

INSTAR.RO 

CURTRK.R1 

UNIT,R2 

#INAGE,R5 

FORMAT 

R1 

SKIP6 
UN.ERI 

RETRY^UN.ERI 

FERR 

INITPT 

CLEAR 

SEEK 

SKIP7 

UN.ERI 

DXCHEC 

CURTRK 

fH0LDBN«R4 

«SECTRK«R3 

DSUB 

HOLDBN.CURBN 

H0LDBN*1«C( HBN^I 

TRKCNT 

SKIP3 

CURGRP 

GRPCNT 

SLEEK2 

CNTCYL 

UPDATE 

fCYLNUN,R4 

#0NE,R3 

DSUB 

CNTCYL 

SLEEK 



;AND MAKE IT CURRENT NUMBER 
.POINT TO CHARACTERISTICS BLK 
;L0AD GROUPS/CYL 
.•CLEAR OUT HIGH GARBAGE 
;GET GROUP NUMBER BY 
.•DECREMENTING 

.GET LO ORDER WORD OF CYLINDER NUMBER 
.•LOAD HIGH ORDER WORD OF CYL NUN 
;lOAD group NUNBER 
:SEEK TO CURRENT CYL NUN 
:ANY ERRORS ? 
;YUP - QUIT 

.•POINT TO CHARACTERISTICS BLOCK 
.-LOAD TRACKS/GROUP 
.•CLEAR OUT HIGH GARBAGE 
.•STORE IN COUNTER 
.•TRACK NUNBER IS ONE LESS 
.•RESET CURRENT TRACK NUMBER 
.•FORMAT SETUP OVERLAY 
;D0 IT 

.-DATA PREAMBLE LENGTH 

.•HEADER PREAMBLE LENGTH 

.•POINT TO FORMAT IMAGE START POINT 

.•TRACK TO FORMAT 

:SDI INTERCONNECT 

.•RECIRCULATION POINTER 

.•FORMAT THE TRACK 

.-ANY ERRORS ? 

:N0 - CO CHECK PASS 

.•INCREMENT IT 

.•DONE ALL RETRIES ? 

;YUP - ERROR 

;RE1NIT 

.•DRIVE CLEAR 

.-RE-SEEK AND GROUP SELECT 
.•RETRY FORMAT 
;FOR STORE 
;D0 CHECK PASS 
: DECREMENT IT 

.PREPARE FOR BEGINNING BLOCK DECRENENT 
.•DECRENENT BY SECTORS/TRACK 
;D0 DECRENENT 

;L0 ORDER NEW BLOCK NUNBER 

;HI ORDER NEW BLOCK NUNBER 

: DECREMENT IT 

; NO - DO NEXT TRACK 

.•DECRENENT GROUP NUNBER 

.DECRENENT IT 

;N0 - DO NEXT GROUP 

•DECREMENT IT 

•UPDATE PROGRESS INDICATOR 
.PREPARE FOR CYL NUN DECRENENT 
.•DECRENENT BY ONE 
;D0 SUBTRACT 
;ARE UE DONE ? 

;DONE ? NO - DO NEXT CYLINDER 
;YES - ALL DONE 



UOAFH ' UDA FORMATTER DHACR X04.01 23-AUG-82 14:02:32 PAGE 46-2 
DBN/XBN FORMAT OVERLAY (F1) 



115 003330 

116 003331 

117 003333 

118 003334 

119 003336 

120 003340 



104012 
104201 
003340 
104302 
104201 
022542 



000010 

001126 
000012 



FERR: NOV 
NOV 
BR 

SKERR: NOV 
MOV 
DXERR: CALL 



R1.R2 

#8.,R1 

DXERR 

CYLNUN.R2 

#10.,R1 

ERRNNT 



;GET XFC FAILURE CODE 
;SET FORNAT ERROR 

.•CYLINDER WHICH FAILED ON 
:SEEK ERROR 
; ERROR RETURN 



D 6 



UOAFH - UD^ FORMATTER DMACR XO .01 23-AU6-82 U:02:32 PAGE A7 
DBN/XBh FORMAT OVERLAY (F1) 



SEO 27t 



1 
2 
3 

A 0033A^ 

5 0033A2 

6 00334A 

7 003345 

8 003350 

9 003353 
10 003354 
11 

12 
13 
14 
15 
16 

17 003355 

18 003357 

19 003360 

20 003362 

21 003364 

22 003366 

23 003370 

24 003372 

25 003373 

26 003375 

27 003377 

28 003401 

29 003403 

30 003404 
31 

32 
33 
34 
35 
36 

37 003405 

38 003410 

39 003412 

40 003414 

41 003416 

42 003417 

43 003421 

44 003423 

45 003425 

46 003427 

47 003430 
48 

49 
50 
51 
52 

53 003431 

54 003432 

55 003434 

56 003^36 

57 003441 



104201 
02243S 
104200 
104200 

000000 



104673 
110703 
103203 
104030 
114000 
104204 
104203 
021537 
104641 
105301 
100641 
104203 
021521 
000000 



104670 
114000 
104204 
104203 
021537 
104641 
105301 
100641 
104203 
021521 
000000 



114000 
114000 
102200 
013454 



000033 

000200 
005152 



000022 

177400 
000736 
000737 
000736 
001132 

000001 
001326 
C00001 
001130 



000021 
000737 
000736 
001132 

000001 
001325 
000001 
001130 



001227 
001222 
000600 



PAGE IN NEU FCT BLOCK 



OXFCPG: PUSH 
NOV 
CALL 

001476 KOV 
001224 NOV 
POP 

RETURN 



RO 

«G2,R1 
PAGE 

«1 28., COUNT 
«PBNBUF,BAOPBN 

RC 



;DLL OVERLAY 
.-EXECUTE OVERLAY 
;FOR INIT 

:FOR POINTER RESET 
.•RESTORE RO 
.•RETURN 



COMPUTE NUMBER OF FIRST DBN ON LAST DBN TRACK 
RO -> CHARACTERISTICS BLOCK 



NUMOBN: MOV 
SWAB 
BIC 
MOV 
CLR 
MOV 
MOV 
CALL 
MOV 
ADO 
MOV 
MOV 
CALL 
RETURN 



DBNCYL<RC),R3 
R3 

irHIBYTE,R3 

ft3.TEHP 

TEMP+1 

«TENP.R4 

#SECTCY.R3 

OMUL 

1(R4).R1 

ST.DBN.RI 

R1,1(R4) 

fSECTRK,R3 

DSUB 



.GET NUMBER OF CYLINDERS IN DBN AREA 

;GET INTO LOW BYTE 

.CLEAR OUT OTHER INFO 

.'MOVE TO TEMP AREA 

; CLEAR FOR STORE 

:POINT R4 AT TEMP AREA 

.-POINT 70 NUN OF SECTORS/CYLINDER 

.NULTIPLY TO GET SECTORS BEFORE LAST CYL 

.GET HIGH ORDER 

;ADD HIGH ORDER STARTING DBN 

.'STORE BACK 

.•WANT FIRST DN OF LAST TRACK 
;SUB TO GET IT 



CONFUTE NUHBER OF FIRST XBN ON LAST XBN TRACK 
RO -> CHARACTERISTICS BLOCK 



000736 NUNX6N; NOV 
CLR 
NOV 
NOV 
CALL 
NOV 
ADD 
NOV 
NOV 
CALL 
RETURN 



XBNCYL(R0},TENP 

TENP^I 

fTENP.R4 

fSECTCY.R3 

DNUL 

1(R4)«R1 

ST.XBN.RI 

R1.1(R4) 

#SECTRK«R3 

OSUB 



;GET NUMBER OF CYLINDERS IN XBN AREA 
.•CLEAR FOR STORE 
.•POINT TO TENP AREA 
.•POINT TO SECTORS/CYLINDER 
.•NULTIPLY TU GET SECTORS IN XBN AREA 
.'GET HIGH ORDER 
.-ADD HIGH ORDER STARTING XBN 
.•STORE BACK 

:UANT XBN OF LAST TRACK 
;SUB TO GET IT 



CHECK PASS 



DXCHEC: PUSH 
OXCH: CLR 
CLR 

001220 BIT 
BEQ 



RO 
ERR 

ERFLAG 

fMANU^DLL.FLAG 
CSKIP 



:SAVE PTR TO CHARACTERISTICS BLK 

;FOR ERROR COUNT RESET 

.•CLEAR RE-FORHAT FLAG 

;FCT AVAILABLE ? 

;N0 - DO EXTENSIVE READ 



UOAFH - UDA FORHATTER DHACR XOA.Ot 23-AJG-82 U:02:32 





nuFDI AV 
UVCnLA T 


^ r 1 / 










in4?no 


nnonm 


Ott1457 

Uw 1 '^jC 




nuv 




in4?no 


000005 


001455 




nuv 






001455 


001454 




MOU 


Dl WjtJJ 


0054A5 








On 






000005 


001457 




Mfll/ 
nuv 






000074 


001455 

Uw 




nuv 


^ OtWLtO 


104500 


001455 


001454 




nuv 




074001 






rcif Tpp ■ 
k i r c • 






104507 


000740 




rCKIPl • 


MOV 

nwT 




060017 

vQW 1 C 












104500 


001 1 50 


001451 

WW 1 *ff ^ 1 






^0 Citi\L7L 


1 04705 


006671 






nuv 


70 Ofl^7ft 

f w W J** > O 


104707 


000771 




AGAIN • 


MOV 
nuv 




104655 


000007 
UvUv/vc 






Mnu 

nuv 




015565 








DCU 


' J W3JVJ 


100675 


000004 






Mnu 
nuv 




104655 


000000 






MOV 
nuv 


7S 00)^07 


100675 


000007 






MOV 
nuv 




104655 


000001 

UwwW 1 






nuv 


77 00551? 


100675 








MOV 
nuv 


78 005S15 


104705 


004555 






MOV 
nuv 


7Q On5'i17 


100675 


000001 






Mnu 

nuv 


80 00l5'1 


104705 


000776 

vvvf CO 






MOV 
nuv 




100675 


000005 






Mnu 
nuv 


87 005S7S 


104707 


100771 






Mnu 

nuv 


BY A0TS77 

WjJCf 


104705 


1 00000 






Mnu 

nuv 




100675 


000000 






Mnu 
nuv 


85 00?5lii 


06000? 










8A 00^5^ 


115001 








191 


Of W3JJJ 


055550 








RMF 
one 


88 00555A 


104507 


000771 






Mnu 

nuv 


89 005540 


107707 


010000 






RIT 
Dl 1 


90 00554? 


055550 








PMC 
Dive 


91 005543 




001440 






MOV 


9? 005545 










Ir 


95 005541^ 


115001 








TST 

1 w 1 




01 5565 








RFO 


95 005550 










OA OOlSSO 


104655 


000005 

UWWJ 






MOU 

nuv 


97 00555? 


104154 








MOU 

nuv 


98 005555 


102?04 


020000 






AIT 

Dl 1 


99 003555 


053565 








Dnu 


100 005556 


101704 


070000 

vCWW 






Dl w 


101 005560 










MOV 
nuv 


10? 005561 


1 1 ^"t w 


001777 

W 1 CC t 








105 005565 


1 1 ^"tW 


001470 








104 0O556S 


105705 


000004 

WWWWVM 






Ann 


105 005567 


117400 


001451 

WW 1 "t^ 1 




npr 




055476 








RMF 
one 


107 00557? 


117400 








npr 

UC L 


108 005574 










RMF 
one 


109 005575 


115000 


001 ??7 






T5T 

1 w 1 


110 005577 


013777 






RFO 
DCW 


111 003600 


104204 


007321 






NOV 


112 003602 


104143 






HERE: 


nov 


113 003603 


102203 


020000 




BIT 


114 003605 


013733 








BEQ 



E 6 

PAGE 47-1 



SEO 27? 



«5,N1 

N1,NN1 

CSKIP2 

#3-111 

#20., N1 

N1,NN1 

FIXIT 

UNIT.R2 

SIP 

SECTRr,SECCNT 

#CHDBUF,R5 

#RDBLK,RO 

R6.CN0(R5),R3 

NOERR 

R3,RU.CND(R0) 

RB.L0U(R5),R3 

R3,RU.LOU(R0) 

RB.HI(R5),R3 

R3,RU.HI(R0) 

#RDBUF,R3 

R3,RU.BUF(R0) 

#HSLIH-1,R3 

R3«RU.DUn(R0) 

#<BIT1S!RDBLK>,R0 

fRDCPI0,R3 

R3.RU.STAT(R0) 

READ 

R1 

RRERR 

RDBLK,RO 

#ECCF,RO 

RRERR 

fNUH^RO 

C«POAT 

R1 

NOERR 

RB.IH(RS),R3 

(R3)«R4 

fBD.R4 

NOERR 

fB0,R4 

R4.<R3) 

ERR 

RTYCNT 

#RDLEN,R5 

SECCNT 

AGAIN 

N 

CSKIP1 

ERR 

CDONE 

#INAGE,R4 

(R4)«R3 

#BD,R3 

CSKIP7 



S^T UP FOR STORE 
SET UP 

SAVE FOR LATER RESET 
SKIP EXTENSIVE READ SETUP 
EXTENSIVE REGULAR READ 
EXTENSIVE ERROR READS 
SAVE FOR LATER RESET 
DO IT 

SDI INTERCONNECT 

SYNCH WITH SEC TOR/ INDEX PULCf 

LOAD SECTORS/TRACK 

POINT TO COmAND BUFFER 

POINT TO READ COMMAND PLOCK 

ZERO COmANO ? 

YES - SKIP CHECKS 

ELSE STOhE IT 

GET LOW RODER BLOCK NUMBER 

STORE IN COMMAND BLOCK 

LOAD HIGH ORDER BLOCK NUMBER 

STORE IN COMMAND BLOCK 

GET CUFFER POINTER 

STORE IN COMMAND BLOCK 

POINTER TO DUMMY SDI BLOCK 

STORE IT IN READ BLOCK 

HAKE SURE POINTING AT BLOCK 

RESET STATUS POINTER 

STORE IT BACK 

READ 1 SECTOR 

ANY ERRORS ? 

YES - UH OH 

GET STATUS UORD 

ANY ECC ERROR ? 

YUP - HARK AS BAD FOR NOW 

POINT TO COMPARE BLOCK 

DO DATA COMPARE 

ANY ERROR IN COMPARE ? 

NOPC • CONTINUE LOOP 

GET POINTER TO IMAOE 
GET BUFFER POINTER WORD 
ALREADY MARKED BAD ?? 
YUP - DON'T COUNT AGAIN 
FLAG AS BAD 
STORE BACK 

INCREMENT ERROR COUNT 
INC COUNTER 

POINT TO NEXT READ CMD BLOCK 

DECREMENT COUNTER 

NO - DO NEXT SECTOR 

DECREr^NT COUNTER 

NO - REPEAT TRACK READ AND COMPARE 

ANY ERRORS ? 

NO - ALL DONE CHECK PASS 
POINT TO IMAGE BUFFER 
GET BUFFER POINTER WORD 
IS IT BAD 
NO - SKIP IT 



F 6 



UDAFM - 


UDA FORPiATTER DHACR X04 


.01 23-AU6-82 14 


:D2: 32 PAGE 47-2 


DOM /y All 


FORWAT 


OVERLAY 


(F 1 ) 










1 1 J 


003606 


104643 


000002 






nov 


C T U t /By \ B7 

r T.Hl(li4l ,r3 


11A 


003610 


103203 


AA7777 

OOfffr 






Die 


HI A B7 

fL0,R3 


117 


003612 


106303 


AA1 y C7 

00143^ 






CnP 


UH ^IIB B7 

H0.C0R«R3 


118 


003614 


nC7777 

053/33 








BNC 


rev tB7 
CSKlrr 


119 


003615 


1 Ay VA1 

104302 


AAA7y A 

000/40 






nOV 


IIUffT BO 

UNI T «Rc 


IPO 


003617 


AXAA1 ^ 

060012 








Xr C 


C f D 
Sir 


1?1 


003620 


iC'4207 


AAA701 

000721 






PN/V 


JiBABI y BA 


1?? 


003622 


1 Ay OAT 

104203 


AAA70Z 

000 /26 






MAU 

nOV 


MtiCt IM.i BT 

•n5Lin*1 ,R3 


1?5 


003624 


-t AA^7T 

1006' 3 


AAAAAC 

Q00003 






MAU 

nOV 


B7 BLI AIIH/DA\ 

R3«RW»D0niRU/ 




003626 


i Ay d,i X 

104643 


AAAAAi 
000001 






nOV 


i / BZ \ Be 

1 lR4> «R3 


1 


003630 


i AAA7Y 
10060 


AAAAAO 
000002 






MAU 

nov 


D7 BU 1 AUfBA% 

R3«NI( .LOW \ROI 


1 CO 


003632 


4 Ay ^ y v 

104643 


AAAAA"^ 

000002 






MAU 
FIOV 


O / B/ \ B7 

clR4) ,R3 




003634 


1006^3 


AAAAAT 
000003 






MAU 

nOV 


B7 BU U I /DA\ 

R3«RH«nl \R0/ 


1 CO 


('03636 


1 AZ OA1 

104203 


AAZC7C 

004333 






MAU 


wRDBUf #n3 


129 


003640 


1006'3 


AAAAAI 
000001 






MAU 


a7 BU BIIC/BA\ 

R3»RU.B0F iROl 


1?0 


003642 


4 Ay OA7 

104203 


A1 7y Aa 
01 3400 






MAU 


AlBLirMA B7 

#RUCnD,R3 


1?1 


003644 


1 A/ VA4 

104301 


AA4 H 7 
001113 






MAU 

nov 


niBTBV BI 

C0R1RK«R1 




003646 


4 A4A4 7 
101013 








Bff C 

BIS 


Bi b7 
Rl *R3 




00jO4f 


1 AAZ77 

1006'3 


AAAAA/ 
000004 






MAU 
PWV 


BT BLl /'Mn/BA\ 

R3«RI>.CnD\ROI 


154 


U03O3 1 


1 A/ OA7 
104£0f 


i AA701 
lOOf c1 




RcADc : 


MAU 
WOV 


il^B t TK 1 DABI W BA 

»%B 1 1 1 3 ! RDBLK> « RO 


155 


003633 


104^03 


1 AAAAA 
1 00000 






MAU 


iiBnrHft b7 
»RDCW«R3 


136 


003655 


4 AA1 77 

1001 f 3 








MAU 

nov 


B 7 / B A \ 

R3« \ROI 


117 


00363O 


10430c 


AAA7ZA 
000'40 






MAU 

nov 


i IMff T BO 

UNI 1 «Rc 


118 


003660 


A^ AAAO 

060002 








XFC 


BC AA 

READ 


110 


003661 


4 4 CAA1 

115001 








TST 


B1 

Rl 




003662 


AC77AX 

053r06 








BMC 

BNc 


CBI 

ERl 


141 


003663 


1 Ay 1 77 
1041 r5 








MOV 


/BA% B7 

iROI (R3 


iA? 


003664 


102203 


A1 AAAA 
010000 






BI 1 


MCftt B7 

wcCCr ,R3 


141 


003OOO 


0136f c 








BCA 

Bell 


rcir tB& 


144 


00366 r 


023000 








CALL 


err f IT 
CCCCK 


145 


0U36'U 


* -] CAA1 

1 1 3001 








TCT 


B1 

Rl 




0036f 1 


A777AZ. 

Of 3r06 








OMt 

Bni 


CBI 

cRI 


147 


0039rc 


106300 


AA1ZZC 

001443 


AAZC7C 

004333 


ff fix • 


tw 


MJBA BBBI Iff 

yUlfD«RDBUr 


148 


0036r3 


U33rOO 








BMC 

BNc 


CBI 

£R1 


149 


0036r6 


IOhcOc 


AAZCVC 

00^333 






MAU 

BOV 


BBABliC BO 

wKDBUr «Rc 


150 


003f 00 


OccOOv 








CALL 


CcDC 


151 


003 f 01 


1 A/ 9AC 

104c03 


AAZC7C 

004333 






MAU 


#RDBUF,R$ 


15? 


003/03 


106633 


AAAZ AA 
000400 






^MB 


BU cnr /BCt B7 
Rw.cDC\n3/ «R3 


151 


003 r 03 


A1 T79f 

0l3f c3 








Bell 


AV 

OK 


154 


AA'Z7AA 

003 fUO 








Cnl : 




r 1 .HI \N*il «N3 


155 


'JU3rUO 


1 AZA/.T 


AAAAA3 






MAU 
WV 


156 


0U3f 10 


1 U3cU3 


1 fWW 






Dtr 
SIC 


«nU«vLA«K3 


157 


UU3r 1c 


mi OAT 


1 in/uvt 

1 IWW 






Df C 
Bid 


MUti DAB B7 


158 


003rlM 


1000^3 


AAAAA3 
UOOOOc 






MAU 

nov 


B7 C T U I / BZ > 

R3«r 1 .HI VR4/ 


159 


003/^16 


1 1 C/ AA 
1 12400 


AA1 

001 ccc 






INC 


CBCI Alt 

CRrLAu 


160 


0U3/c0 


1 1 CZAA 

113hOII 








tut 
INC 


CBBrMT 

CRRCNI 


161 

1 W 1 


005 fee 


AA779iL 

003 rc6 








BB 

BR 


rcir tB7 


162 

IOC 


003f e3 


1 1 7ZAA 

11 r400 


001433 




AV • 

OK: 


Dec 


Nl 


161 

■ O^ 


AAf 73C 
0U3rc3 


03360c 








BMC 

BNt 


ilCBC 


164 

1 W^ 


003f c6 


1 AZTAA 

104300 


AA1 Z CZ 

001m 3^ 


001433 


rev tDX* 


MAU 

nov 


MM1 Ul 

mil «N1 


165 

1 O*' 


0U3r 31 


1 1 7ZAA 


001 ccr 






DcC 


CBB 

CRR 


166 

1 WW 


U03r33 


103cO* 


AAAAA 7 

000003 




rcvtD7< 
tSKlr/ : 


Ann 


Jit Ml CM BZ 

winLcN,R^ 


167 

1 W» 


003f 33 


1 130U0 


Artl 357 






TCT 

151 


CBB 

CRR 


168 

I WW 


001717 

WV^« ^« 


051602 








BIVC 


"C AC 


169 


003740 


115000 


001222 






TST 


ERFLA6 


170 


003742 


013777 








BEO 


COONE 


171 


003745 


104304 


001322 




OVER?: 


NOV 


DPREA,R4 



;GET HIGH ORDER 

; CLEAR OUT ALL BUT HEADER 

;IS IT A "GOOD X/D BN" ? 

:NOPE - ALREADY REVECTORED IT 

;SDI INTERCONNECT 

;WAIT FOR PULSE 

.'PREPARE FOR READ SECTORS 

; POINTER TO DUWY SDI BLOCK 

; STORE IN COFMAND BLOCK 

;L0 ORDER BLOCK NUPBER 

: STORE IM READ COMD BLOCK 

;HI ORDER BLOCK NUH AND CODE 

; STORE IN READ CMD BLOCK 

;LOAD ADDRESS OF DATA BUFFER 

: STORE IN COMMAND BUFFER 

;LOAD SDI READ COWMND 

:GET CURRENT HEAD NUPBER IN Rl 

:SET IT IN COPflAND 

.•STORE BACK 

;P1AKE SURE POINTING AT BLOCK 

;PMRK AS ONLY REQUEST 

.•STORE IN CPV BLOCK 

:SDI INTERCONNECT 

;READ 1 SECTOR 

.-ANY ERROR IN READ ? 

;YES - CONSIDER BAD 

.•LOAD ECC ERROR INDICATOR FOR TEST 

.ERROR ? 

;N0 - CHECK EDC 

.■ELSE FIND HOU PMNY SYPVOLS IN ERROR 

.-WITHIN BOUNDS ? 

.•NOPE - CONSIDER BAD 

.•FIRST WRD O.K ?? 

;NOPE - BARF 

.•POINT TO BUFFER 

.-COftPUTE EDC - RETURNED IN R3 

.•POINT TO BUFFER 

;EDC O.K. ? 

;N0 ERROR 

;6ET HI ORDER BLOCK NUPV AND HOR CODE 

.•CLEAR THE HEADER 

;PURK AS BAD 

.-STORE BACK IN IMAGE 

;SET RE'FORMAT FLAG 

:UP COUNTER OF BAD BLOCKS 

;N0 NEED TO RE-READ ANY MORE THIS SECTOR 

.-DECREMENT COUNTER - DONE ? 

;N0 - RE-RcAD SECTOR IN ERROR 

.-GET SAVED VALUE 

.DECREMENT IT 

.•POINT TO NEXT ERROR ENTRY 

.-ALL DONE ERROR SECTORS 

; NO - DO NEXT SECTOR 

;WERE THERE ANY BAD SECTORS FOUND 

.-NOPE - ALL DONE 

.•DATA PREAMBLE LENGTH 
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UOAFM - U0« FORMATTER DMACR X04.01 23-AUG-82 14:02:32 PAGE 47-3 
OBN/XBN FORMAT OVERLAY (F1) 



172 003745 104303 001321 

173 003747 104307 001320 

174 003751 104301 001113 

175 003753 104302 000740 

176 003755 104205 007321 

177 003757 060001 

178 003760 115001 

179 003761 01377<, 

180 003762 115400 000717 

181 003764 106300 001477 000717 

182 003767 073330 

183 003770 022362 

184 003771 022234 

185 003772 022242 

186 003773 003743 

187 003774 114000 000717 

188 003776 003432 

189 003777 

190 004000 000000 



OVERl : 
CDONE: 



NOV 

NOV 

NOV 

NOV 

NOV 

XfC 

TST 

BEQ 

INC 

CNP 

BNI 

CALL 

CALL 

CALL 

BR 

CLR 

BR 

POP 

RETURN 



HPREA,R3 

IMSTAR.RO 

CURTRK.R1 

UNIT,R2 

#INAGE,RS 

FORMAT 

R1 

OVERl 
UN.ERI 

RETRY, UN. ERI 

FERR 

INITPT 

CLEAR 

SEEK 

0VER2 

UN.ERI 

DXCH 

RO 



L. 



HEADER PREAMBLE LENGTH 

POINT TO TRACK INAGE START POINT 

CURRENT TRACK NUNBER 

SDI INTERCONNECT 

RECIRCULATION ADDRESS 

RE-FORNAT 

ANY PROBLEMS ?? 

NO -REDO CHECK PASS 

INCREMENT IT 

DONE ALL RETRIES ? 

YUP - ERROR 

REINIT 

DRIVE CLEAR 

RE-SEEK AND GROUP SELECT 
RETRY FORMAT 
CLEAR RETRY COUNT 
RE-CYCLE CHECK PASS 
RESTORE CHARACTERISTICS PTR 
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SEO 280 



1 
2 
3 

5 



8 

9 



004001 
004C04 
004006 
004010 

10 004012 

11 004013 

12 004015 

13 004017 

14 004021 

15 004023 

16 004024 

17 004026 

18 004027 

19 004030 

20 004032 

21 004034 

22 004035 

23 004037 

24 004040 
*5 004042 

26 004043 

27 004045 

28 004047 

29 004050 

30 004051 

31 004053 

32 004055 

33 004056 

34 004057 

35 004061 

36 004063 

37 004064 

38 004066 

39 004070 

40 004071 

41 004073 

42 004075 

43 004077 

44 004100 



104300 
104207 
104205 
104303 
105035 
104050 
104653 
103203 
106203 
014035 
106203 
014035 
114003 
100673 
105207 
004051 
104653 
100273 
1C4653 
100273 
104203 
101303 
100273 
100275 
105305 
106305 
014064 
034066 
107305 
105205 
004066 
104205 
106305 
054075 
105205 
104050 
117400 
054015 
000000 



001130 
006621 
007321 
001234 

001233 
000002 
007777 
120000 

140000 



000002 
000004 

000001 

000002 

013400 
001113 



001235 
001232 



001232 
007321 

007321 
001233 

000003 
001233 
001451 



CONSTRUCT THE READ CONNAND TABLE 



001451 FJXIT: 



MORE: 



FICIP2: 



FKIP1 : 



REDO: 
FKPI: 



FKIP10: 



NOV 

NOV 

NOV 

NOV 

ADD 

NOV 

NOV 

BIC 

CNP 

BEQ 

CNP 

BEQ 

CLR 

NOV 

ADD 

BR 

NOV 

NOV 

NOV 

NOV 

NOV 

BIS 

NOV 

NOV 

ADD 

CNP 

BEQ 

BPL 

SUB 

ADD 

BR 

NOV 

CNP 

BNE 

ADD 

NOV 

DEC 

BNE 

RETURN 



SECTRK.SECCNT 

«CNDBUF,RO 

#INAGE«R5 

SKPCNT,R3 

R3,R5 

R5, STAR IT 

2(R5).R3 

«L0,R3 

«HD.XBN,R3 

FKIP2 

#HD.DBN,R3 

FICIP2 
R3 

R3.RB.CH0(R0) 

«RDLEN.RO 

FKIPI 

1(R5).R3 

R3.(R0)* 

2(R5).R3 

R3,(r6)4^ 

«RUCND,R3 

CURTRK,R3 

R3,<R0)* 

R5«(R0)^ 

TBLK,R5 

EIHAGE,RS 

REDO 

FKPI 

EINAGE«R5 
#INA6E,RS 
FKPI 

#IHAGE,R5 

STARIT,R5 

FKIP10 

«INLEN,R5 

R5«STARIT 

SECCNT 

NORE 



INIT COUNTER 

CONNAND BUFFER 

POINT TO TRACK INAGE 

GET STARTING OFFSET(TUNED) 

POINT TO FIRST ENTRY 

MARK STARTING ADDRESS 

SET UP FOR HSR CODE COMPARE 

ISOLATE HI 4 BITS(HDR CODE) 

GOOD XBN ? 

YES - NARK AS GOOD TO CHECK 
GOOD DBN ? 

YES - NARK AS GOOD TO CHECK 

CLEAR FOR STORE 

STORE AS BAD SECTOR FLAG 

POINT PAST BLOCK 

SKIP 6000 MARK 

LO ORDER BLOCK NUMBER 

STORE IN READ COMO BLOCK 

HI ORDER BLOCK NUM AND CODE 

STORE IN READ CMD BLOCK 

LOAD SDI READ COMMAND 

SET IN CURRENT TRACK NUMBER 

STORE IN BLOCK 

SAVE PTR TO IMAGE BLK ENTRY 

ADD TO GET NEXT SECTOR 

SEE IF ^lAVE TO LOOP BACK TO TOP 

NEED TO RESET 

NO NEED - JUST CONTINUE 

SUBTRACT TO GET LOOP AMOUNT 

AND ADD OFFSET 

SKIP ZERO CONDITION 

IF ZERO SIMPLY MOVE TO FRONT 

AT BEGINNING ADDRESS ? 

NO - JUST CONTINUE 

ELSE POINT TO NEXT ENTRY 

MAKE IT NEW STARTING ADDRESS 

DECREMENT 

NO - DO NEXT SECTOR 
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UOAFH - UOA FORHATTER DRACR X04.01 23-AUG-82 14:02:32 PAGE 49 
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SEQ 281 



1 
2 
3 
4 
5 
6 
7 
8 
9 

10 004101 

11 003023 

12 003026 

13 003031 

14 003033 

15 003036 

16 003037 

17 003042 

18 003043 

19 003044 

20 003045 

21 003046 

22 003050 

23 003051 

24 003053 

25 003054 

26 003056 

27 003060 

28 003062 

29 003063 

30 003064 

31 003071 

32 003073 

33 003074 

34 003076 

35 003100 

36 003101 

37 003103 

38 003105 

39 003106 

40 003107 

41 003111 

42 0031*2 

43 003114 

44 003116 

45 003121 

46 003123 

47 003125 

48 003127 

49 003130 

50 003133 

51 003134 

52 003137 

53 003140 

54 003143 

55 003145 

56 003147 

57 003150 



104200 
104300 
104205 
102200 
013046 
102200 
013045 
023277 
003046 
023331 
104203 
100253 
104303 
100253 
104303 
103203 
104301 
101013 
100253 

117400 
053046 
104203 
104632 
110702 
103202 
104204 
115002 
013154 
115000 
013154 
104020 
114000 
104300 
114000 
104203 
104204 
021557 
106300 
033140 
107300 
003130 
104200 
114000 
104203 
021537 
104143 



000047 001154 

001130 001451 DXTRK: 

007321 

000600 001220 

000010 001220 



TKIPI ! 
TKIP2! 



SKIPS: 



005567 

001114 

001115 
170000 
001457 



001451 

001053 
000011 

177400 
007321 



001460 

000736 
000737 

001460 000731 
000732 
000736 
000731 

001130 000731 TKIP8: 

001130 000731 

000003 000736 rKIP9: 

000737 

000736 



.SBTTL DBN/XBN TRACK FORMAT OVERLAY (G7) 



SET UP TRACK FORMAT 



DMOVLY 67.START 

MOV #G*«CUROVL 

MOV SECTRK,SECCNT 

NOV #IMA6E,R5 

BIT »MANU«DLL,FLAG 

BEO TKIP2 

BIT #DBN.FLAG 

BEQ TKIP1 

CALL DPBN 

BR TKIP2 

CALL XPBN 

MOV #GDBLK,R3 

MOV R3,(R5)* 

MOV CURBN,R3 

MOV R3,(R5)* 

MOV CURBN«1,R3 

BIC #HD.CLR,R3 

MOV HO.CUR.RI 

BIS R1,R3 

NOV R3«(R5)* 

DUBINC CURBN 

DEC SECCNT 

BNE TKIP2 

MOV #SCR,R3 

MOV 0FFS(R3),R2 

SUAB R2 

BIC «HIBYTE«R2 

MOV #IMA6E,R4 

TST R2 

BEO TKIP5 

TST CURGRP 

BEQ TKIP5 

MOV R2,TEMP 

CLR TEMP*1 

MOV CURGRP.DOUHHY 

CLR DDUNHY^I 

NOV #TEMP,R3 

MOV fD0UMNY,R4 

CALL DMUL 

CMP SECTRK.DOURMY 

BPL TK1P9 

SUB SECTRK^DDUMMY 

BR TKIP8 

NOV flMLEN^TENP 

CLR TEMP+1 

NOV #TENP.R3 

CALL DMUL 

NOV (R4),R3 



;GET OVERLAY INDICATOR 
MOVE SECTOR COUNT INTO R3 
POINT TO FORNAT TRACK INAGE 
SEE IF FCT AVAILABLE 
NO - SKIP PBN COMPUTATION 
DO DBN AREA ?? 
NO - DO XBN AREA 
COMPUTE PBN FOR STARTING DBN 
SKIP XBN COMPUTATION 
COMPUTE PBN FOR STARTING XBN 
POINT R3 AT GOOD DATA BLOCK 
AND STORE PTR IN IMAGE BLOCK 
GET LOU ORDER BLOCK NUMBER 
AND STORE IN INAGE BLOCK 
HI ORDER BLOCK NUM AND HDR CODE 
CLEAR HEADER CODE 

GET CURRENT HEADER CODE (XBN OR DBN) 

SET TO GOOD HEADER CODE 

AND STORE IN INAGE BLOCK 

INCREMENT IT 

DECREMENT IT 

NO - DO NEXT SECTOR 

POINT TO CHARACTERISTICS 

GET GROUP OFFSET 

GET INTO LOVBYTE 

CLEAR HIGH GARBAGE 

POINT TO INAGE 

ANY OFFSET ? 

NO - SKIP CALCULATIONS 

IS GROUP ZERO ??? 

YES - NO OFFSET 

STORE IT 

FOR STORE 

GET CURRENT GROUP 

CLEAR HIGH WORD 

FOR NUL 

DITTO 

NULTIPLY TO GET OFFSET FOR THIS GROUP 

IS TOTAL OFFSET NORE THAN NUNBER OF SECTORS ? 

NO - ALL IS FINE 

YES - SUBTRACT TILL IT IS 

CHECK AGAIN 

GET LENGTH OF iNAGE BLOCK 
FOR STORE 
FOR MULT 

GET LENGTH TO OFFSET 
GET RESULT 



UDAFW - 


UDA FORMATTER DNACR X04.01 23-AUG-82 14:02:32 ( 


DBK/XBM 


TRACK F0<)HAT OVERLAY (67) 






58 












MOV 


59 


f^t\x^ ci 










SU8 


60 


Uujl 




nni '^70 

VV 1 JCV 




TKIPS: 


ROV 


61 


nATi CA 






001 770 
vv 1 ecu 




BIT 


62 


UUjIOI 


nCX3C9 








BNE 


63 






001 1 xo 


oniA^i 

UU 1 <• 7 1 


TKIP12: 


«0V 


6A 




10^X09 


001 77A 




MOV 


65 


A7 


10^1 ?1 








NOV 


66 






001 111 






CMP 


67 


UU J 1 r C 










BNE 


68 




10401 


000001 

WVVV 1 






NOV 


69 


nnxi7C 


10^501 


1 70000 

1 r UUUw 






BIC 


70 


0flX177 
Uw J 1 r I 


10A010 

1 wOv 1 V 


001 1*7 
VV 1 1 I £ 






CMP 


71 




ocx?xx 








BNE 


72 


WjcvC 


117A0A 


001 4 7A 

UU 1 f o 






DEC 


73 




117^00 


001740 

UU ICHU 






DEC 


74 












BNE 


75 


Wjcvr 


101700 

1 V 1 cW 


000007 
vwvvc 


001 770 

Uv 1 ecu 


TKIP7: 


BIS 


76 






000007 

UUUUU£ 




MOV 


77 


wv>>c It 


10^70^ 


1 70000 






BlC 


78 




10170X 

IV lev J 


1 1 0000 
1 1 uuuu 






BIS 


79 




1 UVOU 


000007 






nov 


80 




inc?oA 


UuUUUc 


00177A 

UU ICC* 




ADD 


81 


nnT97C 


11C000 
1 1 jVW 


001 A7A 
UU 1*1' D 






TST 


82 












BNE 


83 




1 1S400 


001 7S 7 
UU 1 r 






INC 


8A 




VCjjOV 








CALL 


85 




10S704 


000003 

VWVVJ 




TKIP4: 


ADD 


86 


003235 


106304 


001232 






CMP 


87 


003237 


053242 








BNE 


88 




10470^ 


007^71 

UUf I 






MOV 


89 


0A^P4? 








TKIP11: 


DUBINC 


90 


0flV47 


117400 


001451 






DEC 


91 




05 '^1 M 

VJJ 1 








BNE 


92 
93 




104^04 


001 ??0 




TKIP3: 


MOV 


94 


00^?S4 

WVJC J*« 


IQZTO? 
1 V^JVJ 


001??? 






MOV 


95 




1 07703 


000003 






SUB 


96 


00l?60 










CMP 


97 




01 %2ik7 








BEQ 


98 




104135 








MOV 


99 


003?A'^ 


101705 


0^0000 






BIS 


100 


00'^?65 


100135 

1 WW 1 J J 








MOV 


101 


003266 


003272 








BR 


102 


003267 


101200 


040000 


001320 


TKIP14: 


BIS 


103 


003272 


104143 






TKIP13: 


MOV 


l04 


003273 


101203 


100000 






BIS 


105 


003275 


100143 








MOV 


106 


003276 


000000 








RETURN 
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49-1 



!iEQ 282 



E IMAGE, R4 

R3,R4 

R4JMSTAR 

fBSTGS^FCTEMT.FLAG 
TKIP3 

SECTRK^SECCNT 

BADPBN.R2 

(R2),R1 

Rl.CURPBN 

TKIP4 

1(R2),R1 

«HD.CLR,R1 

RI.CURPBN^I 

TKIP4 

COUNT 

FCNT 

TKIP7 

fFCTEMT.FLAG 

FT.HI(R4).R3 

«HD.CLR,R3 

fHD.BAD,R3 

R3,FT.HI(R4) 

#2,BADPBN 

COUNT 

TKIP4 

FCTCNT 

DXFCP1 

#inLEN,R4 

E IMAGE, R4 

TKIP11 

f IMAGE, R4 

CURPBN 

SECCNT 

TKIP12 

INSTAR,R4 

E!HAGE,R3 

#IMLEN,R3 

R4,R3 

TKIP14 

(R3),RS 

«RECIR,R5 

RS,(R3) 

TKIP13 

#RECIR,IHSTAR 
(R4),R3 
#LAST,R3 
R3,(Ri) 



GET ADDRESS OF END OF IMAGE 
SUBTRACT TO GET STARTING LOCATION 
STORE IT 

IS FCT AVAILABLE AND NON-EMPTY ? 

NO - CONSIDER GOOD 

RESET SECTOR COUNT 

POINT TO PBN 

GET LOW ORDER PBN 

ARE THEY EQUAL ? 

NO - SKIP REST OF COMPARE 

GET HIGH ORDER BAD 

CLEAR HEADER FOR COMPARE 

EQUAL ? 

NO - MARK AS GOOD 
DECREMENT IT 
DEC IT 

IF NOT EMPTY THEN CONTINUE 

SET FCT EMPTY FLAG 

HI ORDER BLOCK NUM AND HDR CODE 

CLEAR THE HEADER CODE 

SET 70 BAD HEADER CODE 

AND STORE IN IMAGE BLOCK 

MOVE PTR TO NEXT BAD BLOCK 

DONE WITH THIS FCT BLOCK ? 

IF NOT DONE SKIP 

GET NEXT BLOCK NUMBER 

ELSE PAGE IN NEW FCT BLOCK 

POINT TO NEXT IMAGE ENTRY 

AT THE END ? 

NOPE - CARRY ON 

POINT TO START 

INCREMENT CURRENT PBN COUNTER 
DECREMENT SECTOR COUNTER 
CONTINUE TILL DONE ALL SECTORS 

POINT TG FIRST TO FORMAT ENTRY 

GET END ADDRESS 

POINT TO FLAG OF LAST ENTRY 

FIRST = LAST ? 

NO - SKIP SPECIAL STUFF 

GET FLAG WORD 

SET RECIRCULATION FLAG 

STORE IT BACK 

SKIP KLUDGE FIX TO UDA 

SET BIT IN POINTER 

GET BUFF POINTER 

SIGNAL AS LAST 

STORE IT BACK 
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DBN/XBN TRACK FORMAT OVERLAY (67) 



1 
2 
3 
4 
5 
6 
7 

8 003277 

9 003302 

10 003305 

11 003307 

12 003311 

13 003312 

14 003314 

15 003315 

16 003317 

17 003320 

18 003322 

19 003324 

20 003326 

21 003330 
22 

23 
24 
25 
26 
27 
28 
29 
30 

31 003331 

32 003334 

33 003337 

34 003341 

35 003343 

36 003344 

37 003346 

38 003347 

39 003351 

40 003353 

41 003355 

42 003357 



COMPUTE PBN FROM GIVEN DSN 
RO -> CHARACTERISTICS BLOCK 



104300 001140 000736 DPBN: 

104300 001141 000737 

104204 000736 

104203 001134 
021503 

104203 001136 
021503 

104203 001114 
021503 

104641 000001 

107301 001326 

104140 001111 

104010 001112 
000000 



MOV 

MOV 

MOV 

NOV 

CALL 

MOV 

CALL 

NOV 

CALL 

NOV 

SUB 

NOV 

MOV 

RETURN 



XBNSECTEMP 

XBNSEC*1,TEHP*1 

«TENP,R4 

#LBNLBN,R3 

DADD 

#R8NLBN,R3 
DADO 

«CURBN,R3 

DADD 

1(R4)«R1 

Sr.DBN.Rl 

(R4).CURPBN 

R1«CURPBN«1 



104300 001134 000736 XPBN: 

104300 001135 000737 

104204 000736 

104203 001136 
021503 

104203 001114 
021503 

104641 000001 

107301 001325 

104140 001111 

104010 001112 
000000 



COMPUTE PBN FROM GIVEN XBN 
RO -> CHARACTERISTICS BLOCK 



NOV LBNLBN^TEMP 

NOV LBNLBN4^1,TENP4^1 

MOV #TEMP.R4 

MOV «RBNLBN,R3 

CALL DADD 

MOV #CURBN,R3 

CALL DADD 

NOV 1(R4},R1 

SUB ST.XBN.RI 

NOV (R4),CURPBN 

NOV R1,CURP6N4^1 
RETURN 



GET NUMBER OF SECTORS IN XBN AREA 

GET HI ORDER 

POINT R4 AT TEMP AREA 

POINT AT NUN OF LBN'S IN LBN AREA 

ADD 

POINT TO NUN OF RBN'S IN LBN AREA 
ADD TO GET StCrORS IN LBN * XBN AREA 
POINT TO CURRENT BLOCK NUMBER (DBN) 
GET RELATIVE PBN 
GET HIGH ORDER 

SUBTRACT HI^H ORDER STARTING DBN 
GET LO ORDER PBN 
STORE HIGH ORDER 



;GET NUNBER OF LBN'S IN LBN AREA 

;GET HIGH ORDER 

.•POINT R4 TO TEMP AREA 

; POINT R3 AT RBN'S IN LBN AREA 

;ADD TO GET TOTAL SECTORS IN LBN AREA 

; POINT R3 AT CURRENT BLOCK NUMBER 

:ADD TO GET RELATIVE PB^N 

;6ET HIGH ORDER 

; SUBTRACT HIGH ORDER STARTING XBN 
;GET LO ORDER OF PBN 
.•SAVE HIGH ORDER 
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UDAFH - UDA FORMATTER DPIACR X04.01 ?3-AUG-82 U:02:32 PAGE S1 
0BN/>3N TRACK FORMAT OVERLAY (G7) 



1 
2 
3 
4 
5 
6 
7 



003360 
003366 
003370 
003371 

8 003374 

9 003377 
10 003A0S 



104201 
022435 
104200 
104200 

000000 



000033 

000200 
C05152 



PAGE IN NEW FCT BLOCK 



DXFCP1 



001476 
001224 



PUSHA 

nov 

CALL 
NOV 

nov 

POPA 
RETURN 



fG2.R1 
PAGE 

#128., COUNT 
#PBNBUF,BADPBN 



< 



;DLL OVERLAY 

: EXECUTE OVERLAY 

;FOR INIT 

:FOR POINTER RESET 
; RETURN 
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UOAFH - UDA FORMATTER DMACR X04.01 23-AUG-82 14:02:32 PAGE 52 
LBN FORMATTING OVERLAY (F2) 



EO 285 



1 












.SBTTL 


LBN FORMATTING OV 


2 
3 












LBN FORMATTING 


A 
5 
6 


003406 










DNOVLY 


F2 START 


7 
8 


003023 


104200 


000003 


001 1 54 


LFORN: 


MOV 


Mf2 CUROVL 


9 


003026 


102200 


000001 


001220 




BIT 


#FCTAVL.FLAG 


10 


003031 


013035 








BEQ 


XSKIP1 


11 


003032 


104201 


000036 






NOV 


#63. R1 


12 


003034 


022435 








CALL 


PAGE 


13 


003035 


104207 


001053 




XSKIP1: 


NOV 


fSCR.RO 


U 


003037 


104300 


001144 


001126 




NOV 

nw » 


LBNCYL.CYLNUM 

kO«« V V w # V ■ wwwri 


15 


003042 


104300 


001144 


001455 




NOV 

nw w 


LBNCYL CNTCYL 


16 


00304 S 


104300 


001145 


001127 




NOV 

nw w 


LBNCYL^'I .CYLNUM^'I 


17 


003050 


104300 


001145 


001456 




NOV 

nw w 


LBNCYL+1 -CNTCYL+1 


18 


003053 


103200 


1 70000 


001456 




BIC 


#HD.CLR.CNTCYL4^1 


19 


003056 


104204 


001126 






NOV 

nw » 


#CYLNUM.R4 


20 


003060 


104203 


001463 






nw w 


#ONE R3 


21 


003062 


021521 








CALL 


DSUB 

■r wWO 


22 


003063 


104300 


001472 


001236 




NOV 

nw w 


TOTRCT-RCTTOT 


23 


003066 


104201 


000052 






PIOV 


#68 R1 


24 


003070 


022435 








CALL 


PA6E 


25 


003071 


104207 


001053 




XSLEEK: 


NOV 


fSCR.RO 


26 


003073 


104673 


000002 






NOV 

nw w 


6RPCYL(R0) .R3 


27 


003075 


103203 


177400 






BIC 

OA V 


#HIBYTE.R3 


28 


003077 


104030 


AA4 J ^ 4 

001461 






NOV 




29 


003101 


104030 


001460 






NOV 


R3<CUR6RP 


30 


003103 


117400 


001460 






DEC 


CUR6RP 


31 


003105 


104300 


AA4 4 

001126 


AA4 A99 

001077 


XSLEK2: 


NOV 


CYLNIM.ISEEK^I 


32 


003110 


104300 


AA4 4 

001127 


AA4 4 AA 

001100 




NOV 


CYLNiM^I .ISEEK^2 


33 


003113 


104300 


A A4 J ^ A 

001460 


AA4 4 A4 

001101 




NOV 


CURGRP.ISEEK^3 


34 


003116 


022242 








CALL 


SEEK 


35 


003117 


1 1 5001 








TST 


R1 


36 


003120 


073372 








BMJ 


SEEKER 


37 


003121 


104207 


001053 






NOV 


fSCR.RO 


38 


003123 


104673 


AAAAA9 

000003 






NOV 


TRKGRP(R0),R3 


39 


003125 


103203 


4 99 J AA 

1 77400 






BIC 


fHlBYTE,R3 


40 


003127 


104030 


AA4 S £ ^ 

001462 






NOV 


R3.TRKCNT 


41 


003131 


1 1 7403 








DEC 


R3 


42 


003132 


4 A / A9A 

104030 


AA4 4 4 9 

001 113 






NOV 


R3«CURTRK 


43 


003134 


4 A / A4 

104201 


AA AA^f 

000025 




XSKIP3: 


MOV 


fF8,R1 


44 


003136 


022435 








CALL 


PA6E 


45 


003137 


4 A / 9 A § 

104304 


AA4 

001 322 




XSKIP2: 


NOV 


DPREA.R4 


46 


003141 


4 A4 VAY 

104303 


AA 4 9^4 

001321 






NOV 


HPREA.R3 


47 


003143 


4 A4 9 A9 

104307 


AA4 9^A 

001320 






NOV 


IMSTAR.RO 


48 


003145 


4 A ^ 9A4 

104301 


AA4 4 4 9 

001 113 






."WV 


CURTRK.RI 


49 


003147 


4 A 4 9A^ 

104302 


AAA9 J A 

000740 






riov 


UNIT,R2 


50 


003151 


4 A4 tAP 

104205 


007321 






riov 


fINA6E,R5 


51 


003153 


A^ AAA 4 

060001 








x^c 


FORMAT 




0U5l3<> 










TST 


R1 


53 


003155 


013170 








BEQ 


LSKIP4 


54 


003156 


115400 


000717 






INC 


UN.ERI 


55 


003160 


106300 


001477 


000717 




CHP 


RETRY.UN.ERI 


56 


003163 


073366 






BNI 


FORERR 


57 


003164 


022362 








CALL 


INITPT 



OVERLAY #2 

FCT AVAILAABLE ? 

NO - SKIP SET UP 

OVERLAY TO 6ET RI6HT FCT BLOCK 

EXECUTE IT 

POINT TO CHARACTERISTICS BLOCK 
GET LO ORDER CYLINDER COUNT 
MAKE LO ORDER COUNT 
GET HIGH ORDER 
STORE IT 

.'CLEAR STARTING CYLINDER BITS 
SUBTRACT TO GET CYLINDER NUNBER 
1 - BECAUSE START AT 0 
DO SUBTRACT 
GET TOTAL RCT LBN'S 
POINT TO OVERLAY 
COMPUTE VARIOUS CONSTANTS 
POINT TO CHARACTERISTICS 
GET GROUPS/CYLINDER 
CLEAR OUT GARBAGE 
USE AS COUNTER 
GROUP NUNBER 

DECREMENT TO GET ACTUAL NUNBER 

GET CURRENT CYLINDER NUMBER 

GET HIGH ORDER 

LOAD GROUP NUNBER 

DO THE SEEK 

ANY ERROR ? 

YUP - CUT OUT 

POINT TO CHARACTERISTICS 

6ET TRACKS/GROUP 

CLEAR OUT GARBAGE 

MAKE COUNTER 

UANT LAST TRACK NUMBER 

HAKE CURRENT TRACK 0 

TRACK SET UP OVERLAY 

SET UP TRACK FORMAT 

GET DATA PREAMBLE LENGTH 

GET HEADER PREAMBLE LEN6TH 

POINT TO TRACK IMAGE START POINT 

TRACK TO FORMAT 

SDI INTERCONNECT 

RECIRCULATION ADDRESS 

DO FORMAT 

ANY ERROR ? 

NO - DO CHECK PASS 

INCREMENT IT 

DONE ALL RETRIES ? 

YUP - ERROR 

REINIT 
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LBN FORMATTING 


OVERLAY 


(F2) 








JO 


\J\JJ 1 03 


022234 








CALL 


^0 


UU J 1 oo 


022242 








CALL 




nnxi A7 

UU J 1 0 1 


003137 








BR 


O 1 


nnxi 70 


114000 


00071 7 




LSKIP4: 


CLR 


Oc 


nnxi 7? 


104301 


001226 






MOV 


ftX 
Oj 


noxi 7A 


107301 


001255 






SUB 


OH 


00^1 7A 
UU J 1 r o 


106301 


001130 






CMP 


Oj 


oo'^?no 


07321 1 








BMI 


OO 


VVJCW 1 


104201 


C0001 1 






MOV 


Or 


OOXPOX 


022435 








CALL 


OO 


nn^90A 


114000 


031255 






CLR 


Ot 


wvoeuo 


104300 


001225 


001253 


)(SKIP4: 


NOV 


IM 


OOXP1 1 

VVOC 1 1 


023377 






CALL 


71 
f 1 


OOXPI ? 

l/wOc 1 C 


102200 


020000 


001220 




BIT 


7P 
1 c 




013237 








BEQ 




00X71 A 

wUOC 1 O 


101200 


000100 


001220 




BIS 


7L 

1 H 


0O'X3P1 


103200 


020000 


001220 




BIC 


7C 


00X97A 

WjCCH 


102200 


002000 


001220 




BIT 


» O 


00V77 


013234 








BEQ 


77 


OO'^P'^0 


104201 


000022 






MOV 


7R 

r O 




022435 








CALL 


70 




003237 








BR 


AO 




104201 


000014 




XSKIP6: 


MOV 


O 1 




022435 






XSKIP5: 


CALL 


A7 
Oc 


00XPX7 


117400 


001113 




DEC 


K\ 
Oj 


00X9 A 1 


104204 


001120 






NOV 


OH 


0OX9AX 

WVOCHJ 


104207 


001053 






NOV 


AS 

O^ 


00X?4S 

l/vOC*t^ 


104673 


000011 






NOV 


AA 

OO 


00X7^7 


103203 


177400 






BIC 


A7 

Of 


00X?51 

wwOC J 1 


104030 


000731 






NOV 


AA 

OO 


00X7 SX 


114000 


000732 






CLR 


AO 

Or 


00X7SS 

WW JC ^ ^ 


104203 


000731 






NOV 


TV 


00XP57 

WW JC J • 


021521 








CALL 


01 


wwJCww 


104300 


001120 


001114 




NOV 




OOX?<^X 

wwJCwJ 


104300 


001121 


001115 




NOV 


0^ 


OOX?M 

WWJCWO 


104204 


001122 






NOV 


▼■t 


00XP70 

wVOC r V 


104673 


000004 






NOV 




00XP7? 

wVOC ' C 


103203 


177600 






BIC 


TO 


00X?7& 


104030 


000731 






NOV 


97 

WW 


00l?76 


114000 


000732 






CLR 


98 


oolloo 


104203 


000731 






NOV 


99 


oQxxo? 


021521 








CALL 


100 




104300 


001122 


001107 




NOV 


101 




104300 


001123 


001110 




NOV 


10P 


oollii 


117400 


001462 






DEC 


103 


0OXX1X 


053134 








BNE 


1 v*t 


00X3 K 


117400 


001460 






DEC 




OOl^lA 


117400 


001461 






DEC 


1 vo 


oo^Ipo 


053105 








BNE 




003V1 


104204 


001455 






NOV 


108 


003»^ 


104203 


001463 






NOV 


109 


003325 


021521 








CALL 


- 0 


003326 


060022 








XFC 


111 


003327 


104204 


001126 






NOV 


112 


003331 


104203 


001463 






NOV 


113 


003333 


021521 








CALL 


1U 


003334 


104304 


001455 






NOV 



N 6 
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SEO 286 



CLEAR 

SEEK 

XSKIP2 

UN.ERI 

ENAX.RI 

REVCNT.RI 

SECTRK.RI 

XSKIP4 

«F4,R1 

PAGE 

REVCNT 

ERRBUF,ERPNT 
LCHEC 

«INIRCT,FLAG 
XSKIP5 

mVECT.FLAG 

#INIRCT*FLAG 

«BSTGS,FLAG 

XSKIP6 

#F7.R1 

PAGE 

XSKIP5 

«F5,R1 

PAGE 

CURTRK 

#H0LDBN,R4 

fSCR.RO 

LBNTRK(R0),R3 

#HIBYTE,R3 

R3«D0UNNY 

D0UMNY4^1 

fDDUNHY,R3 

DSUB 

HOLDBN^CURBN 

H0LDBN4^1,CURBN*1 

#H0LR6N,R4 

RBNTRK(R0),R3 

#HI1BYTE.R3 

R3,DDUNNY 

DDUHHY^I 

fDDUNNY,R3 

DSUB 

HOLRBN.CURRBN 

HOLRBN^I ,CURRBN+1 

TRKCNT 

XSKIP3 

CURGRP 

GRPCNT 

XSLEK2 

#CNTCYL.R4 

«0NE«R3 

DSUB 

UPDATE 

#CYLNUN,R4 

#0NE,R3 

DSUB 

CNTCYL,R4 



; DRIVE CLEAR 

; RE-SEEK AND GROUP SELECT 

;NOPE - RETRY 

;FOR STORE 

;GET NAX REVECTORS 

: SUBTRACT CURRENT ENTRIES 

; ENOUGH LEFT FOR WHOLE TRACK ?? 

;YES - CONTINUE 

.•SIGNAL RCT UPDATE OVERLAY 

.-PAGE IT IN 

;FOR STORE 

;FOR RESET 

:D0 CHECK PASS 

;TINE TO INIT RCT ? 

;NOPE 

;SET REVECTOR ON 

:RESET FLAG 

.•DOING BEST GUESS ? 

;N0 - GO ALL THE WAY 

:RCT INIT OVERLAY 

.•EXECUTE IT 

.•SKIP OTHER 

;D0 FCT->RCT AND INIT 

.•EXECUTE IT 

;DECRENENT IT 

;GET STARTING BLOCK NUMBER 

.'POINT TO CHARACTERISTICS 

;GET LBN/TRACK 

.-CLEAR HIGH BYTE 

.•STORE IT 

.-FOR STORE 

'LBN/TRACK 

•GET STARTING LBN FOR NEW TRACK 

;GET LOU ORDER 

;GET HIGH ORDER 

.-GET STARTING RBN NUNBER 

;GET RBN/TRACK 

;CLERA OUT GARBAGE 

; STORE IT 

.-FOR STORE 

* RBN *S/ TRACK 

•GET STARTING RBN FOR NEW TRACK 

;GET LOU ORDER 

.-GET HI ORDER 

:DECRENENT IT 

;N0 - DO NEXT TRACK 

;DECRENENT GROUP NUNBER 

.-DECRENENT IT 

:N0 - DO NEXT CROUP 

;GET READY TO DEC CYLINDER CNT 

.•CONSTANT UORD OF 1 

.•DECRENENT IT 

.•UPDATE PROGRESS INDICATOR 
.-GET CURRENT CYLINDER NUNBER 
.FOR DECRENENT 

.•DECRENENT FOR NEU CYLINDER NUN 
;LOU ORDER ZERO ? 
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LBN FORMATTING OVERLAY (F2) 



11 S 003336 


053071 






BNE 


XSLEEK 


116 003337 


104304 


001456 






CNTCYLfl .R4 


117 003341 


053071 






BNE 


XSLEEK 


118 003342 


104303 


001255 




fK)V 


REVCNT.R3 


119 003344 


013353 






BEQ 


XDONE 

#*WW»1W 


120 003345 


101200 

■ V ■ b vw 


040000 001220 

V~ www WW I bbW 




BIS 


#F INI. FLAG 


121 003350 


104201 


000011 

wwww ■ ■ 




nov 


#F4.R1 


122 003352 


022435 






CALL 


PAGE 


123 003353 


104303 


001313 


XDONE : 


NOV 


LBNBAD.R3 


124 003355 


104304 


C01450 




NOV 


ERRCNT.R4 


125 003357 


105043 






ADD 


R4,R3 


126 003360 

■ bW Wa^WWW 


104030 


001313 




NOV 


R3.LBNBAD 


127 003362 


104201 


000041 




NOV 


#G4,R1 


128 003364 


022403 






CALL 


NEXT 


129 003365 


000000 






RETURN 




130 003366 


104012 




FORERR: 


NOV 


R1,R2 


131 003367 


104201 


000014 




NOV 


#12.,R1 


132 003371 


003376 






BR 


LFERR 


133 003372 


104302 


001126 


SEEKER: 


NOV 


CYLNUN,R2 


1i4 003374 


104201 


000012 




NOV 


#10., R1 


115 003376 


022542 




LFERR: 


CALL 


ERRNNT 



SEO 287 



NO - CONTINUE 

HIGH ORDER ZERO ? 

NO - CONTINUE 

ANY LEFTOVER REVECTORS ? 

NOPE 

SIGNAL NOT TO SEEK 
SIGNAL RCT UPDATE OVERLAY 
UPDATE IT 

GET BAD BLOCKS FRON FCT 

GET CHECK PASS BAD 

ADD TO GET TOTAL 

STORE BACK 

RCT CLEANUP 

GET NEXT OVERLAY 

XFC ERROR CODE 

SIGNAL LBN FORHAT ERROR 

CYLINDER FAILED ON 
iSEEK ERROR 
ERROR RETURN 



C 7 
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LBN FORMATTING OVERLAY (F2) 



SEO 288 



1 
2 
3 
A 
5 

6 003377 

7 003A01 

8 003A03 

9 003A06 

10 003A07 

11 003A12 

12 003415 

13 003A20 
U 003A21 

15 003A24 

16 003A27 

17 003A32 

18 003433 

19 003435 

20 003436 

21 003441 
?2 003443 

23 003445 

24 003447 

25 003450 

26 003452 

27 003454 

28 003456 

29 003460 

30 C03462 

31 003464 

32 003466 

33 003470 

34 003472 

35 003474 

36 003476 

37 003500 

38 003501 

39 003502 

40 003503 

41 003505 

42 003507 

43 003510 

44 003512 

45 003513 

46 003514 

47 003515 

48 003515 

49 003517 

50 003520 

51 003522 

52 003523 

53 003525 

54 003526 

55 003530 

56 003532 

57 003534 



114000 
114000 
102200 
053421 
104200 
104200 
104300 
003432 
104200 
104200 
104300 
024324 
104302 
060012 
104300 
104205 
104207 
104653 
013532 
100673 
104653 
100673 
104653 
100673 
104203 
100673 
104203 
100673 
104207 
104203 
100673 
060002 
115001 
053515 
104307 
102207 
053515 
104207 
060006 
115001 
013532 

104653 
104134 
102204 
053532 
101204 
100134 
115400 
115400 
105205 
117400 



CHECK PASS 



001227 




LCHEC: 


CLR 


ERR 


001222 






CLR 


ERFLAG 


002000 


001220 




BIT 


«BSTGS,FLAG 






BNE 


LSKIP 


000001 


001452 




NOV 


#1.N 


000005 


001453 




mv 


#5.N1 


001453 


001454 




NOV 


N1 ,NN1 






BR 


LSKIP2 


000003 


001452 


LSKIP: 


NOV 


«3.N 
#20., N1 


000024 


001453 




NOV 


001453 


001454 




NOV 


N1 .HH^ 


LSKIP2: 


CALL 


LFIXIT 


000740 




LSKIP1 : 


NOV 


UNIT,R2 






XFC 


SIP 


001130 


001451 




NOV 


SECTRK.SECCNT 


006621 






NOV 


»CN0BUF,R5 


000721 




LAGAIN: 


NOV 


#RDBLK,RO 


000002 




NOV 


RB.CND(R5).R3 






BEQ 


LNOERR 


000004 






NOV 


R3«RU.CND(R0) 


000000 






NOV 


RB.LOU(R5),R3 


000002 






NOV 


R3.RU.l6u(R0) 


000001 






NOV 


RB.HI(R5),R3 


000003 






NOV 


R3,RU.HI(R0) 


004535 






NOV 


fROBUF ,R3 


000001 






NOV 


R3.RU.BUF(R0) 


000726 






NOV 


mLlN-1.R3 


000005 






NOV 


R3,RU.DUH(R0) 


100721 




READS: 


NOV 


f<BIT1S!R0BLK>.R0 


100000 






NOV 


#RDCND,R3 


000000 






NOV 


R3,RW.STAT(R0) 






XFC 
TST 
BNE 


READ 
R1 

LERR 


000721 






NOV 


RDBLK.RO 


0100C0 






BIT 


#ECCF,R0 






BNE 


LERR 


001440 






NOV 

XFC 
TST 
BEQ 


#NUN,RO 

CNPDAT 

R1 

LNOERR 






LERR: 




RB.IN(R5),R3 


000003 






NOV 






NOV 


(R3),R4 


020000 






BIT 


«BD,R4 






BNE 


LNOERR 


020000 






BIS 


fBD,R4 






NOV 


R4,(R3) 


001470 






INC 


RTYCNT 


001227 






INC 


ERR 


000004 




LNOERR: 


ADD 


«R0LEN,R5 


001451 






DEC 


SECCNT 



FOR ERROR COUNT RESET 

CLEAR REFORMAT FLAG 

BEST GUESS ? 

YES - DO EXTENSIVE READ 

SET UP FOR STORE 

SET UP 

SAVE FUR LATER RESET 

SKIP EXTENSIVE READ SETUP 

EXTENSIVE REGULAR READ 

EXTENSIVE ERROR READS 

SAVE FOR LATER RESET 

EXECUTE IT 

GET SDI INTERCONNECT 

WAIT FOR PULSE 

LOAD SECTORS/TRACK 

POINT TO CONNAND BUFFER 

POINT TO READ CONNAND BLOCK 

READ CONNAND ZERO ? 

SECTOR BAD - SKIP CHECKS 

ELSE STORE IN CONNAND BLOCK 

LOAD LOU ORDER SECTOR NUNBER 

STORE IN CONNAND BLOCK 

LOAD HIGH ORDER BLOCK NUNBER 

STORE IN CONNAND BLOCK 

GET BUFFER POINTER 

STORE IN CONNAND BLOCK 

POINTER TO DUHNY SDI BLOCK 

STORE IN READ BLOCK 

NAXE SURE POINTING AT BLOCK 

RESET STATUS POINTER 

STORE IT BACK 

READ 1 SECTOR 

ANY ERRORS ? 

YES - UN OH 

GET STATUS VORD 

ECC ERROR ? 

YES - NARK AS BAD FOR NOW 
POINT TO COMPARE BLOCK 
DO DATA COMPARE 
ANY ERROR IN COMPARE ? 
NOPE - CONTINUE LOOP 

GET INAGE POINTER 

GET BUFFER POINTER UORD 

ALREADY BEEN HERE ?? 

YUP - DON'T COUNT AGAIN 

HARK AS BAD 

STORE BACK 

INC IT 

INCRENENT ERROR COUNT 

POINT TO NEXT READ CND BLOCK 

DECRENENT COUNTER 



L 
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1 SM FnRMATT IMH 

r vnn^ ill *iw 


nUFRI AV 


(f 21 


















BMF 




117&00 

■ If "f w 


001452 

VV 1 *t^C 






DEC 


W VV JV"t 1 


053433 








BNE 




11S000 

1 1 ^wW 


001227 






TST 

■ W 1 




014525 










Q03S4S 


104204 


007321 

Wf Jb < 






PlOV 


&4 005547 


104145 








NOV 

nw w 




10??05 


020000 






BIT 


66 003552 


014173 








BEQ 


67 00^553 


104645 


000002 






NOV 


Afl 003555 


101203 


007777 






BIC 


69 00'5557 


10620? 


000000 

WW WW 






CMP 


70 00§S61 


01 5565 








BEQ 


71 00^562 


1 06205 


060000 

WWW 






CMP 

b"' 


7? 005 5M 


0541 75 










75 003565 


104302 


000740 

WWi ~ V 




LSKIP8; 


MOV 

nw w 


74 003567 


060012 








**' V 


75 003570 


104207 


000721 

WW' •> 1 






NOV 

nw w 


76 003572 


104203 


000726 

WW ■ w 






MOV 

nww 


77 003574 


100673 


000005 

WWW ^ 






mv 

nw w 


78 005576 


104643 


000001 

www 1 






NOV 


79 003600 


100673 

I Wv ■ ^ 


000002 

w WWt 






NOV 

nw w 


80 005602 


104&43 


000002 

WWWWfc 






NOV 

nw w 


81 005604 


100675 


000005 

www J 






NOV 

nw w 


8? 005606 


1 04203 


004535 

Wf ^ 






NOV 

nw V 


85 C05610 


100675 


000001 

www 1 






NOV 


84 00561? 


1 04205 


01 3400 

W 1 W 






MOV 

nww 


85 CG3614 


101303 


001113 






BIS 

W A W 


86 005616 


'i 00673 

1 V w ■ ^ 


000004 

WW WWW" 






NOV 

nw w 


87 003620 


104207 


100721 

■ WW ■ b i 




READ4: 


NOV 

nw w 


88 003622 


104203 


100000 

I vwwww 






MV 

nw w 


89 003624 


100173 

V W < f ^ 








NOV 

nww 


90 003625 


104302 


000740 

WW' » w 






NOV 

nw» 


91 003627 


060002 

WWV& 








XFC 


92 003630 


115001 








TST 


93 003631 


053653 










94 003632 


104173 








NOV 

nww 


95 003633 


102203 


010000 

w ■ wwww 






BIT 


96 003635 


013641 








BEQ 


97 003636 


023000 








CALL 


98 003637 


115001 








TST 


99 003640 


073656 








BMI 


100 003641 








LSKIP6; 




101 003641 


106300 


001445 


004S3S 

w w~ ^ ^ ^ 




CMP 


102 003644 


053656 








BNE 


103 003645 


104207 


001440 

WW 1 ~~w 






NOV 

nwv 


104 003647 


060006 

WWW 








XFC 

n' V 


105 003650 


115001 








TST 


106 003651 


014163 








BEQ 

Wk V 


107 003652 


003656 








BR 

wn 


108 003653 


101200 


000040 

w www~ w 


001221 

WW 1 bfc I 


LER3: 


BIS 


109 003656 


102200 


000100 

www 1 WW 


001220 


LER1 • 


BIT 


110 003661 


053665 








BME 


111 003662 


115400 


001314 






INC 


112 003664 


004101 








BR 


113 003665 


104643 


000002 




LER2: 


NOV 


114 003667 


103203 


007777 






BIC 
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LAGAIN 
N 

LSKIP1 

ERR 

LDONE 

«INAGE.R4 

(R4),R3 

#BD,R3 

LSKIP7 

FT.HI(R4),R3 

#L0,R3 

«HD.LBN,R3 

LSKIP8 

«HD.RBN,R3 

LSICIP7 

UNIT,R2 

SIP 

#RDBLK,RO 

#HSLIN-1«R3 

R3,RU.0UPI(R0) 

1(R4),R3 

R3,RW.LOU(R0) 

2(R4),R3 

R3,RU.HI(R0) 

#RDBUF,R3 

R3,RU.BUF(R0) 

«RWCMD,R3 

CURTRK,R3 

R3,RU.Cm>(R0) 

#<BIT15!RDBLK>,R0 

#RDCND,R3 

R3,(R0) 

UN1T,R2 

READ 

R1 

LER3 

(R0),R3 

#ECCF«R3 

LSKIP6 

ECCCK 

R1 

LER1 

DURO,ROBUF 

LER1 

#NUN,RO 

CPfPOAT 

R1 

LOK 

LER1 

#B0H0,FLAG1 

«REVECT,FLA6 

LER2 

RCTBAD 

BDIRCT 

FT.NI(R4),R3 

«L0,R3 



NO - DO NEXT SECTOR 
DECREMENT COUNTER 

NO - REPEAT TRACK READ AND COMPARE 

ANY ERRORS ON FIRST PASS ? 

NO - ALL DONE CHECK PASS 

POINl TO IMAGE BUFFER 

GET BUFFER POINTER WORD 

IS IT BAD ? 

no - skip it 

get hi order block nun and hdr code 
Clear low order 
is it a "good" lbn 

YES - DO IT 

IS IT AN RBN ??? 

NOPE - ALREADY PROCESSED SKIP IT 

SDI INTERCONNECT 

WAIT FOR PULSE 

PREPARE FOR READ SECTORS 

POINTER TO DUMMY SDI BLOCK 

STORE IN COMMAND BLOCK 

LO ORDER tILOCK NUMBER 

STORE IN READ COMD BLOCK 

HI ORDER BLOCK NUH AND CODE 

STORE IN READ CMD BLOCK 

LOAD ADDRESS OF DATA BUFFER 

STORE IN COMMAND BUFFER 

LOAD SDI READ COMMAND 

SET CURRENT HEAD ADDRESS IN COMMAND 

STORE BACK 

MAKE SURE POINTING AT BLOCK 

MARK AS ONLY REQUEST 

STORE IN CMD SLOCK 

SDI INTERCONNECT 

READ 1 SECTOR 

ANY ERROR IN READ ? 

YES - CONSIDER BAD 

LOAD ECC ERROR INDICATOR FOR TEST 

TEST FOR ECC ERROR 

NO - CHECK EDC 

FIND OUT NOV MANY SYMBOLS IN ERROR 

TOO MANY ? 

YUP - CONSIDER BAD 

IS FIRST WORD O.K. ? 
NOPE - BARF 

POINT TO COMPARE BLOCK 
DO DATA COMPARE 
ANY ERROR IN COMPARE ? 
NO ERROR 

SKIP BAD HEADER FLAGGING 
FLAG AS BAD HEADER 
IN RCT 

NOPE - SKiP NEXT STUFF 
INC BAD COUNTER 
THEN MARK BAD 

GET HI ORDER BLOCK NUN AND HDR CODE 
CLEAR LOW ORDER 
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115 003671 

116 003673 

117 00367A 

118 003676 

119 003700 

120 003703 

121 00370A 

122 003706 

123 003711 
12A 0037U 

125 003716 

126 003720 

127 003723 

128 00372A 

129 003726 

130 003730 

131 003751 

132 003733 

133 003735 

134 00373' 

135 00374 

136 0037*3 

137 003/'45 

138 003746 

139 003747 
14C 003750 

141 003751 

142 003752 

143 003754 

144 003756 

145 003760 

146 003761 

147 003763 

148 003765 

149 003766 

150 003770 

151 003773 

152 003774 

153 003776 

154 004001 

155 004002 

156 004004 

157 004006 

158 004010 

159 004012 

160 004013 

161 004015 

162 004016 

163 004020 

164 004022 

165 004024 

166 004026 

167 004030 

168 004G32 

169 004034 

170 004035 

171 004037 



106203 
013774 
104643 
103203 
102200 
054116 
104030 
101200 
101200 
101203 
100643 
104640 
104042 
104207 
104204 
022730 
104307 
104301 
105301 
101201 
104205 
104203 
100257 
100251 
117403 
053745 
104024 
104205 
104642 
103202 
101052 
100642 
104202 
022600 
100623 
103200 
004130 
117400 
102200 
014073 
104203 
104632 
103202 
106202 
014016 
105203 
004004 
104632 
103202 
101202 
100632 
104202 
104635 
103205 
101025 
100635 
104305 



060000 

000002 
170000 

001000 001220 
000732 

001000 001220 
000004 001221 
050000 
000002 

000001 000731 

001053 
000731 

001152 
001153 
001324 
060000 
006204 
000200 



006204 
000000 
007777 

000000 
006204 

000400 

000040 001221 

001450 BRBN: 
001000 001220 



007321 
000002 
007777 
050000 

000003 

000002 
170000 
030000 
000002 
005567 
000000 
007777 

000000 
001253 



CNP «HD.RBIll«R3 

BEQ BRBN 

mv F1.HI(R4>,R3 

BIC fHD.CLR,R3 

BIT #PRin,FLAG 

BNE SNO 

NOV R3.DDUmY^1 

BIS «PRin,FLAG 

BIS fRPRIN,FLAG1 

BIS #HD.PRV,R3 

NOV R3,FT.HI(R4) 

NOV FT.L0W(R4)«DDUHNY 

NOV R4«R2 

NOV #SCR,RO 

NOV fD0UNHY,R4 

CALL PRINRB 

NOV REVRBN.RO 

NOV REVRBN^I.RI 

ADD ST.RBN.R1 

PIS fHD.RBN.RI 

NOV fPRHBUF,R5 

NOV «RBNRPT«R3 

RPT1: NOV R0,(R5)« 

NOV R1,(R5)« 

DEC R3 

BNE RPT1 

NOV R2,R4 

NOV «PRNBUF,R5 

NOV FT.BUF(R4),R2 

BIC «6UFNSK,R2 

BIS R5,R2 

NOV R2,FT.BUF(R4) 

NOV fPRNBUF,R2 

CALL CEDC 

NOV R3,RU.EDC(R2) 

BIC «6DHD,FLAG1 

BR LSND 

DEC ERRCNT 

BIT fPRIN.FLAG 

BEQ 7$ 

NOV fINAGE,R3 

5$: NOV FT.HI(R3),R2 

BIC «L0,R2 

CNP fHD.PRV.R2 

BEQ 6S 

ADD fINLEN»R3 

BR 5S 

6S: NOV FT.HI(R3>.R2 

BIC «HD.CLR,R2 

BIS «HD.REV«R2 

NOV R2,FT.HI(R3) 

NOV «G0BLK,R2 

NOV FT.BUF(R3),R5 

BIC f8UFNSK«R5 

BIS R2,R5 

NOV R5.FT.BUF(R3) 

NOV ERPNT,R5 
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IS JT A BAD RBN ? 

rUP - 60 HANDLE IT 

RELOAD HEADER 

CLEAR THE HEADER 

ANY PRINARY YET ? 

YUP - THIS ONE SECONDARY 

STORE HIGH ORDER FOR RBN CONPUTATION 

SET PRINARr FLAG 

SET 6000 RBN EOC NEEDED 

NARK AS PRINARY 

STORE BACK IN INA6E 

STORE LOU ORDER FOR RBN COMPUTATION 

SAVE INAGE POINTER 

NAKE SURE POINT TO CHAR BLOCK 

POINT TO BLOCK NUNBER 

GET PRINARY RBN NUNBER 

GET NUNBER OF REVECTORED RBN 

GET HIGH ORDER 

ADD STARTING RBN BITS 

SET IN RBN HEADER CODE 

USE RD6UF TO HOLD 128 COPIES OF RBN 

COUNT OF REPLICATED RBN'S 

STORE A COPY 

AND HIGH ORDER 

DECREMENT COUNTER - DONE ? 

NO - STORE ANOTHER COPY 

RESTORE INAGE POINTER 

POINT TO BEGINNING OF BUFFER 

GET BUFFER POINTER 

CLEAR ONLY SUFFER POINTER 

OR IN NEW BUFFER POINTER 

STORE IT BACK 

FOR EDC CONPUTATION 

COMPUTE IT 

STORE IT 

iMN*T TO STAY PRINARY 
BRANCH AROUND SECONDARY 

DEC ERR CNT SO PRINARY STATS WILL BE RIGH^ 

IS THERE A PRINARY ON THIS TRACK ? 

NO - SKIP HEADER RESET 

POINT TO FORNAT TABLE 

GET HEADER WORD 

CLEAR ALL BUT HEADER 

IS IT THE PRINARY ? 

YES - DONE 

NO - POINT TO NEXT ENTRY 

CHECK NEXT ENTRY 

RESET TO HI ORDER 

CLEAR HEADER 

NARK AS SECONDARY 

STORE BACK 

POINT TO GOOD BLOCK 

GET BUFFER POINTER AND FLAGS 

CLEAR ONLY BUFFER POINTER 

OR IN NEU BUFFER POINTER 

NOVE IN BUFFER POINTER AND FLAGS 

GET REVECTOR POINTER 
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179 nA/.A/.1 


1 A99AA 


A3AAAA 


AA1 991 




BIT 


1 f 3 UwWm 


ACAAA^ 

UShOoO 










17/. A/\/.AZC 


1 A79AC 

lOf cU3 


A AAA A 7 




BC< 


CI IB 




1 A/.ilC3 


AAAAA1 

GOT??} 






MAI/ 

nuv 


17A AAZACI 








BIT 
Die 


177 AAZnCI 


1 AA,9n9 


ACAAAA 






mo 


1 7B i>A/,r.cc 


ACAA^C 
UjhUhp 








BMP 

one 


1 7Q 


1 A^AC9 
IUhOSc 


AAAAA1 






MAU 

nu» 




1 A19A9 


1 7AAAA 
1 r UUW 






Btr 

Bit 


1B1 nAZ.fWL9 


1 A1 9A3 
1 U 1 CUc 


AXOAAO 










IUU09C 


AAAAA1 
UUUUU 1 






HAU 

nuv 


1 At AA^fW^ 


1 1 CAAA 
1 1 jhUU 


AA1 AA7 

WIHOf 




o<> 




1BZ. fknz.n7n 


1 AT9AA 


AAAAA/ 


ftA1 991 
UU lec 1 




Btr 

BIL 


1 ftn£.f\yx 

103 UU*iUr3 


1 AT9AA 


AAAA^A 


AA1 991 
UU Ice 1 


7C> 


Btr 

Bl V 


1BA (V>/,07A 
loo UU*lUrO 


1A19AA 


AA1 AAA 


AA1 990 
UUIccU 




ore 


1B7 AA^IAI 
lor UII*>iUi 


IUhOhO 


AAAAA9 




DUIKL 1 • 


MAU 

nuv 


loo UUhiUJ 




1 r UUUU 






Bib 


IOt W*iiU3 


1 A1 9n'T 

1 U 1 cUO 


1 1 OOAA 
1 1 UUUU 






BfC 
Bla 


1QA tVU.M\7 


1 AA^'X 
1 UUOhj 


Aoono9 






MAU 

nuv 


1Q1 AA^m 
1 r 1 W*> 1 1 1 


1 A99AA 


UUUlUU 


nOI 990 
UU 1 ccU 




Rf T 
Bl 1 


1Q3 nn^^^L 


ncAixn 

U7H 1 jni 








one 


1 7^ UVh I 1 J 


AA/1 
UUh iOO 








BD 
BK 


1 0/. AA/. 11 A 




AAA AAA 
UUUUhU 


AA1 991 
UUIccI 




BIT 
Bl 1 


IOC AA£191 


ACZ.1 A1 








BNC 


1QA AA^133 
1 TO W* 1 


1A1 9AT 
lU icU3 


ATOnOA 
UjUUvU 






BfC 
819 


107 AAA13A 


lAAA^T 


000002 






MAU 

nu¥ 


1 0B AA/. 1 
1 TO UUh I cO 


1 1 CZ.AA 
1 1 jhUv 


AA1 AA7 
UU IhO£ 






f kir 
int 


lOQ AA^Im 


1 1 3hvV 


001999 
UU 1 CCC 






ink 


?AA nA£179 


lAAXAT 
IUh3v3 


0019CX 
UU \Cj3 






HAU 

nuv 


i UUH i J** 


inAA£9 

IUHOHC 


OOOAAI 






nuv 


CMC Wt 1 JO 




vUUUVC 






MOV 

nuv 




IUhOhc 






MOV 

nuv 


jni. AAA1Z1 


in99nn 


WWWHU 


001991 
VU 1 CC 1 




Rf T 


7nC AA^1^£ 


V I H 1 JO 








RFO 


cUO WHIH^ 


in^9ft9 


170000 

1 » UWw 






Rf r 

Ol K 


CW« WH iff 


101909 


0^0000 

UJvUW 






Rf < 


9fkfi AAZ1 CI 
CWO V\lH 13 1 


11CA0A 

1 1 3HW 


001 &A7 

UV IHOr 






fMP 
ink 


CW7 1 J J 


1009*9 

1 WVCJC 








MOV 

nuv 


C 1 V WH 1 31 


10A0V} 


001 9^^ 
Uv 1 CV3 






MOV 
nuv 


911 0A£1C<^ 

C 1 I WH 1 jO 


11<;zOO 

1 1 3HW 


001 9SS 






I Mr 


919 AAAIAn 

c 1 C WH 1 OU 


II^AOO 


001 £ SO 

W IH3V 






fMf 


91T A(U1A9 

C 1 J UV* IOC 


WH 1 WW 








on 




117^00 

1 1 r HW 


W IH3w 




1 flit • 


&Fr 

VCb 


91C nn^iAC 

c 1 J W*i I03 


ACVCZ7 
V3 J3Hr 








one 


91A OA^IAA 
C lO W*l lOO 


IO^Iaa 

lUHJVU 


001 & SI 

uv IH3H 


001 4 

uv IH3J 




MOV 

nuv 


917 ^^^^L.^7^ 


1 17AflO 

1 I r HW 


001997 
UU Iccr 








9111 AA^17t 

c 1 0 vVI f f J 


10^900 


OOflOIO 

UVUVHW 


001991 
uv 1 CC 1 


1 $rfP7« 


Rf r 


910 M\C^7ft 
C 1 7 WH 1 fO 


10^90A 


OOOOOX 

UWW3 






KtfV 


99n (VU9nA 


11CAAA 
1 1 3 WW 


001 9P7 

Uv 1 CC r 






TST 


991 AA£9n9 


0CX^£7 

w3J3Hr 








RMF 


999 nfu3nx 


1 1CA00 
1 1 3 WV 


001999 
VU i CCC 






TST 


223 004205 


014323 








BEQ 


224 004206 


104207 


006621 






flOV 


225 004210 


104301 


001445 






NOV 


226 004212 


100271 








NOV 


227 004213 


104204 


000125 






NOV 


228 004215 


104301 


001442 






NOV 
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fFPRIH.FLAGI 
9$ 

«ERLEN.R5 

1<R5).R2 

fL0,R2 

«HD.PRV,R2 

8S 

1(R5),R2 

fHD.CLR.R2 

«HD.REV,R2 

R2,1(R5) 

SNOCNT 

«RPRIH.FLAG1 

fBDHD«FLAG1 

fPRIN.FLAG 

FT.HI(R4),R3 

«HD.CLR«R3 

fHD.BAD.RS 

R3.FT.HI(R4) 

#REVECT,FLAG 

LSNO 

LSKIP3 

fBDHD.FLAGi 

BDIRCT 

fHD.REV«R3 

R3«FT.HI(R4) 

SNOCNT 

ERFLA6 

ERPNT,R3 

FT.LOU(R4},R2 

R2.(RS)> 

FT.HI(R4).R2 

fBOHO.FLAGI 

LSICIP9 

«H0.CLR,R2 

fND.REV.R2 

SNDCNT 

R2,(R3)* 

R3«ERPNT 

REVCNT 

ERRCNT 

LSKIP3 

N1 

LHERE 
NN1 ,N1 
ERR 

fB0H0,FLAG1 

«INLEN,R4 

ERR 

LHERE 

ERFLA6 

LDONE 

fRBNBUF.RO 
DMRD.R1 
R1.(R0)« 
#85., R4 
FURD.RI 



;UAS IT A PRIHARY FROM THE FCT ? 

;VES - UPDATE WILL MAKE IT SECONDARY 

:LOOK FOR PRIMARY BACKWARDS 

;6ET HIGH ORDER 

.CLEAR LO STUFF 

;IS IT THE PRIMARY ? 

;N0 - KEEP LOOKING 

;GET HIGH ORDER AGAIN 

; CLEAR THE HEADER 

;NAKE IT SECONDARY 

.-STORE IT BACK 

;INC SECONDARY COUNTER 

:DON*T NEED GOOD EDC ANY LONGER 

; CLEAR SO WILL PUT IN AS RBN 

;SET SO NONE WILL BE PRIMARY 

.•RELOAD HEADER 

; CLEAR THE HEADER 

.-NARK AS BAD 

.'STORE BACK IN IMAGE 

'IN RCT "* 

•NO - PUT IN TO RE VECTOR 
:ELSE DO NEXT ENTRY 
;8AD HEADER ? 
;YUP - MARK AS BAD 
.-MARK AS SECONDARY 
.STORE BACK IN IIIAfiE 
*INC IT 

;SET RE-FOWIAT FLA6 
.'STORE BACK 

;6ET LOU ORDER BLOCK NUMBER 

.•STORE FOR RCT UPDATE 

;6ET HI6N ORDER 

.-BAD HEADER ? 

:N0 - HANDLE AS USUAL 

;ELSE CLEAR BAD HEADER CODE 

;AND PUT IN SECONDARY CODE 

:INC SECONDARY COUNT 

: STORE FOR RCT UPDATE 

; STORE BACK 

.•INCREMENT IT 

.•UP COUNTER OF BAD BLOCKS 

.•NO NEED TO RE-READ ANY MORE THIS SECTOR 

:DECREMENT COUNTER 

:Na - RE-READ SECTOR IN ERROR 

:€ET SAVED VALUE 

.-DECREMENT IT 

.•CLEAR BAD HEADER FLAG 

.•POINT TO NEXT CNTRY 

.•DONE ALL SECTORS ? 

;N0 - DO NEXT SECTOR 

.•WERE THERE ANY BAD SECTORS FOUND 

:NOPE - ALL DONE 

.•POINT TO RBN BUFFER 

.DIAGNOSTIC WORD 

.•STORE IT 

.•SET COUNTER OF TRIPLE WORDS 
.•FIRST WORD OF PATTERN 
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SEO 292 



229 004217 

230 004221 

231 0C4223 

232 004224 

233 004225 

234 004226 

235 004227 

236 004230 

237 004232 

238 004233 

239 004236 

240 004237 

241 004241 

242 004243 

243 004245 

244 004247 

245 004251 

246 004252 

247 004234 

248 004255 

249 004257 

250 004261 

251 004262 

252 004264 

253 004266 

254 004270 

255 004272 

256 004274 

257 004276 

258 004300 

259 004301 

260 004302 

261 004303 

262 004305 

263 004310 

264 004311 

265 004312 

266 004313 

267 004316 

268 004317 

269 004320 

270 004322 

271 004323 



104302 
104303 
100271 
100272 
100273 
117404 
054223 
104302 
100272 
102200 
014264 
104203 
104205 
104632 
103202 
106202 
014255 
105203 
004243 
104632 
103202 
101052 
100632 
104304 
104303 
104307 
104301 
104302 
104205 
060001 
115001 
014320 
115400 
106300 
073366 
022362 
022234 
104300 
022242 
004264 
114000 
003377 
000000 



001443 
001444 



001447 

000004 001221 

007321 
005567 
000002 
007777 
060000 

000003 

000000 
007777 

000000 
001322 
001321 
001320 
001113 
000740 
007321 



000717 

001477 000717 



001460 001101 
000717 



MOV 
MOV 

LOVER: MOV 
MOV 
MOV 
DEC 
BNE 
MOV 
MOV 
BIT 
BEQ 
MOV 
MOV 

L0VER4: NOV 
BIC 
CMP 
BEQ 
ADO 
BR 

L0VER3: MOV 
BIC 
BIS 
MOV 

L0VER2: MOV 
MOV 
MOV 
MOV 
MOV 
MOV 

xrc 

TST 

BEQ 

INC 

CMP 

BMI 

CALL 

CALL 

MOV 

CALL 

BR 

L0VER1: CLR 
BR 

LDONE: RETURN 



SWRD,R2 

TURD,R3 

R1,(R0)> 

R2.(R0)* 

R3,(R0)* 

R4 

LOVER 

BA0EDC,R2 

R2,(R0)* 

#RPRINJLAG1 

L0VER2 

#IMAGE,R3 

#GDBLK.R5 

FT.HI(R3),R2 

#L0,R2 

#HD.RBN,R2 

LOVERS 

#INLEN,R3 

L0VER4 

FT.BUF(R3),R2 

f6UrNSK,R2 

R5,R2 

R2.FT.BUF(R3) 

DPREA,R4 

HPREA,R3 

IMSTAR.RO 

CURTRK.R1 

UNIT,R2 

f IMAGE, R$ 

FORMAT 

R1 

L0VER1 
UN.ERI 

RETRY.UN.ERI 
FORERR 
INITPT 
CLEAR 

CURGRP.IS£EK*3 

SEEK 

L0VER2 

UN.ERI 

LCHEC 



SECOND WORD OF PATTERN 
THIRD UORD OF PATTERN 
STORE IT 
STORE IT 
STORE IT 

DECREMENT COUNTER 
REPEAT TILL DONE 

EDC FOR PATTERN (FORCED ERROR IND) 
STORE IT 

NEED GOOD RBN EDC ??? 
NOPE 

POINT TO IMAGE 
POINT TO GOOD BLOCK 
GET HI ORDER 
CLEAR JUNK 
IS IT THE PRIMARY ? 
YUP - HANDLE IT 
CHECK NEXT ENTRY 
TRY AGAIN 

GET BUFFER POINTER 
CLEAR ONLY BUFFER POINTER 
SET IN NEW BUFFER POINTER 
STORE IT 

DATA PREAMBLE LENGTH 

HEADER PREAMBLE LENGTH 

POINT TO TRACK IMAGE START POINT 

CURRENT TRACK NUPBE!; 

SDI INTERCONNECT 

RECIRCULATION ADDRESS 

RE-FORMAT 

ANY PROBLEMS ?? 

NO - 00 CHECK PASS 

INCREMENT IT 

r^'ONE ALL RETRIES ? 

JP - ERROR 
RE INI T 
DRIVE CLEAR 
GROUP 

RE-SEEK AND GROUP SELECT 
NOPE - RETRY 
CLEAR RETRY COUNT 
RE-CYCLE CHECK PASS 



1 
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S£0 293 



1 
2 
3 
4 










mkiC TBI 


5 
6 


004324 


« A « 9 A A 

104300 


AA4 4 9A AA4 / C4 

001130 001451 


1 r f w 1 T • 

LF JXIT: 


MAli 

nOV 


7 


004327 


4 A y 1A9 

104207 


AA^ Z ^4 

006621 




MAli 


8 


004331 


1 04205 


AA9T^i 

007321 




iinu 


9 


004333 


4 A/ 9A9 

104303 


AA1 

001 234 






10 


004335 


4 AC A9C 

105035 






ADD 


11 


004336 


4 A/ ACA 

104050 


AA4 

001233 






12 


004340 


4 A/ X.C9 

104653 


AAA A A 1 

000002 






13 


AAJ 9J 1 

004342 


4 A9'^A9 

103203 


007777 






14 


A A4 ^ M £ 

004344 


4 A^ '1A9 

106203 


AAAAAA 

000000 






15 


004346 


A4 £ 9^A 

014360 








16 


004S47 


4 A^ 1A9 

106203 


A^ A AAA 

060000 




Cnr 


17 


AAJ 9^4 

004351 


A4 S 9Z. A 

014360 






pen 


18 


AA^ 

004352 


4 4/ AA9 

114003 






ri D 


19 


AA^ 9Cf T 

004353 


4 /\A^ 99 

100673 


AAAAAA 

000002 




flOV 


20 


AA/ 9CC 

004355 


4 AC^A9 

105207 


AAAAAA 
00000^ 




Ann 
ADD 


21 


AA/ 

004357 


AA/ 99/ 

004374 




rLKirc- 


DB 

BR 


22 


AAf 9^ A 

004360 


4 A/ ^ P9 

104653 


AAAAA1 

000001 


MAli 


23 


AA / 9^ 1 

004362 


4 AA199 

100273 


AAAAAA 

000002 




MAli 


24 


004363 


4 AJ ^ C9 

104653 




MAU 


25 


004365 


4 AA199 

100273 






MAU 


26 


004366 


4 A/ 1A9 

104203 


A4 9/ AA 

01 3400 






27 


AA^ 99 A 

004370 


4 A4 9A9 

101303 


AA 1 1 4 T 

001113 




B t C 

Bid 


28 


AA« 991 

004372 


4 AA^99 

100273 






MAU 


29 


AA/ 9 W 

004373 


4 /VA^9C 

100275 






nUV 


30 


004374 


4 AC9AC 


001235 


CI V tDI • 

r LKlr 1 : 


Ann 
ADD 


31 


AA/ 99^ 

004376 


4 AZ 9AC 

106305 


AA1 OTO 

001232 






32 


AA/ / A A 

004400 


A4 / / A9 

014407 






Dcn 
BcH 


33 


AA/ / A4 

004401 


034411 






DDI 

BrL 


34 


004402 


107305 


AA1 OTO 

001232 




CIIQ 


35 


004404 


103C03 


00 r 321 




Ann 
ADD 


36 


AA/ / A^ 

004406 


AAy y 1 1 

004411 






Bfi 

Bn 


37 


t\£\t i A9 

004407 


1 Ay "^AC 

104205 


00 f 321 


LNCDD: 


■nil 


38 


004411 


1 AXTAC 

l0o3U3 


00122^ 


CI rD1 • 


mo 


jy 












40 


004414 


105205 


000003 




ADD 


41 


004416 


104050 


001233 




nov 


42 


004420 


117400 


001451 


FKIP9: 


DEC 


43 


004422 


054340 






BNE 


44 


004423 


000000 






RETURN 



CONSTRUCT THE READ COMMAND TABLE 



SECTRK,SECCNT 

fCNDBUF.RO 

«INAGE«R5 

SKPCNT,R3 

R3,R5 

R5,STARIT 

2(R5).R3 

«L0«R3 

«HD.LBN,R3 

FLKIP2 

#HD.RBN«R3 

FLKIP2 

R3,RB.CnD(R0) 

«RDLEN,RO 

FLKIP1 

1(R5)-R3 

R3,(r6)^ 

2(R5).R3 

R3,(r6)* 

#RUCND,R3 

CURTRK,R3 

R3,(R0)^ 

R5,(R0)^ 

TBLK,R5 

E IMAGE, R5 

LREDO 

fLKPl 

EIMAGE,R5 

f IMAGE, R5 

fLKPl 

f IMAGE, R$ 

STARIT,R$ 

fKIP9 

#IMLEN,R5 

R5, STAR IT 

SECCNT 

LMORE 



;INIT COUNTER 

.•COMMAND BUFFER 

; POINT TO TRACK IMAGE 

;GET STARTING OFFSET(TUNED) 

; POINT TO FIRST ENTRY 

.•MARK STARTING ADDRESS 

;SET UP FOR HSR CODE COMPARE 

.•ISOLATE HI 4 eiTS(HDR CODE) 

:600D LBN ? 

;YES - NARK AS GOOD TO CHECK 
;GOOD RBN ? 

:YES - MARK AS GOOD TO CHECK 

; CLEAR FOR STORE 

; STORE AS BAD SECTOR FLAG 

.POINT TO NEXT BLOCK 

.SKIP GOOD MARK 

;L0 ORDER BLOCK NUMBER 

.•STORE IN R£AD COMO BLOCK 

;HI ORDER BLOCK NUM AND CODE 

.STORE IN READ CMD BLOCK 

.LOAD SDI R£AD COMMAND 

;SET IN CURRENT TRACK NUMBER 

.-STORE IN BLOCK 

;SAVE PTR TO IMAGE BLK ENTRY 

.ADD TO GET NEXT SECTOR 

:SEE IF HAVE TO LOOP BACK TO TOP 

;NEED TO RESET 

;N0 NEED - JUST CONTINUE 

.•SUBTRACT TO GET LOOP AHOUNT 

.AND ADD OFFSET 

:SKIP ZERO CONDITION 

:IF ZERO SIMPLY HOVE TO FRONT 

;AT BEGINNING ADDRESS ? 

;N0 - JUST CONTINUE 

;ELSE POINT TO NEXT ENTRY 

.-MAKE IT NEU STARTING ADDRESS 

.•DECREMENT 

;N0 - DO NEXT SECTOR 
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1 
2 
3 
4 

5 
6 
7 



004424 



003023 
003C26 

8 003030 

9 003032 

10 003034 

11 0C3036 

12 003040 

13 003042 

14 003044 

15 003046 

16 003051 

17 003053 

18 003055 

19 003057 

20 003061 

21 003063 

22 003065 

23 003067 

24 003071 

25 003073 

26 003100 

27 003103 

28 003104 

29 003106 

30 003107 

31 003112 

32 003115 

33 003115 

34 003117 
35 

36 
37 

38 003120 

39 003121 

40 003123 

41 003125 

42 003127 

43 003131 

44 003133 

45 003135 

46 003137 

47 003140 

48 003141 

49 003142 

50 003143 

51 003145 

52 003146 

53 003150 

54 003152 

55 003154 

56 003156 

57 003160 



104200 
104207 
104673 
103203 
104030 
104205 
104203 
104304 
100634 
103200 
104203 
100653 
104303 
100653 
104303 
103203 
101203 
100653 
105205 

102200 
053115 
117400 
053115 
101200 
104300 

117400 
053051 



104207 
104673 
103203 
104030 
104207 
104201 
104202 
104213 
100273 
117402 
053137 
104302 
! 00272 
104203 
100653 
104303 
100653 
104303 
103203 



000025 
001053 
000011 
177400 
001451 
007321 
005567 
001446 
000400 
001000 
005567 
000000 
001114 
000001 
001115 
170000 
000000 
000002 
000003 

000100 

001236 

020000 
001240 

001451 



001053 
000004 
177600 
001451 
006621 
005567 
000400 



001447 

006621 
OOCOOO 
001107 
000001 
001110 
170000 



.SBTTL LBN FORMAT IMAGE SE1 
OMOVLY F8. START 



001154 



001220 



001220 



001220 
001313 





SET UP 


TRACK FORMAT 


LTRK: 


MOV 


«r8,CUR0VL 




MOV 


«SCR,RO 




MOV 


LBNTRK(R0),R3 




BIC 


#HIBYTE.R3 




MOV 


R3,SECCNT 




NOV 


#IMA6E,R5 




MOV 


«GDBLK,R3 




MOV 


EDC,R4 




MOV 


R4,RU.EDC(R3) 




BIC 


fPRIM.FLAG 


LKIP2: 


MOV 


«GDBLK,R3 




MOV 


R3.FT.BUF(R5) 




MOV 


CURBN,R3 




MOV 


R3,FT.L0U(R5) 




MOV 


CURBN^1«R3 




BIC 


«HD.CLR«R3 




BIS 


«HD.L6N,R3 




MOV 


R3,FT.HI(RS) 




ADD 


flMLEN.RS 




DUBINC 


CURBN 




BIT 


fREVECT.FLAG 




BNE 


LKIP9 




DEC 


RCTTOT 




BNE 


LKIP9 




BIS 


fINlRCT.FLAG 




NOV 


FCNT.LBNBAD 


LKIP9: 






DEC 


SECCNT 




BNE 


LKIP2 



RBN SETUP 



PUSH R5 

NOV fSCR.RO 

NOV RBNTRK(R0).R3 

BIC #HI1BYTE,R3 

NOV RS^SECCNT 

LKIP8: NOV fRBNBUF.RO 

NOV «6DBLK,R1 

NOV «SECSI6.R2 

LKIP20: NOV (RD^.r! 

NOV R3,(R0)«^ 

•^EC R2 

BNE LKIP20 

NOV BADEDC,R2 

NOV R2,(R0W 

LKIP21: NOV «RBNBUF,R3 

MOV R3,FT.BUF(R5) 

NOV CURRBN,R3 

NOV R3,FT.LOU(R5) 

NOV CURRBN4^1,R3 

BIC m.CLR,R3 



OVERLAY (F8) 



GET OVERLAY OFFSET 

POINT TO CHARACTERISTICS BLOCK 

GET LBN'S/TRACK 

CLEAR HIGH BYTE 

USE AS COUNTER 

POINT TO TRACK IMAGE BUFFER 

POINT TO DATA BLOCK 

GET GOOD EDC 

STORE IN BUFFER 

CLEAR PRIMARY FLAG 

POINT TO GOOD DATA BLOCK 

STORE IN IMAGE BLOCK 

GET LOW ORDER BLOCK NUMBER 

STORE IN IMAGE BLOCK 

GET HIGH ORDER BLOCK NlfBER 

CLEAR HEADER 

SET IN LBN HEADER 

STORE IN IMAGE BLOCK 

POINT TO NEXT ENTRY 

INCREMENT BLOCK NUMBER 

STILL IN RCT AREA ? 

NO > NO NEED TO DECREMENT 

DECREMENT IT 

OUT OF RCT ? - NO 

SET TO REVECTOR 

GET FCT ENTRY COUNT - AFTER RCT 

DECREMENT COUNTER 
CONTINUE TILL DONE ALL 



SAVE POINTER TO FIRST RBN ENTRY 

POINT TO CHARACTERISTICS 

GET RBN'S/TRACK 

CLEAR HIGH GARBAGE 

USE AS COUNTER 

POINT TO RBN BUFFER 

POINT TO GOOD BLOCK 

COUNT OF UORDS IN SECTOR 

GET UORD 

STORE TI 

DECREMENT COUNTER 
00 WHOLE BUFFER 

EDC FOR PATTERN (FORCED ERROR IND^ 

STORE IT 

POINT TO BUFFER 

STORE IN IMAGE 

GET LOW ORDER RBN 

STORE IN INA6E 

GET HIGH ORDER RBN 

CLEAR HEADER 
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SEQ 295 



58 

59 
60 
61 
62 
63 

6<r 

65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
64 
85 
86 
87 
88 
89 
90 
91 
02 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 



003162 
003164 
003166 
003170 
003175 
003177 



003200 
003203 
003205 
003207 
003211 
003212 
003214 
003215 
003216 
003220 
003221 
003223 
003225 
003230 
003232 
003234 
003236 
003237 
003242 
003243 
003246 
003247 
003252 
003254 
003256 
003257 
003260 
003262 
003263 
003265 
003270 
003273 
003276 
003277 
003302 
003303 
003305 
003306 
003310 
003311 
003313 
003315 
003317 
003320 
003322 
003324 
003325 
003330 
003330 



101203 
10065? 
105205 

117400 
053146 



104300 
10^204 
104203 
104632 
110702 
103202 
115002 
013263 
115000 
013263 
104020 
114000 
104300 
114000 
104203 
104204 
021537 
106300 
033:<^7 
107300 
003237 
104200 
114000 
104203 
021537 
104143 
104304 
107034 
104040 
104300 
104300 
102200 
013523 
102200 
053523 
104302 
104121 
106010 
053500 
104621 
103201 
106010 
053500 
117400 
117400 
053330 
101200 

104643 



060000 
000002 
000003 

001451 



001130 
007321 
001053 
000011 

177400 



001460 

000736 
000737 
001460 
000732 
000736 
000731 

001130 

001130 

000003 
000737 
000736 



001232 

001320 
001124 
001125 
000001 

000002 

001224 

001111 

000001 
170000 
001112 

001475 
001240 

000002 

000002 



001451 



000731 

000731 
000731 
000736 



LKIP23: 
LK1P24: 



001111 
001112 
001220 

001220 



LKIP22: 
LKIP27: 



001220 



LKIP12: 



BIS #HD.RBN,R3 

MOV R3,FT.HI(R5) 

ADD #IMLEN,RS 

DUBINC CURRBN 

DEC SECCNT 

BNE LKIP21 



MOV SECTRK. SECCNT 

MOV #IMAGE,R4 

MOV #SCR,P3 

NOV 0FFS(R3),R2 

SWAB R2 

BIG «HIBYTE,R2 

TST R2 

BEQ LKIP22 

TST CUR6RP 

BEQ LKIP22 

MOV R2,TEMP 

CLR TEMP*1 

MOV CURGRP.DDUNMY 

CLR DDUMMY4-1 

MOV #TENP,R3 

NOV 4IDDUiWY,R4 

CALL DNUL 

CMP SECTRK, DDUNMY 

BPL LKIP24 

sue SECTRK, OOUNMV 

BR LKIP23 

NOV #IHLEN,TEMP 

CLR TEMP*1 

NOV #TENP,R3 

CALL DNUL 

NOV (R4),R3 

NOV EINAGE,R4 

SUB R3,R4 

NOV R4,INSTAR 

NOV HOLDPN,CURPBN 

NOV H0L0PN«1,CURPBN41 

BIT #FCTAVL,FLAG 

BEQ LKIP28 

BIT #FCTENT,FLAG 

BNE LKIP28 

NOV 6ADP6N.R2 

NOV (R2),R1 

CMP RncURPSN 

BNE LKIP4 

NOV 1(R2),R1 

BIC fHD.CLR.RI 

CMP R1 .CURPBN^I 

BNE LKIP4 

DEC PCNT 

DEC FCNT 

BNE LKIP12 

BIS #FCTEHT,FLA6 

NOV FT.HI(R4),R3 



SET IN RBN HEADER 
STORE IN IMAGE 
POINT TO NEXT ENTRY 
INCREMENT RBN NUMBER 
DECREMENT COUNTER 
CONTINUE TILL DONE 



SET UP COUNTER 

POINT TO IMAGE 

POINT TO CHARACTERISTICS 

GET GROUP OFFSET 

GET INTO LOUBYTE 

CLEAR HIGH GARBAGE 

ANY OFFSET ? 

NO - SKIP CALCULATIONS 

IS GROUP ZERO ??? 

YES - NO OFFSET 

STORE IT 

FOR STORE 

GET CURRENT GROUP 

CLEAR HIGH WORD 

FOR NUL 

DITTO 

MULTIPLY TO GET OFFSET FOR THIS GROUP 

IS TOTAL OFFSET MORE THAN NUMBER OF SECTORS ? 

NO - ALL IS FINE 

YES - SUBTRACT TILL IT IS 

CHECK AGAIN 

GET LENGTH OF IMAGE BLOCK 
FOR STORE 
FOR NULT 

GET LENGTH TO OFFSET 
GET RESULT 

GET ADDRESS OF END OF IMAGE 

SUBTRACT TO GET STARTING LOCATION 

STORE INAGE POINTER 

GET LOU ORDER PBN 

GET HIGH ORDER 

IS FCT AVAILABLE ? 

NO - ASSURE BLOCK GOOD 

FCT EMPTY ? 

YUP - BLOCKIS 6000 

GET FCT POINTER 

GET LOU ORDER BAD PBN 

ARE THEY EQUAL ? 

NO - SKIP REST OF CONPARE 

GET HIGH ORDE^ 

CLEAR THE HEADER 

ARE THEY EQUAL ? 

NO - MUST BE GOOD 

DECREMENT IT 

DECREMENT FCT COUNT 

IF NON - ZERO SKIP FLAG SET 

SET ENPTY FLAG 



;GET HEADER UORD 
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LBN FORMAT IMAGE SETUP OVERLAY 


115 


003332 


103203 


007777 


116 


003534 


106203 


060000 


117 


003336 


053343 




118 


003337 


101200 


001000 


119 


003342 


003465 




120 


003343 


102200 


000100 


121 


003346 


053352 




122 


003347 


1 1 5400 


001314 


123 


003351 


003465 




124 


003352 


104623 


000001 


125 


003354 


102203 


100000 


126 


003356 


013444 




127 


003357 


101200 


001000 


128 


003362 


101200 


000004 


129 


003365 


101200 


020000 


130 


003370 


104643 


000002 


131 


003372 


103203 


170000 


132 


003374 


101203 


050000 


133 


003376 


100643 


000002 


134 


003400 






135 


003401 


104207 


001053 


136 


003403 


104204 


001114 


137 


003405 


022730 




138 


003406 






139 


003407 


104307 


001152 


140 


003411 


104301 


001153 


141 


003413 


105301 


001324 


142 


003415 


101201 


060000 


143 


003417 


104205 


006204 


144 


003421 


104203 


000200 


US 


003423 


100257 




146 


003424 


100251 




147 


003425 


117403 




148 


003426 


053423 




149 


003427 


104203 


006204 


150 


003431 


100643 


000000 


151 


003433 


105200 


000002 


152 


003436 


104202 


006204 


153 


003440 


022600 




154 


003441 


100623 


000400 


155 


003443 


003500 




156 


003444 






157 


003444 


115400 


001467 


158 


003446 


102203 


010000 


159 


003450 


053465 




160 


003451 


104643 


000002 


161 


003453 


103203 


170000 


162 


003455 


101203 


030000 


163 


003457 


100643 


000002 


164 


003461 


105200 


000002 


165 


003464 


003500 




166 


003465 






167 


003465 


104643 


000002 


168 


003467 


103203 


170000 


169 


003471 


101203 


110000 


170 


003473 


100643 


000002 


171 


003475 


105200 


000002 



001220 
001220 



LICIP25! 



6S: 



001220 
001221 
001221 



RPT: 



LICIP5: 



NARBAO: 



BIC #L0,R3 

CMP #ND.RBN,R3 

BNE LKIP25 

BIS miM.FLAG 

BR MARBAO 

BIT «REVECT,FLAG 

BNE 6$ 

INC RCTBAD 

BR MARBAD 

MOV 1(R2),R3 

BIT #PRMY,R3 

BEQ LKIP5 

BIS #PRIN«FLAG 

BIS fRPRinjLAGI 

BIS #FPRIN,FLAG1 

NOV FT.HI(R4).R3 

BIC fHD.CLR.RS 

BIS #HD.PRV2R3 

MOV R3«FT.Hi(R4) 

PUSH R4 

NOV #SCR,RO 

MOV #CURBN,R4 

CALL PRINRB 

POP R4 

MOV REVRBN.RO 

NOV REVRBN^I.RI 

ADD ST.RBN,R1 

BIS #HD.RBN,R1 

NOV #PRMB0r,R5 

NOV #RBNRPT,R3 

NOV R0,(R5}« 

NOV R1,(R5)« 

DEC R3 

BNE RPT 

NOV #PRNBUf,R3 

NOV R3,FT.BUF(R4) 

ADO #2,BA0PBN 

NOV 4rPRHeUF«R2 

CALL CEDC 

NOV R3,RW.E0C(R2) 

BR LKIP4 

INC SNDCNT 

BIT #FBDHD,R3 

BNE HARBAD 

NOV FT.HI(R4).R3 

BIC #HD.CLR,R3 

BIS #H0.REV,R3 

NOV R3,FT,HI(R4) 

ADO #2,BADPBN 

BR LKIP4 

NOV FT.HI(R4),R3 

BIC fH0.CLR,R3 

BIS #H0.BAD,R3 

NOV R3.FT.HI(R4) 

ADD «2,BADPBN 



CLEAR ALL BUT HEADER 

IS IT AN RBN ? 

NOPE - SKIP RBN STUFF 

SO WON'T GET PRIMARY ON CHECK PASS 

GO NARK AS BAD 

IN RCT ? 

NO - SKIP RCT STUFF 

INCREMENT IT 

GO MARK BAD 

GET BAD P6N HDR 

:S IT SECONDARY ? 

YES - GO DO IT 

SET FLAG FOR PRIMARY FOIjND 

SET 6000 EOC NEEDED 

SET PRINARY IN FCT FLAG 

GET HIGH ORDER HEADER 

CLEAR HEADER CODE 

NARK AS PRIMARY REVECTOR 

STORE IN INAGE BLOCK 

SAVE INAGE POINTER 

NAKE SURE POINT TO CHAR BLOCK 

POINT TO BLOCK NUNBER 

GET PniNARY RBN NUMBER 

RESTORE INAGE POINTER 

GET NUNBER OF REVECTORED RBN 

GET HIGH ORDER 

ADO STARTING RBN BITS 

SET IN RBN HEADER CODE 

USE ROBUf TO HOi.& 128 COPIES OF RBN 

COUNT OF REPLICATED RBN*S 

STORE A COPY 

AND NIGH ORDER 

DECRENENT COUNTER - DONE ? 

NO - STORE ANOTHER COPY 

POINT TO BEGINNING OF BUFFER 

STORE NEW BUFFER PTR IN INAGE 

INCRENENT BADFBN POINTER 

POINT TO BUFFER 

COMPUTE EDC - RETURNED IN R3 

STORE IT 

SKIP SECONDARY REVECTOR 
INC IT 

HEADER IN ERROR CODE IN FCT ? 

YUP - NARK BAD 

GET HIGH ORDER HEADER 

CLEAR HEADER CODE 

SET HEADER TO SECONDARY REVECTOR 

STORE IN INAGE 

INCRENENT BADPBN POINTER 

SKIP GOOD NARK 

GET HIGH ORDER HEADER 
CLEAR HEADER CODE 
NARK AS BAD 
STORE IN INAGE 
UPDATE COUNTER 
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^72 003500 LICIP4: 

173 003500 105204 000003 ADD 

174 003502 106304 001232 CMP 

175 003504 053507 BNE 

176 003505 104204 007321 MOV 
.77 003507 LKIP29: DUBINC 
176 003514 115000 001475 TST 
179 003516 053520 BNE 
160 003517 023573 CALL 

181 003520 117400 001451 LKIP10: DEC 

182 003522 053273 BNE 
183 

184 003523 102200 000004 001221 LKIP28: BIT 

185 003526 013540 BEO 

186 003527 103200 000004 001221 BIC 

187 003532 POP 

188 003533 104203 005567 MOV 

189 003535 100643 000000 MOV 

190 003537 003541 BR 
191 

192 003540 LKIP7: POP 

193 003541 104304 001320 LKIP33: MOV 

194 003543 104303 001232 MOV 

195 003545 107203 000003 SUB 

196 003547 106043 CMP 

197 003550 013556 6EQ 

198 003551 104135 MOV 

199 003552 101205 040000 BIS 

200 003554 100135 MOV 

201 003555 003561 BR 

202 003556 101200 040000 001320 LKIP30: BIS 

203 003561 104143 LICIP31: MOV 

204 003562 101203 100000 BIS 

205 003564 100143 MOV 

206 003565 104204 001124 MOV 

207 003567 104203 001130 MOV 

208 003571 021521 CALL 

209 003572 000000 RETURN 



#IMLEN,R4 

EI MAGE, R4 

LKIP29 

#IMAGE,R4 

CURPBN 

PCNT 

LKIP10 

FCPC 

SECCNT 

LKIP27 

«RPRIN«FLA61 

LICIP7 

#RPRIM,FLAG1 
R4 

#GDBLK,R3 

R3,FT.BUF(R4) 

LKIP33 

R4 

IMSTAR,R4 

EI MAGE, R3 

#IMLEN«R3 

R4,R3 

LICIP30 

(R3).R5 

#RECiR.R5 

R5,(R3) 

LICIP31 

fRECIR.IMSTAR 

(R4),R3 

»LAST,R3 

R3,(R4) 

#H0LDPN,R4 

#SECTRK,R3 

DSUB 



POINT TO NEXT IMAGE ENTRY 

AT THE END ? 

NOPE - CARRY ON 

POINT TO START 

DO THE INCREMENT 

DONE WITH THIS BLOCK OF PBNSV 

IF NOT DONE SKIP 

ELSE PAGE IN NEU FCT BLOCK 

DECREMENT IT 

NO - DO NEXT BLOCK 

NEED GOOD EOC ? 
NOPE 

CLEAR FL/«G 

GET POINTER TO FIRST RBN ENTRY 
GET GOOD EDC BLOCK 
STORE IT IN BUFFER POINTER 
SKIP POP 

POP STACK (RBN RNTRY ADDRESS) 
POINT TO FIRST TO FORMAT ENTRY 
GET END ADDRESS 
IPOINT TO FLAG OF LAST ENTRY 
; FIRST = LAS? ? 
NO - SKIP SPECIAL STUFF 
;GET FLAG UORD 
rSET RECIRCULATION FLAG 
; STORE IT BACK 
;SKIP KLUDGE FIX TO UOA 
;SET BIT IN POINTER 
;GET BUFF POINTER 
; SIGNAL AS LAST 
; STORE IT BACK 
;FOR DECREMENT 
;OITTO 

ISUBTRAC TO GET NEXT TRACK 



« 7 



^^^^ 25-AU6-82 14:02:32 PAGE 57 

LBN FORMAT IHAGE SETUP OVERLAY (F8) 



1 
2 
3 
4 
5 
6 
7 



003573 
003575 
003600 
003601 

8 003604 

9 003606 

10 003607 

11 003612 

12 003614 



102200 
053612 
104200 
104201 
022435 
104200 

000000 



000002 001220 



005152 
000017 



001254 



000200 001475 



PAGE IN NEXT PCT BLOCK 



FCP6: PUSH R5,R4 

BIT #FCTEHT.FLAG 

BNE IS 

NOV #PBNBUF,BUFPNT 

HOV #F6,R1 

CALL PAGE 

HOV #128.,PCNT 

U: POP R4,R5 
RETURN 



;SAVE R5 AND R4 
.•EMPTY FCT 

;YUP - DON'T GET BLOCK 
; POINT TO BUFFER 
.•OVERLAY F6 DOES IT 
.•EXECUTE IT 
.•RESET COUNT 
.RESTORE R4 AND R5 
.•RETURN 



UDAFH > UDA FORMATTER DMACR X04.01 23-AU6- 
L/RBN COMPUTE OVERLAY (G8) 

1 



4 
5 

6 003615 
7 









WWjC 


nm 1 

Wl 1 1 3h 


10 


003026 


104207 


001053 




11 


003030 


023060 
'.04140 






12 


003031 


001114 




13 


003033 


104140 


001120 




U 


003035 


104640 


000001 


001115 


15 


003040 


104640 


000001 


001121 


16 


003043 


023120 






17 


003044 


104140 


001107 




18 


003046 


104640 


000001 


001110 


19 


003051 


104140 


001122 




20 


003053 


104640 


000001 


001123 


21 


003056 


023160 






22 


003057 


000000 







N 7 

14:02:32 PAGE 58 



SEQ 299 



.S8TTL L/RBN COMPUTE OVERLAY (G8) 

THIS OVERLAY COMPUTES LBN AND RBN OF THE LAST TRACK ON LAST LBN CYLINDER 
AND COMPUTES THE P6N OF THAT LBN 

DMOVLY G8. START 



MOV #G8,CUR0VL .-FOR RECORDING 

MOV «SCR«RO .-POINT TO CHARACTERISTICS BLOCK 

CALL NUMLBN ;GET NUMBER OF FIRST LBN ON LAST LBN CYL 

MOV (R4),CURBN ; GET LOU ORDER 

MOV (R4).H0LDBN .-SAVE FOR LATER 

MOV 1(R4},CURBN^1 ;GET HIGH ORDER 

MOV 1(R4),HOLDBN4-1 ;SAVE FOR LATER 

CALL NUHRBN ;GET NUM OF FIRST RBN ON LAST LBN CYLINDER 

MOV (R4),CURRBN ;GET LOU ORDER 

MOV 1(R4),CURRBN^1 ;GET HIGH ORDER 

MOV (R4),H0LRBN ;SAVE LOU FOR LATER 

MOV 1(R4),H0LRBN^1 .-SAVE HIGH FOR LATER 

CALL LPBN ;GET TBN OF FIRST SECTOR ON LAST TRACK 

RETURN 
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UOAFH • UOA FORMATTER DNACR X04.01 23-AUG-82 14:02:32 PAGE 59 
L/RBN COMPUTE OVERLAY (G8) 

COMPUTE STARTING LBN ON LAST TR 

RO -> CHARACTERISTICS BLOCK 

003060 104300 001144 000736 NUMLBN: MOV LBNCYL,TENP 

6 003063 104300 001145 000737 MOV LBNCYL*1 .TEMP*1 

7 003C66 103200 170000 000737 BIC #H0.CLR,TEHP*1 

8 003071 104204 000736 MOV #TEMP.R4 , 

9 003073 104203 001146 MOV #LBNPCY.R5 

10 003075 021537 CALL OMUL 

11 003076 104641 000001 MOV 1(R4),R1 

12 003100 105301 001323 ADD ST.LBN.RI 

13 003102 100641 000001 MOV RUKRA) 

14 003104 104673 000011 MOV LBNTRK(RO) ,R3 

15 003106 103203 177400 BIC #HIBYTE.R3 

16 003110 104030 000731 MOV R3,DDUMMY 

17 003112 114000 000732 CLR ODUHMY+1 

18 003114 104203 000731 MOV #DDUNNY,R3 

19 003116 021521 CALL DSUB 

20 003117 000000 RETURN 



GET LOU ORDER NUM OF LBM CYLINDERS 
GET HIGH ORDER 

CLEAR STARTING CYLINDER BITS 
DITTO 

GET LBN'S/CYLINDER 

GET FIRST LBN ON LAST CYLINDER 

GET LBN 

ADD STARTING LBN TO GET ABSOLUTE LBN 

STORE BACK 

GET LBN/TRK 

CLERA HIGH BYTE 

STORE IT 

FOR STORE 

LBN/TRACK 

WANT LBN ON LAST TRACK 
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UOAFM - UDA FORMATTER DHACH XOA.01 23-AUG-82 U:02:32 PAGE 60 
L/RBN COMPUTE OVERLAY (G8> 



SEQ 301 



1 
2 
3 
A 

5 003120 

6 003123 

7 003126 

8 003131 

9 003133 

10 003135 

11 003136 

12 0031AO 

13 003U2 
U 0031 AA 

15 0031 A6 

16 003150 

17 003152 

18 0031 5A 

19 003156 

20 003157 



1 0A 300 
10A300 
103200 
10A20A 
10A203 
021537 
10A6A1 
105301 
1006A1 
10A673 
103203 
10A030 
11A0OO 
10A203 
021521 
000000 



001 1AA 
001 U5 
170000 
C00736 
001150 

000001 
001 32A 
000001 
OOOOOA 
177600 
000731 
000732 
000731 



000736 
000737 
000737 



COMPUTE STARTING RBN ON LAST TRACK IN LBN AREA 
RO •> CHARACTERISTICS BLOCK 



NUMRBN: MOV 
NOV 



LBNCYL.TEMP 
LBNCYL*1.TEHP*1 

BIC #HD.CLR,TENP*1 

MOV «TEMP,RA 

nOV «RBNPCY,R3 

CALL DHUL 

MOV 1(RA),R1 

ADD ST.RBN.RI 

MOV RIJ(RA) 

MOV RBNTRK(R0).R3 

BIC «HI1BYTE,R3 

MOV R3«D0UNNY 

CLR DDUNMY^I 

MOV «DDUnMY,R3 

CALL DSUB 
RETURN 



GET LOW ORDER NUMBER Of LBN CYLINDER 
GET HIGH ORDER 

CLEAR STARTING CYLINDER BITS 
DITTO 

GET RBN'S/CYLINDER 

GET FIRST RBM ON LAST CYLINDER 

GET HIGH ORDER 

ADD TO GET ABSOLUTE LBN 

STORE BACK 

GET RBN/TRACK 

CLEAR OUT GARBAGE 

STORE IT 

FOR STORE 

WANT LAST TRACK 

GET IT 



« 
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L/RBN COMPUTE OVERLAY (68) 



1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
U 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 



003160 
003163 
003166 
003170 
003172 
003174 
003176 
003200 
003202 
003204 
003206 
003210 
003211 
003213 
003215 
003217 
003221 
003223 
003224 
003227 
003232 
003235 
003237 
003240 
00324Z 
003245 



104300 
104300 
104204 
104641 
107301 
100641 
104673 
103203 
104030 
114000 
104203 
021565 
104673 
103203 
104030 
114000 
104203 
021537 
104300 
104300 
107300 
104203 
021503 
104140 
104640 
000000 



001114 000736 

001115 000737 
000736 
000001 
001323 
000001 
000011 
177400 
000731 
000732 
000731 

000004 
177600 
000731 
000732 
000731 

001114 000731 

001115 000732 
001323 000732 
000731 



001124 
000001 



001 12S 



COMPUTE PBN FROM GIVEN LBN 

RO -> CHARACTERISTICS BLOCK 

LPBN: MOV CURBN.TEMP 

MOV CURBN^I JEMP^I 

MOV #TEnP»R4 

MOV 1(R4),R1 

SUB ST.LBN.R1 

MOV R1,1(R4) 

MOV LBNTRK(R0),R3 

BIC #HIBYTE,R3 

MOV R3,D0UnMY 

CLR 0DUMMY*1 

MOV #DDUMnY,R3 

CALL ODIV 

MOV RBNTRK(R0).R3 

SIC #H11BYTE,R3 

MOV R3,DDUNMY 

CLR OOUNHY^I 

NOV «D0UPmY,R3 

CALL OMUL 

MOV CURBN.DOUNNY 

MOV CURBN«^1 ^DDUHMY^I 

SUB st.lbn.ddDmny^i 

NOV #DDUHHY«R3 

CALL DADO 

NOV (R4).H0LDPN 

NOV 1(R4),H0LDPN4-1 

RETURN 



SEQ 302 



GET LOW ORDER 
GET HIGH ORDER 
FOR SUBTRACT 
GET HIGH ORDER 

SUB STARTING LBN TO GET ABSOLUTE LBN 

STORE BACK 

GET LBN'S/TRACK 

CLEAR HIGH WORD 

STORE FOR COMPUTATION 

CLEAR FOR STORE 

FOR DIVIDE 

GET NUMBER OF TRACKS 

GET RBN*S/TRACK 

CLEAR GARBAGE 

FOR COMPUTATION 

CLEAR HIGH WORD 

FOR nULTIPLY 

GET NUMBER OF R6N*S 

;GET LOU ORDER CURRENT BLOCK NUMBER 

GET HIGH ORDER 

SUBTRACT STARTING 

FOR ADD 

lADD TO GET PBN 
iGET LOU ORDER 
; STORE HIGH ORDER 
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FCT DOWN-LINE LOAD OVERLAY (F3) 



SEO 303 



1 
2 
3 

5 
6 
7 
8 
9 
10 
11 
12 
13 
U 
15 
16 



.SBTTL FCT DOWN-LINE LOAD OVERLAY (F3) 



0032A6 



003C23 
003026 
003031 
00303A 
003037 
003041 
003043 
003045 
003047 
. 003051 

17 003053 

18 003055 

19 003057 
003061 
003063 
003066 
003067 
003070 
003072 
003073 

27 003074 

28 003076 

29 003100 
~ 003102 

003103 
_ 003104 

33 003105 

34 003106 

35 003107 

36 003111 

37 003113 

38 003115 
003117 
003120 
003122 
003124 
003125 
003127 
003131 
003132 

47 003133 
43 003134 
003135 
003140 
003143 
003146 
003150 
003152 
003153 
003154 



20 
21 
22 
23 
24 
25 
26 



30 
31 
32 



39 
40 
41 
42 
43 
44 
45 
46 



49 

50 
51 
52 
53 
54 
55 
56 



FDLL: 



DOWNLINE LOADER FOR FCT 
DNOVLY F 3, START 



57 003156 



104200 


000006 


001154 


• 


MOV 


#F3,CUR0VL 


104200 


000001 


001476 




nov 


#1, COUNT 


104300 


001325 


001117 




nov 


ST.XBN.CURXBN^I 


104300 


001325 


001115 




nov 


ST.XBN.CURBN^I 


114000 


001116 






CLR 


CURXBN 


114000 


001114 






CLR 


CURBN 


104207 


001424 






NOV 


fCONBLK.RO 


104203 


001053 






NOV 


#SCR,R3 


104632 


000000 






NOV 


CYLBN(R3),R2 


100672 


000000 






NOV 


R2,V1(R0> 


104632 


000001 






NOV 


CYLBNH(R3},R2 


100672 


000001 






NOV 


R2,V1*1(R0) 


104303 


001130 






NOV 


SECTRK.R3 


100673 


000004 






NOV 


R3«V3(R0) 


102200 


002000 


001220 




BIT 


»BST6S,FLA6 


053070 








BNE 


NODLL 


003120 








BR 


LOOP 


104203 


004535 




NODLL: 


NOV 


»RDBUF.R3 


11400? 








CLR 


R2 


100132 








NOV 


R2,(R3) 


104204 


001306 






NOV 


«SERNUN.R4 
fFSER.RS 


105203 


000002 






ADD 


104205 


000004 






NOV 


f4.R5 

(R4)*.R2 

R2,(R3>^ 


104242 




9f: 


NOV 


100232 








NOV 


117405 








DEC 


R5 


053102 








BNE 


9S 


114002 








CLR 


"2 


104203 


004535 






NOV 


fRDBUF,R3 


100632 


000001 






mv 


R2,INST(R3> 


101202 


100000 






BIS 


fN0FCT,R2 


100632 


000025 






NOV 


R2,FCTFL6(R3> 


003153 








BR 


L00PP2 


104205 


001264 




LOOP: 


NOV 


#DNBUF,R5 


104303 


001317 






NOV 


FCNS6,R3 
R3,(RS> 


100153 








NOV 


104303 


001114 






NOV 


CURBN, R3 


100653 


000001 






NOV 


R3,1(R5> 


022522 








CALL 


SNOmuT 


022532 








CALL 


RCVNNT 


104153 








NOV 


(R$},R3 


053424 








BNE 


DONOLL 


104650 


000001 


001421 




NOV 


1(R5).0VLBLIC*1 


104650 


000002 


001422 




NOV 


2(R5),0VLBLK*2 


104200 


000401 


001420 




NOV 


f257.,0VLBLIC 


104204 


00H20 






NOV 


fOVLBLK,R4 


104203 


004535 






NOV 


fRDBUF ,R3 


022510 








CALL 


OVRLAY 


114005 






L00PP2: 


CLH 


R5 


104050 


001246 






NOV 


R5,NEXT1 


106200 


000001 


001476 




CNP 


#1, COUNT 



.'OVERLAY «3 

.•OVERLAY «3 

:INIT COUNT TO 1 

.ALSO INITIALIZE XBN COUNTER 

;HI6H ORDER 

;LOW ORDER IS ZERO 

.•DITTO 

.•POINT TO CONVERT BLOCK 
.POINT TO CHARACTERISTICS 
;6ET LBN CYLINDERS 
.STORE IN CONVERT BLOCK 
.-GET HIGH ORDER 
.•STORE IT 

;6ET SECTORS/TRACK 

; STORE IN CONVERT BLOCK 

.-IN BCST GUESS NODE ? 

;YUP - FIX UP FIRST BLOCK 

.•START LOOP 

; POINT TO BUFFER 

:SET MEDIA NODE TO 0 (IN FORMAT) 

'STORE IT 

•POINT TO SERIAL NUMBER 

; POINT TO ENTRY IN FCT BLOCK 

;INIT COUNTER 

.GET WORD 

.STORE WORD 

.•DECRMENT COUNTER 

; CONTINUE TILL DONE 

;FOR INSTANCE NUMBER 

;RESET POINTER 

.STORE INSTANCE NUMBER IN BLOCK 

;SET NO FCT AVAILABLE BIT 

.•STORE IT IN FCT INFO BLOCK 

.SKIP DLL STUFF 

.POINT TO HAINT BUFFER 

:GET DUP CODE 

.'STORE IT IN MESSAGE 

.GET BLOCK NUMBER DESIRED 

.STORE IT 

.•SEND REQUEST 

: RECEIVE ANSWER 

;6ET STATUS WORD 

;IF NOT ZERO THEN DONE 

;6ET LOU HOST ADDRESS 

.'GET HIGH HOST ADDRESS 

.'NUMBER OF WORDS TO TRANSFER 

.FOR OVERLAY ROUTINE 

; POINT TO BUFFER 

.'GET THE SECTOR 

.'CLEAR WRITE ERROR COUNT 

.CLEAR REPEAT COUNT 

;IS IT THE FIRST ONE ? 



UDAFH - UDA FORMATTER ONACR XOA.01 23-AUG-82 H:02:32 
FCT DOUN-LINE LOAD OVERLAY (F3) 

BNE 

nov 

MOV 
CLR 
NOV 
ADO 

nov 

10S: NOV 
NOV 
DEC 
BNE 
CLR 

LOOPP: NOV 
CALL 
NOV 
NOV 
NOV 
NOV 
NOV 
SUB 
NOV 
CALL 
NOV 
NOV 
NOV 
BIS 
NOV 
NOV 
NOV 
NOV 
NOV 
NOV 
BIS 
NOV 
NOV 
NOV 

URJTE1: NOV 
NOV 
NOV 
NOV 
BIS 
XfC 
XFC 
TST 
6EQ 
CNP 
BEQ 
INC 
BR 

IS: NOV 
BNI 

TST 
BEQ 
CALL 
3S: CLR 
DEC 
BR 



CO 

JO 


AAT1 ^1 

003101 


033c01 








0031 0£ 


1 A/ OA/ 

IOhcOn 


AA1 TA*^ 
001 30^ 




60 


0031 6h 


1 Ay OA1 

10hc03 


AAy czc 
00h333 




61 


AAH iLJL 

003106 


11/ AAC 

1 1 h003 






62 


AA71 A7 

00310^ 


1 AA1 IC 

1001 53 






63 


AAT1 7A 

0031/0 


103C03 


AAAAI 3 

OUOOlc 




6h 


AATI 70 

0031 fi 


1 A/ OAC 
1U*»C03 


000004 




6) 


AATI 7Z 

0031 


inz.3/,3 
10*ic*»c 






DO 


AAtl 7C 

UU31 f 5 


lOOc^c 






Of 


0031 / 0 


1 1 /h03 






6o 


AAII 77 
0031 f f 


ncci 7Z. 
0331 f *» 






69 


AAIOAA 

003^00 


1 1 y AAC 
1 1^003 


004333 




f 0 


003201 


lO^cOc 






003e03 


OccOOU 






■70 

fc 


UU3cU4 


10U0c3 


AAA AAA 


AAA7'X/> 
UUUf 30 




Ou^eOO 


10^300 


AA1 1 1 Z 
UU1 I IH 


71. 


003cl 1 


1 A/.XAn 

1U*>3UU 


AA1 11c 


AAA7T7 
UUUf 3f 


7C 

fO 


003elH 


1 AZ.3AA 
1U4lcU*l 


WVf 30 




fO 


003c 10 


10<»O*i 1 


AAAAA1 
UOOOU 1 






003ee0 


1 Of 301 


0vl3c3 




to 


003eee 


IUOO*»l 


AAAAA1 






003eeH 


022665 






BA 


003ee3 


lO^cOA 


AAA731 
OOOf Cl 




01 


WJiccf 


10hc03 


1 33^AA 
1 CC*>UU 




Be 


003c31 


10430^ 


AA1 ^^X 
001 113 




B3 


003c33 


1010c3 






0/ 
o*» 


0034: 3<» 


lOOOf 3 
IU*iCU3 


AAAAAZ. 
00000*1 




BC 


003c3o 


UUH333 




BA. 
00 


0U3cmU 


lOOOf i 


AAAAA1 
UUUUU 1 




Of 


Wic**c 


lA/ TAX 

IU*>3U3 






BS 

Bo 




lUVOf 3 






Bt 


003c*>0 


IU*i3U3 


UUI 1 13 






nnxoKtx 


ifii ynx 

lUlcU3 


icuuuu 




01 
VI 


003c 3c 


inAA7t 
lOWOf 3 


AAAAAT 
UUUUU3 






003c 3(» 


IU*>CU3 


UUU' cO 




7J 


0U3c30 


inAA7^ 
lUUO' 3 


UUUvw3 




Q/. 


n/\X0Ai\ 
UUjcDU 


IU*i3U3 


Wl 3C 1 




t3 


nnx9A9 


1 AXTAZ 


V\J 1 3CC 




QJL 
▼0 


nnx9A^ 


IU*i3UC 


UWf tw 




07 

Tf 


UU3cOO 


1 A/5A7 
iU*»cVf 


UWf c 1 




OA 

▼0 


onx97n 

UU3crU 


1 ni 5n7 

1 U 1 C vf 


IflfMAA 
1 vuvw 




00 


nn^?7? 


VOUvIC 






inn 


OU3cr 3 


wouini3 






lU 1 


nnit97^ 

U03C»*» 


1 1 3UU 1 






in9 


W3CfJ 


rtl 

U 1 33CC 








UU3c fO 


IU03UU 


UV l*»f f 


UUI3UI 




UU33UI 


U 1 33U3 










1 1 3<lUv 


UU 13V 1 




1 AJL 
lUO 


nnxxm. 


UU3COV 








UU30U3 


i AX TAT 


UU 1 JVC 




1U0 




Uf 33c 1 






109 


003310 


115000 

1 1 J WW 


001500 

WW 1 rfWW 




110 


003312 


0133U 






111 


003313 


022571 






112 


0033U 


1U000 


001501 




113 


003316 


117400 


001502 




1U 


003320 


003260 







F 8 

PAGE 62-1 



LOOPP 

#DATE,R4 

#RDBUF.R3 

R5 

R5,(R3) 

fFDAT,R3 

«4,R5 

(R4)*.R2 

R2,(R3)* 

R5 

10$ 

R5 

#R0BUF,R2 

CEDC 

R3,RU.EDC(R2) 

CURBN.TENP 

CURBN^l.TEflP^I 

#TENP,R4 

1(R4),R1 

ST.XBN.RI 

R1,1(R4) 

CVTSK 

fURBLK.RO 

«URCN0,R3 

CURTRK«R2 

R2,R3 

R3.RU.CHD(R0) 

fRDBUF«R3 

R3,RU.ByF(R0) 

CyR8N,R3 

R3.RII.L0U(R0) 

CUWiN«1«R3 

fHD.XBN«R3 

R3,RU.Hl(R0) 

#HSLIN-1«R3 

R3,RU.DyN(R0) 

HPREA«R3 

DPREA,R4 

UNIT«R2 

fWRBLK^RO 

fBITlS«RO 

SIP 

WRITE 

R1 

NO 

RETRY, TNPTRY 
IS 

TNPTRY 
yRITEl , 
RECTNP,R3 
2S 

RECOV 
3S 

ERRHND 
TNPTRY 
RECTNP 
URITE1 



;N0 - SKIP THIS STUFF 

.POINT TO SERIAL NUMBER 

.•POINT TO BUFFER 

;FOR NEDIA FORNAT UPDATE 

;SET FORNAT IN PROGRESS 

.•POINT TO ENTRY IN FCT BLOCK 

;INIT COUNTER 

.-GET WORD 

.•STORE WORD 

.DECRNENT COUNTER 

.•CONTINUE TILL DONE 

; CLEAR R5 (ERROR COUNTER) 

.•POINT TO BUFFER 

.COMPUTE EDC 

.STORE IT 

;6ET LOW ORDER 

:6ET HIGH ORDER 

;FOR SUB 

;6ET HIGH ORDER 

: SUBTRACT STARTING XBN 

.STORE BACK 

.•CONVERT AND SEEK 

.POINT TO COMPMND BLOCK 

.•GET WRITE COMMAND 

:6ET CURRENT TRACK 

;SET TRACK FOR WRITE 

.STORE IN COMMAND BLOCK 

.•POINT TO BUFFER 

.STICK IN COMMAND BLOCK 

;6ET LOW ORDER HEADER 

; STORE IN WRITE BLOCK 

:GET HIGH ORDER 

;SET HEADER 

.•STORE IN WRITE BLOCK 

;6ET DUMMY SDI POINTER 

.'POINT IN COMMAND BLOCK 

.GET HEADER PftEAHBLE 

;GET DATA PREAMBLE 

;SET UNIT 

:MAKE SURE POINTING AT BLOCK 

.SET NO REVECTORING 

.•WAIT FOR SECTOR PULSE 

;WRITE SECTOR 

;ANY ERROR ? 

;NOPE 

•MAX * 

•YES - TRY SOME RECOVERY 
;INC RETRY COUNT 
;D0 RETRY 

:GET CURRENT ERROR RECOVERY LEVEL 

;IF NEGATIVE THEN FRIED 

;IS THERE ONLY RECOVERY LEVEL 0 ? 

;YES - NO NEED TO ISSUE IT - JUST RETRY 

.TRY RECOVERY 

;FOR INIT 

.-DECREMENT IT 

.-RETRY 
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FCT DOWN-LINE LOAD OVERLAY (F3) 



IIS 


003371 








2t' 

C# ■ 




116 


003391 


1 1 540S 








INC 


117 


0033?? 




WW 1 CHW 




MO* 


INC 


lift 


0033?4 


114000 


001 SOI 

WW 1 Jw 1 






CLR 


119 


0033?6 


104300 


001500 

WW 1 Jww 


001 502 

WW 1 wwC 




nww 


1 C V 


003331 


104204 


001114 

WW 1 1 • ~ 






NOV 

nw w 


121 


003333 


104203 


001241 

WW 1 ■ 






ciov 


12? 
■ cc 


00333S 


021 503 

vC I 








CALL 




003336 


106300 


001245 

WW I 


001246 

WW 1 




CMP 


124 


003341 


053201 

^C V 1 








ONE 


125 


003342 


106305 


001245 

WW ■ fc~ W 






CMP 


126 

1 CO 


003344 


013440 








BEQ 

Wb w 




00334S 


102200 

1 vcc w 


002000 

wwCwww 


001220 

WW 1 ccw 




BIT 


128 


003350 


053421 








BNE 

0"»t 


I2<} 


003351 


102200 

1 VCC w 


004000 

wW^WWV 


001220 

WW 1 CCw 




BIT 




003354 


053405 








BNE 


151 


00^355 


060022 








XFC 


132 

1 ^C 


003356 


115400 


001476 

WW I ^ ■ W 






INC 




003360 










DUBINC 


134 


003365 


104300 


001116 

Vw 1 ■ ■ w 


001114 




NOV 

■ iWW 


135 


003370 


104300 


001117 


001115 




NOV 

nww 


'36 


003373 


106300 

I wvww 


001261 

WW I c w < 


001476 

WW ■ ^ ■ w 




CMP 


137 


003376 


053401 








BNE 


3ft 


003377 


117400 

III ~ WW 


001 24S 

WW I C*v w 






DEC 






106300 


W 1 c~ ■ 


001476 

WV 1 ~ ■ w 


12S- 


CMP 




003404 


053120 

W^^ f c w 








BNE 


141 


003405 


101200 

I V 1 C WW 


000001 

wWwwW 1 


001220 

WW ■ fcfcW 


DLLRT1 : 


BIS 

OA w 


142 

1 ~C 


003410 


104207 


001040 

WW ■ w^w 






NOV 

nww 


143 


003412 


104673 


000001 

WWWWW ■ 






PlOV 


144 


003414 


110703 

1 1 W ■ WW 








SWAB 


45 


003415 


103203 


1 77760 






BIC 

WA 


146 


003417 


10403C 

I w^www 


001245 

WW ■ w 






NOV 

rlW w 


147 


003421 


104201 


000003 

w w w w w w 




DLLRET: 

WWW>«b • * 


NOV 


48 


003423 


022403 








CALL 


49 


003424 


104205 

• W^.fc WW 


000400 

WWW^ WW 




DONDLL : 


NOV 




003426 


104204 


004535 






NOV 


151 


003430 


114003 








CLR 


52 


003431 


100243 






L00P3: 


P10V 


53 


003432 


117405 








DEC 


154 


003433 


053431 








BNE 


155 


003434 


101200 


004000 


001220 




BIS 


56 


003437 


003153 








BR 


157 


003440 


104012 






ERROR: 


NOV 


158 


003441 


104201 


000015 






NOV 


159 


003443 


022542 






DLERT: 


CALL 



L 



G 8 

62-2 



SEQ 505 



R5 

NEXT1 
TMPTRY 

RECOV.RECTMP 
«CURBN«R4 
#FCTFMT.R3 
DADO 

FCTCPY.NEXTI 
LOOPP 
FCTCPY,R5 
ERROR 

«BSTGS,FLAG 

DLLRET 

«NDLL.FLAG 

DLLRT1 

UPDATE 

COUNT 

CURXBN 

CURXBN.CURBN 
CURXBN^UCURBN^I 
FCTNPD, COUNT 
12t 

FCTCPY 

FCTFNT, COUNT 
LOOP 

«FCTAVL,FLAG 
fCR.RO 
FRCPV(R0),R3 
R3 

fFCLR,R3 
R3.FCTCPY 
IF 2.111 
NEXT 

fSECSI6.R5 

#R0BUF,R4 

R3 

R3«(R4)f 
R5 

L00P3 

fNDLL.FLAG 

L00PP2 

R1.R2 

fl3..R1 

ERRNNT 



rUP - INCREMENT COUNTER 
INCREMENT JT 
FOR RESET 

GET RECOVERY LEVELS 
FOR ADO 
FOR ADD 

POINT TO NEXT COPY 
DONE THIS SECTO<) ? 
NO - WRITE NEXT FCT COPY 
ERROR ON EVERY WRITE ? 
YUP • BIG TROUBLE 
BEST GUESS ? 

YUP - JUST WANT TO WRITE FIRST BLOCK 
ALL DONE ??? 
YUP - EXIT 

LET HOST KNOW STILL ALIVE 

INCREMENT IT 

INCRENENT IT 

GET LOW ORDER 

GET liIGN ORDER 

AT THE LAST NON-PAD ENTRY 

NOPE 

DECRENENT - NO PAD ON LAST COPY 
DONE ? 

NOPE - DO NEXT SECTOR 

SET FCT AVAILABLE 

POINT TO CHARACTERISTICS BLK 

GET F/RCT COPIES 

GET INTO LOU BYTE 

CLEAR OUT REST OF GAJIBAGE 

RESTORE NUN OF COPIES 

FOB OVEBUY #2 

LBN FOIMATTING 

COUNT FOR BLOCK INIT 

POINT TO BUFFER 

INIT TO 0 

CLEAR ONE WORD 

DEC COUNTER 

CONTINUE TILL DONE 

SET FLAG 

CONTINUE 

GET XFC ERROR CODE 
FCT WRITE ERROR 
ERROR RETURN 



H 8 



UDAFH - UOA FOftMTTER DP1ACR X04.01 23-AUG-82 U:02:32 PAGE 63 
RCT UPDATE OVERLAY (F4) 



1 

2 00344A 
3 
A 
5 
6 
7 
8 
9 
10 

11 003023 

12 003026 

13 003030 

14 003031 

15 003033 

16 003034 

17 003036 

18 003037 

19 003042 

20 00304S 

21 003047 

22 003051 

23 003052 

24 003055 

25 003057 

26 003061 

27 003064 

28 003067 

29 003070 

30 003072 

31 003075 

32 003077 

33 003100 

34 003101 

35 003103 

36 003104 

37 003106 

38 003110 

39 003111 

40 003113 

41 003115 

42 003116 

43 003120 

44 003122 

45 003123 

46 003125 

47 003127 

48 003131 

49 003133 

50 003134 

51 003137 

52 003142 

53 003144 

54 003146 

55 003150 

56 003152 

57 003153 



104200 
104303 

104303 

104303 

104300 
104300 
104203 
104204 
021521 
104300 
104302 
104120 
104620 
102200 
013072 
104201 
103200 
104204 
023333 
104143 
105203 
100143 
104030 
104203 
021503 
104040 
104201 
022435 
104205 
104303 
105035 
104302 
104623 
103203 
106203 
053202 
104650 
104650 
103203 
101203 
103203 
100653 
114003 
100153 



000011 
001113 

001126 

001127 

001134 
001135 
001472 
001230 

001225 
001471 
000731 
000001 
100000 

177777 
170000 
000731 



000002 

001474 
001230 

001254 
000055 

006621 
000736 

001471 
000001 
007777 
110000 

000000 
000001 
170000 
040000 
007777 
000001 



001154 



.SBTTL RCT UPDATE OVERLAY (F4) 
DNOVLY F 4, ST ART 



THIS OVERLAY UPDATES THE RCT WIT 
IN THE ERRBUF BUFFER 



001230 
001231 



001471 



000732 
000732 



000732 



000733 
000734 



RCTUPD: mv 
HOV 
PUSH 

nov 

PUSH 

NOV 

PUSH 

mv 
mv 
mv 
mv 

CALL 

mv 

ROVER: mv 

mv 
mv 

BIT 
BED 

mv 

R0VER1: BIC 

mv 

CALL 

mv 

ADD 

mv 
mv 
mv 

CALL 

mv 
mv 

CALL 

mv 
mv 

ADD 

mv 
mv 

BIC 
C«P 
BNE 

mv 
mv 

BIC 
BIS 
BIC 

mv 

CLR 

mv 



#F4,CUR0VL 

CURTRK,R3 

R3 

CYLNUN,R3 

R3 

CYLNUH^l .R3 
R3 

LBNLBN.HOLO 
LBNLBN^I .HOLD^l 
#T0TRCT.R3 
#H0LD,R4 
DSUB 

ERRBUF, UPDPNT 

UPDPNT,R2 

(R2),0DU*MY 

l(R2).DDUmY^l 

#BIT15,0DUfWY^l 

R0VER1 

#-1,R1 

#HD.CLR,DDUmYt1 

#DDUmiY,R4 

UHASH 

(R4),R3 

f2,RS 

R3,(R4) 

R3,RCTCNT 

fH0LD,R3 

DADD 

R4.BUFPNT 

fHURI 

PAGE 

fRCTBUF«R5 

0FFSET,R3 

R3,R5 

UPDPNT,R2 

1(R2),R3 

#L0.R3 , 

fHD.BAD«R3 

mTR 

0(R5).TEHP2 

1(R5),TEHP2*1 

#HD.CLR,R3 

#RC.UNU,R3 

#10, R3 

R5.1(R5) 

R3 

R3,(R5) 



THE SECTORS 



GET OVERLAY 

GET CURRENT TRACK 

SAVE FOR RESTORE 

GET LOU ORDRE CYLINDER 

SAVE FOR RESTORE 

GET HIGH ORDER 

SAVE FOR RESTORE 

GET LOU ORDFR COUNT OF LBN'S 

GET HIGH ORDER 

FOR SUBTRACT 

DITTO 

GET STARTING RCT LBN 
POINT TO ERROR BUFFER 
GET POINTER TO BAD LIST 
GET LOU ORDER 
GET HIGH ORDER 
IS IT AN RBN ?? 
NO - REGULAR HASH 
HASH FOR RBN 
CLEAR THE HEADER 
'FOR HASH 

Jim THE RCT ENTRY FOR CURRENT ERR BLOCK 

GET BLOCK NUMBER 

ADD TO GET PAST FIRST 2 BLOCKS 

STORE BACK 

FOR LATER PIN6W>0N6 

FOR ADD 

TO GET LBN OF RCT BLOCK 
STORE POINTER TO BLOCK NUMBER 
;RCT READ OVERLAY 
DO IT 

POINT TO BUFFER 
GET OFFSET 
POINT TO HIT ENTRY 
RESTORE POINTER 
GET THE HEADER 
; CLEAR ALL BUT HEADER 
IS IT A BAD RBN ? 
NOPE - CHECK FOR PRIMARY 
GET LOU ORDER CURRENT RESIDENT 
GET HIGH ORDER 
CLEAR HEADER 
MARK AS UNUSUABLE 
CLEAR LOU ORDER 
STORE IT BACK 
CLEAR FOR STORE 
; CLEAR LOU ORDER 
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SEQ 307 



RCT UPDATE OVERLAY (F4) 




58 


003154 

WWW ■ ^ ~ 


102200 

• Wfcfc WW 


020000 


59 


003157 


013276 




60 


00^160 

WW ' < WW 


023375 

WfcWW' w 




61 

w ■ 


003161 

WWW ■ w ■ 


023571 

Wb W W W 1 




62 

Wfc 


003162 


104204 


006621 


63 

WW 


003164 


105054 




64 

w^ 


003165 


104202 


000733 


65 


003167 


104123 




66 


003170 


100143 




67 


0031 71 


104623 


000001 


68 


003173 


103203 


170000 


69 

w » 


003175 


101203 


030000 


70 


0031 77 


100643 


000001 


71 


003201 


003276 




72 


003202 


106203 


AC A AAA 

050000 


73 


003204 


053256 




74 


003205 


104653 


AAAAA4 

000001 


75 


003207 


103203 


007777 


76 


003211 


106203 


AAA AAA 

000000 


77 


003213 


053231 




78 


003214 


104123 




79 


003215 


100153 




80 


003216 


104623 


AAAAA4 

000001 


81 


003220 


107303 


AA1 TIV 

001323 


82 


003222 


103203 


4 7AAAA 

170000 


83 

WW 


003224 


101203 


A'^AAAA 

020000 


84 


003226 

WWWfcfc w 


100653 


AA/\AA4 

000001 


85 


003230 


003276 




86 


003231 


104650 


AAAAAA 

000000 


87 


003234 


104650 


AAAAA1 

000001 


88 


0C3237 


104123 




89 


003240 


100153 




90 


003241 


104623 


000001 


91 


003243 


107303 


OQloii 


92 


003245 


103203 


170000 


93 


003247 


101203 


020000 


94 


003251 


100653 


AAAAA1 

000001 


95 


003253 


023375 




96 


003254 


104202 


AAA7W 

000 f 33 


97 


003256 


023571 




98 


003257 


104204 


OOoocl 


99 


003261 


105054 




100 


003262 


104123 




101 


003263 


100143 




102 


003264 


104623 


A AAA A 1 

000001 


103 


003266 


107303 


AAi TOT 

001323 


104 


003270 


103203 


1 7AAAA 

170000 


105 


003272 


101203 


ATAAAA 

030000 


106 


003274 


100643 


AAAAA1 

000001 


107 


003276 


023375 




108 


003277 


105200 


AAAAAO 

000002 


109 


003302 


117400 


001233 


110 


003304 


053055 




111 


003305 






112 


003306 


104030 


001127 


113 


003310 


104030 


001100 


1U 


003312 







000734 BIT 
BEQ 
CALL 
CALL 
NOV 
ADD 
MOV 
MOV 
MOV 
MOV 
BIC 
BIS 
NOV 
BR 

NOTR: CNP 
BNE 
MOV 
BIC 
CNP 
BNE 
NOV 
NOV 
NOV 
SUB 
BIC 
BIS 
NOV 
BR 

000733 SWAP: NOV 

000734 NOV 
NOV 
NOV 
NOV 
SUB 
BIC 
BIS 
NOV 
CALL 
NOV 

SECNDY: CALL 
NOV 
ADD 
NOV 
NOV 
NOV 
SUB 
BIC 
BIS 
NOV 

BOTTOM: CALL 
001471 ADD 
DEC 
BNE 
POP 
NOV 
NOV 
POP 



#BITi3,TEMP2*1 

BOTTOM 

RCTUT 

PNGPG 

#RCTBUF.R4 

R5,R4 

#TEHP2,R2 

(R2).R3 

R3,(R4) 

1(R2)«R3 

#HD.CLR,R3 

#RC.SND,R3 

R3J(R4) 

BOTTOM 

#HD.PRV,R3 

SECNDY 

1(R5).R3 

#L0.R3 

m.FRE,R3 

SWAP 

(R2),R3 

R3.(R5) 

1(R2),R3 

ST.LBN,R3 

#HD.CLR,R3 

#RC.PRV.R3 

R3,1<R5) 

BOTTOM 

0(R5).TEMP2 

1(R5).TEMP2*1 

(R2),R3 

R3,(ft5) 

1(R2),R3 

ST.LBN,R3 

#HD.CLR,R3 

#RC.PRV,R3 

R3J(R5> 

RCTUT 

#TEMP2.R2 

PNGPG 

fRCTBUF.R4 

R5,R4 

(Rh,R3 

R3,(R4) 

1(R2),R3 

ST.LBN,R3 

#HD.CLR,R3 

#RC.SND,R3 

R3.1(R4) 

RCTUT 

#ERL^N,UPDPNT 

REVCNT 

ROVER 

R3 

R3,CYLNUM*1 

R3JSEEK«2 

R3 



.ANY THING DISPLACED ??? 
; NO - NO NEED TO PING-PONG 
;UR1TE UT BLOCK 
.-FIND IT A NEU HONE 
.•POINT TO BUFFER 
;ADD OFFSET 

; POINT TO OLD RESIDENT 
;GET LOU ORDER 
.-PUT IT IN 
.GET HIGH ORDER 
.•CLEAR HEADER 
;NARK AS SECONDARY 
.STORE IT 

;60 TO BOTTOM OF LOOP 

.•PftlNARY REVECTOR ?? 

;N0 - TREAT AS SECONDARY 

;GET RCT HEADER 

: CLEAR ALL Bl'T HEADER 

;IS IT FREE ?? 

;N0 - SUAP ENTRIES 

.GET LOU BLOCK NUNBER 

; STORE IN RCT 

;6ET HIGH ORDER 

.-SUBTRACT STARTING LBN BITS 

.CLEAR HEADER 

.'SIGNAL PRINARY REVECTOR IN RCT 

.•STORE IN RCT 

:G0 TO BOTTOM OF LOOP 

;GET LOU ORDER CURRENT RESIDENT 

;GET HIGH ORDER CURRENT RESIDENT 

;GET LOU ORDER NEU RESDENT 

;PUT IN RCT 

;6ET HIGH ORDER NEU RESIDENT 
.•SUBTRACT STARTING LBN BITS 
.•CLEAR THE HEADER 
;SET AS PRINARY 
;PUT IN RCT 

:URITE OUT PRINARY BLOCK 
.•POINT TO OLD RESIDENT 
.FIND RCT ENTRY FOR SECONDARY 
.-POINT TO BUFFER 
.-ADD OFFSET 

.-GET LOU ORDER NEU ENTRY 
;PUT IN RCT 

;GET HIGH ORDER NEU ENTRY 
.•SUBTRACT STARTING LBN BITS 
.•CLEAR HEADER 
:FLAG AS SECONDARY 
.•STORE IN RCT 
;UTIR OUT RCT BLOCK 
.•POINT TO NEXT ERROR SECOTR 
.-DECREMENT IT 

.-NOT DONE - DO NEXT SECTOR 
.•GET HIGH ORDER CYL 
.RESTORE IT 
.PUT IN SEEK COMMAND 
;6ET LOU ORDER 
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115 
116 
117 
118 



003313 
003315 
003317 
- 003320 

119 003322 

120 003325 
003326 
003331 
003332 



121 

12 

12 



104030 
104030 

104030 
102200 
053332 
104300 
022242 
000000 



001126 
001077 

001113 
040000 



001220 



001460 001101 



NOSEK: 



NOV R3.CYLNUH 

NOV R3,ISEEK«1 

POP R3 

NOV R3.CURTRK 

BIT #FIMI,PLA6 

BNE NOSEK 

NOV CURGRP.ISEEKO 

CALL SEEK 

RETURN 



PUT IN SEEK COHNAND 
GET TRACK NUNBER 
RESTORE IT 
00 THE SEEK ? 
NOPE 

RESTORE GROUP TO SEEK 

GET BACK TO RIGHT CYLINDER 
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RCT UPDATE OVERLAY (f4) 



1 
2 
3 
4 
5 
6 
7 
8 
9 
10 

n 

12 
13 
K 
15 
16 
17 
18 
19 
20 
21 
i2 
23 



003333 
003334 
003335 
003337 
003340 
0033^3 
003345 
003350 
003353 
003355 
003357 

003360 
003361 
003362 
003363 
003364 
003366 
003371 
003374 



115001 
073364 
104207 
022730 
104200 
114000 
104300 
104300 
104204 
104203 
021565 

104131 
105011 
100131 
000000 
104140 
104640 
107300 
003340 



001053 

000200 
000737 
001152 
001153 
000731 
000736 



UHASH: 



000736 UHKIP: 

000731 
000732 



001152 UHKJP1 
000001 001153 
001324 001153 



COMPUTE RCT ADDRESS FOR GIVEN 

T3T R1 

BMI OHKIPI 

MOV #SCR,RO 

CALL PRIMRB 

MOV #128., TEMP 

CLR TEHP+1 

MOV REVRBN,DDUMMY 

MOV REVRBN^I.DDUMMY^I 

MOV #DDUMMY,R4 

MOV #TEMP,R3 

CALl DDIV 

NOV (R3).R1 

ADD R1 ,R1 

MOV R1,(R3) 
RETURN 

MOV (R4)«REVRBN 

NOV 1(R4),REVRBN«1 

SUB ST.RBN,REVRBN^1 

BR UHKIP 



L 



SEO 309 



NEED TO COMPUTE PRMARY RBN ? 
NO - SKIP IT 

POINT TO CU6UNIT CHARACTERISTICS 

COMPUTE PRIMARY RBN 

DIVIDE BY 128 TO GET BLOCK NUMBER 

FOR STORE 

GET PRIMARY RBN 

GET HIGH ORDER 

FOR DIVIDE 

DITTO 

DDUMHY^RCT BLOCK NUMBER 

TENP«OFFSET 

GET OFFSET 

MULTIPLY BY 2 

STORE BACK 

fORDlVIDE SETUP 
DITTO 

SUBTRACT STARTING RBN BITS 
DO DIVIDE 
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RCT UPDATE OVERLAY (F4) 



SEO 310 



1 
2 
3 
4 
5 
6 
7 



003375 
003376 
003400 
003402 

8 003404 

9 003406 

10 003410 

11 003412 

12 003414 

13 003416 

14 003420 

15 003422 

16 003423 

17 003425 

18 003426 

19 003430 

20 003432 

21 003434 

22 003435 

23 003437 

24 003441 

25 003442 

26 003444 

27 003446 

28 003447 

29 003451 

30 0034«;3 

31 003455 

32 003457 

33 003461 

34 003463 

35 003465 

36 003467 

37 003471 

38 003473 

39 003475 

40 003476 

41 003477 

42 003500 

43 003501 

44 003504 

45 003505 

46 003507 

47 003510 

48 003512 

49 003513 

50 003515 

51 003516 

52 003517 

53 003521 

54 003523 

55 003524 

56 003524 

57 003525 



114005 
104050 
104204 
104203 
104632 
103202 
104207 
100672 
104632 
103202 
100672 
114002 
100672 
022665 
104207 
104203 
104302 
101023 
100673 
104202 
022600 
100623 
100672 
104143 
100673 
104643 
105303 
101203 
100673 
104203 
100673 
104303 
104304 
104302 
104207 
060012 
0<',0003 
115001 
013525 
106300 
013510 
115400 
003465 
104303 
073524 
115000 
013517 
022571 
114000 
117400 
003465 

115405 
115400 



001501 
001502 



001246 



001246 
000731 
001053 
000011 
177400 
001424 
000004 
000001 
007777 
000001 

000000 

000721 
122400 

:oiii3 

000004 
006621 

000400 
000001 

000002 
000001 
001323 
000000 
000003 
000726 
000005 
001321 
001322 
000740 
000721 



001477 001501 
001501 
001502 
001500 



RCTWT: 



IS: 



3S: 



2S: 
RU6D: 



1 m V T p 

URITt 


AN RCT BLOCK 


CLR 


R5 


nov 


bC ucvTi 
R?,NcXT1 


nov 


mvOUnnJ ,fiH 


nov 




TOV 


LDNINK KHil ,HC 


BIT 
bit 


itUtDVTC D3 


nuv 


MtnUDI IT ol\ 


HUV 


Nc « V^INO/ 


HOV 




BIC 


Mi A BO 

*LO*R£ 


TOV 




CLR 


BO 


HOV 


BO Ul f DOt 


CALL 


IVI SK 


MfWJ 

TOV 


JfUDDI ^ BH 


TOV 


ifLlDrMI\ BT 


TOV 


niDTDV DO 


BIS 


BO DX 


nov 


aX BLj nii\/Bn\ 


nov 


JfBrTBIIC BO 


CALL 


CcDC 


nov 


B7 BLJ Cnr/BO\ 


nov 


BO DU QIIC/Dnt 

Rf.RW.IfUF \ROi 


MAU 
TOV 




nov 


dx DU 1 nu^Dn) 


nov 


1 iOL\ ox 


Ann 




DtC 


MUt\ 1 BU OX 


Mnu 
nov 


OX DU Ul lOM 


Mnu 

nov 




Mnu 
TOV 


ox DU rtiiH/Dn) 


Mnu 
nov 


UDDCA ox 


Mnu 
TOV 


nDDFA DA 


Mnu 
TOV 


IMIIT D9 
Oni 1 ,n£ 


MAU 

TOV 


MJDBI ir Oft 




<ID 

air 


Xr I 




1 9 1 


01 

ft 1 


SCU 


nwWf 


TUP 


DFTDV TMPTPV 


DCU 




INI 


TMPTPV 

J nr mi 


QD 


UDITCO 
Wnl 1 Cc 


Mnu 
nov 


DCrTMD OX 

KCC inr fH3 


BMI 


2% 


TST 


RECOV 


DCU 


xt. 






CLR 


T«PTRY 


DEC 


RECTHP 


BR 


URITE2 


INC 


R5 


INC 


NEXT1 



CLEAR ERROR OCUNTER 

RESET NEXT COUNTER 

POINT TO BLOCK 

POINT TO CHARACTERISTICS 

GET LBN/TRACK 

CLEAR REST OF WORD 

POINT TO CONVERT BLOCK 

FOR CONVERT 

STARTING CLVLINDER 

CLEAR REST OF WORD 

STORE 

CLEAR FOR STORE 

LOW ORDER ALWAYS 0 

CONVERT AND SEEK 

POINT TO COMtAND BLOCK 

GET WRITE COfHfAND 

GET CURRENT ^RACK 

SET TRACK FOR WRITE 

STORE IN COmAND BLOCK 

POINT TO BUFFER 

COMPUTE EDC - RETURNED IN R3 

STORE IT 

STICK IN COMMAND BLOCK 
GET LOW ORDER HEADER 
STORE IN WRITE BLOCK 
GET HIGH ORDER 
ADD STARTING LBN BITS 
SET HEADER 
STORE IM WRITE BLOCK 
GET DUMMY SDI POINTER 
POINT IN COPiUND BLOCK 
GET HEADER PREAMBLE 
GET DATA PREAMBLE 
SET UNIT 

MAKE SURE POINTING AT BLOCK 

WAIT FOR SECTOR PULSE 

WRITE SECTOR 

ANY ERROR ? 

NOPE 

MAX ^ 

YES - TRY SOME RECOVERY 
INC RETRY COUNT 
DO RETRY 

GET CURRENT ERROR RECOVERY LEVEL 

IF NEGATIVE THEN FRIED 

IS THERE ONLY RECOVERY LEVEL 0 ? 

YES - NO NEED TO ISSUE IT - JUST RETRY 

TRY RECOVERY 

FOR INIT 

DECREMENT IT 

RETRY 

:YUP - INCREMENT COUNTER 
.•INCREMENT IT 



n 8 
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RCT UPDAIE OVERLAY (F4) 





1 iLnf\f\ 

1 iHvUU 


AA1 CA1 






ri D 
ILK 


TMDTDV 

1 nr 1 If T 






AA1 CAA 


AA1 CA3 
UUlSUc 




MAU 

nuv 




Art nnT^T/. 




AAA7^1 






MAU 

nuv 


*UDunnT,K*» 


ill nnxcxA 


104203 


AA1 OAT 






MAU 

nuv 


•Kt Itm ,t(3 




VC 1 jUO 








TAI 1 

LALL 


UAUU 




1 fiA'^nn 

1 UOOwU 


AA1 

UU ICS 3 


AA1 3^A 
UU 1 C*lO 




mo 


CrTTDV UCVTI 

r 1 1 Ir T «ncX 1 1 












BMC 


OrTUI D 


07 UvJJt^ 


lAAXA^ 
lUOiJUJ 


AA1 O/C 
UU 1 CH J 






rMD 


rrTTDv DC 

r 1, 1 tr I ,n J 


oo WjjH f 


U 1 jjOj 








OCU 


DrTCDD 


O' y/vjjjv 


AA1 JA/L 
UU 1 CHO 






MAU 

nuv 


kiPVTI OX 


OO Wj J jC 


ni'^'^AX 

U 1 J30j 








PCS 


n 1 UUN 


AO nnx^^x 


1 AA7AA 


UUUr J 1 






nuv 






^nL.ynx 


nni 9£X 

UU 1 C*t J 






MAU 

nuv 


ifOrTCMT OX 
•Kl 1 rn 1 «K0 


71 nn^«:s7 


A3H51 
Uc 1 3c 1 








TAI 1 


V9UO 


75 OA'^^An 


1 1 7AAA 


nni 9AA 

UU 1 C*lO 






ncr 
wcL 




73 003562 


003550 








BR 


RCXLP 


74 003563 


060022 






RTDON: 


XFC 


UPDATE 


75 003564 


000000 








RETURN 




76 003565 


104012 






RCTERR: 


nov 


R1,R2 


77 003566 


104201 


000017 






nov 


#15. .R1 


78 003570 


022542 








CALL 


ERRMNT 



;FOR RESET 

;GET RECOVERY LEVELS 
;FOR ADO 
.-FOR ADD 

.•POINT TO NEXT COPY 

;DONE THIS SECTOR ? 

;N0 - WRITE NEXT FCT COPY 

; ERROR ON EVERY URITL ? 

;YUP - BIG TROUBLE 

;ANY REAPEATS ? 

'NO 

•TO GET IT BACK 
;DITTO 

;SUB IT 
'REPEAT 

•LET HOST KNOW STILL ALIVE 

;XFC ERROR CODE 
;RCT WRITE ERROR 
: ERROR QUIT 



N 8 
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RCT UPDATE OVERLAY (f4) 



1 
2 
3 
4 
5 
6 
7 



003571 
003572 
003574 
003575 

8 003577 

9 003600 

10 003601 

11 003603 

12 00360A 

13 003606 
U 003610 

15 003612 

16 003613 

17 003615 

18 003616 

19 003617 

20 003620 

21 003621 

22 003622 

23 003624 

24 003626 
25 

26 
27 
28 
29 

30 003627 

31 003631 

32 003633 

33 003635 

34 003636 

35 003637 

36 003641 

37 003643 

38 003645 

39 003646 

40 003650 

41 003652 

42 003653 

43 003654 

44 003656 

45 003657 

46 003662 

47 003665 
48 

49 

50 003666 

51 003667 

52 003670 

53 005672 

54 003673 



114000 
114002 
104303 
104035 
105025 
102205 
053616 
104651 
103201 
106201 
013654 
106201 
013666 
104025 
114002 
107052 
073624 
105202 
106202 
053577 



115400 
104303 
104204 
100143 
114003 
100643 
104030 
104203 
021503 
104040 
104201 
022435 
003574 
104303 
053670 
104200 
104200 
003631 



000000 
104201 
114002 
022542 



001223 
000736 

000400 

006622 
007777 
100000 

000000 



000002 
000400 



00U74 
001474 
000731 



000001 
000736 
001230 

001254 
000055 



SEARCH FOR OPEN ENTRY IN RCT 

;SAVE R2 

.-CLEAR WRAP FLAG 
;FOR FLOP SET 
;6ET OFFSET 

;n0V OFFSET INTO BUFF POINTER 
;ADD FLOP VALUE 
;PAST ONE END (OR BOTH) 
;YUP - FLIP OTHER DIRECTION 
;GET HEADER CODE 
.•CLEAR LOW ORDER 
;END OF RCT ? 

.-YUP - WRAP TO FIRST BLOCK 
.•FREE ? 

;YUP - ALL DONE 
:6ET FLIP VALUE 

NEGATE IT 

IF NCGATIVE DON'T INC 
ADD TO NEXT VALUE 
DONE EVERY SLOT IN BLOCK ? 
NOPE - TRY NEXT ONE 

IN THIS SECTION THE BLOCKS ARE PING-PONGED BUT 

THE SEARCH WITHIN BLOCKS IS LINEAR FROM HIGHEST BUFFER 

ADDRESS TO LOWEST 



PNGPG: 


PUSH 


R2 




CLR 


URFLG 


XNG6LK: 


CLR 


R2 




HOV 


OFFSET, R3' 


XAGAIN: 


nov 


R3.RS 




ADD 


R2,R5 




BIT 


#BIT8.R5 




BNE 


XFLIP 




mv 


RCTBUF4-1(R5).P1 




BIC 


#L0.R1 




CUP 


m.NUL.RI 




BEO 


XEORCT 




CHP 


m.FRE.RI 




BEO 


XPRET 


XFLIP: 


nov 


R2.R5 




CLR 


R2 




SUB 


R5.R2 




BMI 


XNOINC 




ADD 


#2.R2 


XNOINC: 


CHP 


«SECSI6,R2 




BNE 


XAGAIN 



001223 

000002 001474 
000002 001223 



000020 



INC 
XPNGRD: NOV 

mv 

NOV 

CLR 

NOV 

NOV 

NOV 

CALL 

NOV 

NOV 

CALL 

BR 

XEORCT: NOV 
BNE 
NOV 
NOV 
BR 



XPRET: POP 

RETURN 

XPERR: NOV 
CLR 
CALL 



RCTCNT 

RCTCNT.R3 

«DDUNNY.R4 

R3«(R4) 

R3 

R3.1(R4) 
R3,0FFS£T 
fH0LD.R3 
DADD 

R4.BUFPNT 

«H1.R1 

PAGE 

XN6BLK 

WRFL6.R3 

XPERR 

#2. RCTCNT 

#2.WRFLG 

XPNGRD 



R2 

#16.. R1 
R2 

ERRNNT 



INC TO NEXT ONE 
FOR STORE 
FOR ADD 

STORE BLOCK NUNBER 

FOR RESETS 

CLEAR HIGH WORD 

MAKE OFFSET AT BEGINNING 

POINT TO FIRST RCT LBN 

GET LBN OF THIS RCT BLOCK 

STORE BLOCK NUNBER 

READ RCT OVERLAY 

DO IT 

SEARCH THIS BLOCK 
GET WRAP FLAG 

IF BEEN HERE ONCE THEN RCT FULL 
FOR FIRST RCT BLOCK 
NAKE WRAP FLAG NON-ZERO 
READ IT AND CONTINUE 



: RESTORE R2 
.•SUCCESSFUL RETURN 
.•RCT FULL 
;N0 SUBCODE 
.•ERROR RETURN 
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RCT READ OVERLAY (H1) 



1 












.SBTTL 


2 


003674 










DMOVLY 


3 
4 












READ A 


5 
6 


003023 










PUSHA 


7 


003C31 


104200 


000055 


001154 




nov 


8 


003034 


104304 


001254 






nov 


9 


003036 

WW M^W 


114005 








CLR 


10 


003037 


104203 


0C1053 






nov 


11 


003041 


104632 


000001 






nov 


12 


003043 


103202 


007777 






BIC 


13 


003045 


104207 


001424 






NOV 


14 


003047 


100672 


000001 






nov 


15 


003051 


114002 








CLR 


16 


003052 


100672 


000000 






nov 


17 


003054 


104632 


000011 






nov 


18 


003056 


103202 


177400 






BIC 


19 


003060 


100672 


000004 






NOV 


20 


003062 








OCLOOP: 




21 


003062 


022665 








CALL 


22 


003063 


104207 


000721 






NOV 


23 


003065 


104203 


000726 






NOV 




003067 


100673 


000005 






nov 


25 


003071 


104143 








nov 


26 


003072 


100673 


000002 






NOV 


27 


003074 


104643 


000001 






NOV 


28 


003076 


105303 


001323 






ADD 


29 


003100 


100673 


000003 






NOV 


30 


003102 


104203 


006621 






NOV 


31 


003104 


100673 


000001 






NOV 


32 


003106 


104203 


013400 






NOV 


33 


003110 


104301 


001113 






NOV 


34 


003112 


101013 








BIS 


35 


003113 


100673 


000004 






NOV 


36 


003115 


104207 


000721 




RE/D11: 


NOV 


37 


003117 


104203 


100000 






NOV 


38 


003121 


100173 








NOV 


39 


003122 


104302 


000740 






NOV 


AC 


003124 


101207 


100000 






BIS 


41 


003126 


060012 








XFC 


42 


003127 


060002 








XFC 


43 


003130 


115001 








TST 


44 


003131 


053147 








8NE 


45 


003132 


104173 








NOV 


46 


003133 


102203 


010000 






BIT 


47 


003135 


013141 








BEQ 


48 


003136 


023000 








CALL 


49 


003137 


115001 








TST 


50 


003140 


053147 








8NE 


51 


003141 


104202 


006621 




101$: 


NOV 


52 


003143 


022600 








CALL 


53 


003144 


106623 


000400 






CNP 


54 


003146 


013207 








BEQ 


55 


003147 


106300 


001477 


001501 


100$: 


CNP 


5t 


003152 


013156 








BEQ 


57 


003153 


115400 


001501 






INC 



B 9 

67 



SEO 313 



RCT READ OVERLAY (H1> 
Hi .START 

BLOCK OF THE RCT 



#H1,CUR0VL 

BUFPNT,R4 

R5 

«SCR,R3 

STCYL(R3>,R2 

«L0,R2 

#CONBLK,R0 

R2,VU1(R0) 

R2 

R2.V1(R0) 
LBNTRK(R3),R2 
#HIBYT£.R2 
R2.V3(R0) 

CVTSK 

#RDBLK,RO 

#HSLIN-1.R3 

R3,RU.DUN(R0) 

(R4),R3 

R3,RU.L0U(R0) 

1(R4},R3 

ST.LBN,R3 

R3,RU.HI(R0) 

#RCTBUF,R3 

R3«RU.BUF(R0) 

#RUCND,R3 

CURTRK.RI 

R1«R3 

R3.RW.CN0(R0} 

fRDBLK.RO 

#RDCND,R3 

R3,(R0) 

UNIT.R2 

fBIT15,R0 

SIP 

READ 

R1 

100$ 

(R0),R3 

#ECCF,R3 

101$ 

ECCCK 

R1 

100$ 

#RCTBUF.R2 
CEDC 

RU.EDC(R2),R3 
102$ 

RETRY, TNPTRY 
1$ 

TNPTRY 



;F0R INIT 

;6ET POINTER TO BLOCK NUNBER 

: CLEAR ERROR COUNTER 

;POINT TO CHARACTERISTICS 

:6ET STARTING CYLINDER 

; CLEAR REST OF WORD 

.-POINT TO CONVERT BLOCK 

: STORE FOR CONVERT 

;FOR STORE 

;LOU ORDER ALWAYS 0 

:6ET LBN/TRK 

.'CLEAR HIGH PYTE 

.•STORE IN CONVERT BLOCK 

.-CONVERT RCT BLOCK NUNBER AND SEEK 

.-PREPARE FOR READ SECTORS 

.-POINTER TO OUNNV SDI BLOC^ 

.-STORE IN CONNAND BLOCK 

.-LO ORDER BLOCK NUMBER 

.-STORE IN READ COND BLOCK 

;HI ORDER BLOCK NUN AND CODE 

.-ADD STARTING LBN BITS 

.-STORE IN READ CND BLOCK 

.-LOAD ADDRESS OF DATA BUFFER 

.-STORE IN CONNAND BUFFER 

.-LOAD SDI READ CONNAND 

;6ET CURRENT HEAD NUNBER IN R1 

:SET IT IN CONNAND 

-STORE BACK 

•HAKE SURE POINTING AT BLOCK 

.-NARK AS ONLY REQUEST 

.-STORE IN CND BLOCK 

;SDI INTERCONNECT 

.-SET NO REVECTORING 

.-WAIT FOR PULSE 

.•READ 1 SECTOR 

.-ANY ERRORS ? 

.-YES - TRY RECOVERY 

.-GET STATUS UORD 

.-ECC ERROR ? 

.-NOPE ' VERIFY EDC 

.-CORRECT ECC 

.-TEST FLAG 

.-UNCORRECTABLE 

.•POINT TO BUFFER 

.-COMPUTE EDC 

;0.K. ? 

;YUP - CONSIDER GOOD 
;NAX ? 

;YES - TRY SONE RECOVERY 
.-INC RETRY COUNT 
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RCT READ OVERLAY (Hi) 










58 


003155 


003115 








BR 

on 


59 


003156 


104303 


001 so? 




It' 


nw V 


60 


003160 


073172 








BMI 

DTIl 


61 


003161 


115000 








TST 


62 


003163 


013165 










65 


003164 


022571 










64 


003165 


114000 


001501 






CLR 


65 


003167 


117400 


001 SO? 






DEC 


66 


003171 


003115 








BR 


67 


003172 








2t' 




68 


003172 


115405 








INC 


69 


003173 


106305 


001 P4S 






CMP 


70 


003175 


013331 








BEO 


71 


003T /6 


104203 








NOV 


72 


003200 


021503 








CAi L 


73 


003201 


114000 


001 SOI 






CLR 


74 


003203 


104300 


001 soo 


001 so? 

WW 1 ^vc 




MOV 

nw* 


75 


003206 


003062 








BR 


76 


003207 












77 


003207 


114000 


001 SOI 






CLR 


78 


003211 


10430U 


001 500 

WW 1 ^ww 


00150? 

WW 1 -fWC 




MOV 


79 


003214 


115005 








TST 


80 


003215 


013322 








BFQ 


81 


003216 


104203 


001 P41 

WW 1 ■ 






MOV 


82 


003220 


021521 










83 


003221 


022665 










84 


003222 


104207 


0007? 1 








85 


003224 


104203 


1?2^00 






MOV 


86 


003226 


104302 


001113 






MOV 


87 


003230 


101023 








BIS 


88 


003231 


100673 


00000^ 
wwwww*t 






MOV 


89 


003233 


104203 


006621 

WW WC 1 






MOV 


90 


003235 


100673 


000001 

WWW 1 






NOV 


91 


003237 


104143 








NOV 


92 


003240 


100673 


000002 
wwwwc 






MOV 


93 


003242 


104643 


000001 

www 1 






NOV 


94 


003244 


105303 


001323 






ADD 


95 


003246 


100673 


000003 

WWWWW<^ 






MOV 


96 


003250 


104203 


000726 

WWW* fcW 






MOV 


97 


003252 


100673 


000005 

WW WW J 






NOV 

nw w 


98 


003254 


104303 


001321 




URIT12: 


NOV 


99 


003256 


104304 


001322 






NOV 


100 


003260 


104302 


000740 

WWW f ^ w 






NOV 

n\# w 


101 


003262 


104207 


000721 

WWW* b > 






NOV 

nw w 


102 


0032(>4 


101207 


1 ooooO 

1 wwwvw 






BIS 


103 


003266 


060012 








XFC 


104 


003267 


060003 








XFC 


105 


003270 


115001 








TST 


106 


003271 


013315 








BFO 


107 


003272 


106300 


001477 

WW 1 r r 


001 501 

WW 1 1 




CNP 


108 


003275 


013301 








WWW 


109 


003276 


115400 


001 SOI 

WW ■ -'W 1 






INC 


110 


A A 9 V A A 

003300 


003254 








BR 


111 


003301 


104303 


001502 




IS: 


NOV 


112 


003303 


073315 








BNI 


113 


003504 


115000 


001 soo 






TST 


114 


003306 


013310 








BEQ 



C 9 

PAGE 67-1 



SEQ 314 



REA011 ; 


DO RETRY 


RECTNP R3 ■ 


GET CURRENT ERROR RECOVERY LEVEL 


2S 


IF NEGATIVE THEN FRIED 


RECOV • 


IS THERE ONLY RECOVERY LEVEL 0 ? 


3S 


YES - NO NEED TO ISSUE IT - JUST RETRY 


ERRHND 


TRY RECOVERY 


TNPTRY 


FOR I NIT 


RECTNP ; 


DECRENENT IT 


READ11 


RETRY 


R5 ; 


INCRENENT BAD COUNTER 


FCTCPY.RS ; 


ALL BAD ? 


ORFTAL 


YUP - ALL OVER 


#RCTFNT,R3 


SIZE OF TABLE - R4 -> BLOCK NUMBER 


DADD 


ADD TO POINT TO NEXT COPY 


TNPTRY 


RESET RETRY COUNT 


RE GOV, RECTNP 


■DITTO RECOVERY LEVELS 


OCLOOP 


'BRANCH BACK 


TNPTRY 


;FOR RESET 


RECOV, RECTNP 


■GET RECOVERY LEVELS 


R5 


'ANY ERRORS ? 


RLDONE 


'NO - EXIT 


#FCTFNT.R3 


;SI2E OF TABLE 


DSUB 


:GET BACK TO PREVIOUS COPY 


CVTSK 


; CONVERT AND SEEK 


fURBLK.RO 


; POINT TO COMMAND BLOCK 


#WRCN0,R3 


;6ET VRITE COPflAM) 


CURTRK,R2 


;GET CURRENT TRACK 


R2,R3 


;SET TRACK FOR WRITE 


R3,RU.CN0(R0) 


; STORE IN CONHANO BLOCK 


fRCTBUF,R3 


rPOINT TO BUFFER 


R3,RU.BUF(R0) 


; STICK IN CONPtAND BLOCK 


(R4),R3 


rGET LOW ORDER HEADER 


R3,HW.LOU(R0) 


;STORE IN WRITE BLOCK 


1(R4),R3 


rGET HIGH ORDER 


ST.LBN,R3 


;ADD STARTING LBN BITS 


R3,RU.HI(R0) 


; STORE IN WRITE BLOCK 


fHSLIN-1«R3 


;GET DUNNY SDI POINTER 


R3,RW.DyH(R0) 


;POINT IN COMNAM) BLOCK 


HPREA,R3 


rGET HEADER PREAMBLE 


DPREA,R4 


;GET DATA PREANBLE 


UNIT«R2 


;SET UNIT 


#UR6LK,R0 


;NAKE SURE POINTING AT BLOCK 


fBITIS.RO 


;SET NO REVECTORING 


SIP 


rWAIT FOR SECTOR PULSE 


WRITE 


;WRITE SECTOR 


R1 


:ANY ERROR ? 


2S 


;N0 - SKIP RETRY 


RE TRY, TNPTRY 


;NAX ? 


IS 


;YES - TRY SOK RECOVERY 


TNPTRY 


;INC RETRY COUNT 


URIT12 


;D0 RETRY 


RECTNP. R» 


;GET CURRENT ERROR RECOVERY LEVEL 


2S 


;IF NEGATIVE THEN FRIED 


RECOV 


;IS THERE ONLY RECOVERY LEVEL 0 ? 


3S 


;YES - NO NEED TO ISSUE IT - JUST RETRY 



0 9 
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RCT READ OVERLAY (Hi) 



115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 



003307 
003310 
003312 
003314 
003315 
003315 
003316 
003321 
003322 
003330 
003331 
003332 
003334 



022571 
114000 
117400 
003254 

11^405 
104300 
003207 

000000 
104012 
104201 
022542 



001501 
001502 



001500 001502 



3S: 



2$: 



000016 



RLDONE: 
ORFTAL: 



CALL 
CLR 
DEC 
BR 

DEC 

nov 

BR 

POPA 
RETURN 

nov 
nov 

CALL 



ERRHND 
TnPTRY 
RECTNP 
URIT12 

R5 

RECOV.RECTnP 
OCDONE 



R1,R2 
#14., R1 
ERRNNT 



SEQ y.b 



;TRY RECOVERY 
;FOR INIT 
.•DECREMENT IT 
;RETRr 

.-DEREHENT COUNTER 

;GET RECOVERY LEVELS 
:SEE IF ANY MORE TO DO 

:ALL DONE 
:XFC ERROR CODE 
;RCT READ ERROR 
; ERROR RETURN 



E 9 
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SEQ 316 



1 
2 
3 
4 
5 
6 

7 003335 
8 
9 
10 

11 003025 003166 



.SBTTL FCT->RCT CONVERSION OVERLAY (F5> 
CONVERT FCT INTO RCT 

DNOVLY F 5, START 
jnP START2 



;SKJP SUBROUTINES 



F 9 
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FCT->RCT CONVERSION OVERLAY (F5) 



1 
2 

3 

« 00502A 

5 003025 

6 0C3026 

7 003C30 

8 003031 

9 00303A 

10 003036 

11 0030A1 

12 0030A4 

13 0C3046 
U 003050 
15 

16 003051 

17 003052 

18 003053 

19 00305A 

20 003055 

21 003057 

22 003062 

23 003065 



115001 
073055 
10A207 
022730 
104200 
1U000 
104300 
104300 
104204 
104203 
021565 

104131 
105011 
100131 
000000 
104140 
104640 
107300 
003031 



001053 

000200 
000737 
001152 
001153 
000731 
000736 



HASH: 



000736 HKIP: 

000731 
000732 



001152 

000001 001153 
001324 001153 



HKIP1 



COMPUTE RCT ADDRESS FOR GIVEN 

TST R1 

BNI HKIP1 

MOV «SCR,RO 

CALL PRIHRB 

NOV «128.,TEHP 

CLR TEMP+I 

MOV REVRBN.DDUMMY 

MOV REVRBN^I ,DDUMHY«1 

MOV «DDUNMY^R4 

MOV «TEMP,R3 

CALL DDIV 

MOV (R3),R1 

ADD R1,R1 

MOV R1,(R3) 
RETURN 

MOV (R4).REVRBN 

MOV 1(R4),REVRBN*1 

SUB ST.RBN«REVRBN«1 

BR HKIP 



5EQ 317 



NEED TO COMPUTE PRMARV RBN ? 
NO - SKIP IT 

POINT TO CUBUNIT CHARACTERISTICS 

COMPUTE PRIMARY RBN 

DIVIDE BY 128 TO GET BLOCK NUMBER 

FOR STORE 

GET PRIMARY RBN 

GET HIGH ORDER 

FOR DIVIDE 

DITTO 

DDUMMYsRCT BLOCK NUMBER 

TEMP«OFF$ET 

GET OFFSET 

MULTIPLY BY 2 

STORE BACK 

;F'»»OIVIDE SETUP 

; SUBTRACT STARTING RBN BITS 
;D0 DIVIDE 



6 9 
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FCT->RCT CONVERSION OVERLAY (F5) 



1 
2 
3 

5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 



003066 
003070 
003071 
003C73 
003074 
003075 
003077 
003100 
003102 
003104 
003^06 
003107 
003111 
003112 
003113 
003114 
003115 
003116 
003120 
003122 



003123 
003125 
003127 
003131 
003132 
003134 
003136 
003140 
003141 
003143 
003145 
003146 
003147 
003151 
003152 
003155 
003160 



114000 
114002 
104303 
104035 
105025 
102205 
053112 
104651 
103201 
106201 
013147 
106201 
013161 
104025 
114002 
107052 
073120 
105202 
106202 
053073 



115400 
104303 
104204 
100143 
114000 
114000 
104203 
021503 
104040 
104201 
022435 
003070 
104303 
053162 
104200 
104200 
003125 



003161 000000 



001223 
000736 

000400 

006622 
007777 
100000 

000000 



000002 
000400 



003162 
003164 
003165 



104201 
114002 
022542 



001474 
001474 
000731 

000732 
000736 
001230 

001254 
000055 



001223 

000002 
000002 



000020 



SEARCH FOR OPEN ENTRY IN RCT 



PNGPNG : 


CLR 


URFLG 




CLR 


R2 


MOV 

nw w 


0FFSET.R3 


PA6AIN: 


fiov 


R3,R5 


ADD 


R2,R5 




BIT 


«BIT8.R5 




BNE 


FLIP 




NOV 


RCTBUF^I (R5),R1 




BIC 


#L0»R1 




CMP 


#RC.NUL.R1 




BEQ 


EORCT 




CMP 


m.FRE.RI 




BEQ 


PRET 


FLIP: 


MOV 


R2,R5 




CLR 


R2 




SUB 


RS,R2 




BMI 


NOINC 




ADD 


»2M 


NOINC: 


CMP 


«SECSI6,R2 




BNE 


PAGAIN 




IN THIS 


SECTION THE BLOCKS 




THE SEARCH WITHIN BLOCKS IS 




ADDRESS 


TO LOWEST 



001474 
001223 





INC 


PNGRD: 


MOV 




MOV 




MOV 




CLR 




CLR 




MOV 




CALL 




MOV 




NOV 




CALL 


EORCT: 


BR 
MOV 




BNE 




MOV 




MOV 




BR 



RCTCNT 

RCTCNT,R3 

«D0UMnY,R4 

R3,(R4) 

DDUWIY^I 

OFFSET , 

fH0LD,R3 

DADO 

R4.BUFPNT 

fHl.Rl 

PAGE 

PNGBLK , 
WRFLG.R3 
PERR 

f2,RCTCNT 

«2,URFLG 

PNGRD 



PRET: RETURN 



PERR: MOV f16.,R1 
CLR R2 
CALL ERRPWT 



; CLEAR WRAP FLAG 
.FOR FLOP SET 
.GET OFFSET 

;MOV OFFSET INTO BUFF POINTER 

;ADD FLOP VALUE 

.-PAST ONE END (OR BOTH) 

:YUP - FLIP OTHER DIRECTION 

;GET HEADER CODE 

.•CLEAR LOU ORDER STUFF 

;END OF RCT ? 

;YUP - WRAP TO FIRST BLOCK 
.FREE ? 

;YUP - ALL DONE 
;GET FLIP VALUE 

.•NEGATE IT 

;IF NEGATIVE DON'T INC 
;ADD 70 NEXT VALUE 
;D0NE EVERY SLOT IN BLOCK ? 
;NOPE - TRY NEXT ONE 

ARE PING-PONGED BUT 
LINEAR FROM HIGHEST BUFFER 



;INC TO NEXT ONE 
.-FOR STORE 
;FOR ADD 

.STORE BLOCK NUMBER 
;FOR RESETS 
;NAKE IT AT ZERO 
.POINT TO FIRST RCT LBN 
;GET LBN OF THIS RCT BLOCK 
.STORE POINTER TO BLOCK NUMBER 
;RCT READ OVERLAY 
;D0 IT 

.SEARCH THIS BLOCK 
:6ET WRAP FLAG 

;IF BEEN HERE ONCE THEN RCT FULL 
.•FOR FIRST RCT BLOCK 
.-MAKE WRAP FLAG NON-ZERO 
.•READ IT AND CONTINUE 



; SUCCESSFUL RETURN 
;R5sOFFSET 
;RCT FULL 
;N0 SUBCODE 
.•ERROR RETURN 



H 9 
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FCT->RCT CONVERSION OVERLAY (F5) 



SEQ 319 



1 

c 
X 

c 
J 
c 
O 
7 

r 


Wj I oo 








P 

o 


Wj IOO 


104700 

1 UHcW w 


000014 


001154 

UU 1 1 


g 


vV J 1 r 1 


1 04303 


001 113 

Uw 1 1 1 J 




10 

1 w 










1 1 




104303 

1 vH JwJ 


001 1 76 

Uw 1 1 CO 




1 c 


W J 1 ' o 








IT 

1 J 


OA'^I 77 


1 04303 


001177 

U w 1 1 c ' 






WW Jew 1 








1 s 


WW JCWC 


104704 

1 w*tC wH 


001757 

Uw iCJf 




^f\ 

lO 


nAX704 


104703 

1 wtcwj 


001463 

UU 1 HO J 




1 7 


wwJCwO 


071571 

wC 1 JC I 






1 o 


003707 

WJCwf 


104143 

1 w"t I J 






19 


003710 








?0 
cv 


003711 

wwJc 1 I 


114000 
1 1 •♦www 


001757 
UU 1 cj ' 




PI 


003713 

wwJc 1 J 


104700 


004535 

UU"t J J J 


001754 

UU 1 C 




0O371A 

UwjC I O 


104701 


000017 
wVwv 1 r 






003770 


07743^ 






OL 
C* 


003771 


1 04704 

1 W«»C wH 


004535 




?S 
c3 


00<773 


104^^0 


000016 
WJW 1 o 


001763 

UU 1 CO J 


CO 


0O377A 


104700 

1 UtCUw 


000700 


001451 

Uw lU 1 




003731 


104300 

1 V** Jww 


001 1 34 

Uw 1 1 J** 


001 730 
UU 1 c ju 


CO 


003734 

wwJC J"t 


104300 

1 Vt Jww 


001135 


001 251 


c~ 


005737 

wwJC Jr 


104703 

1 w*f C w J 


00147? 






003741 

WW Jc*v 1 


104704 

1 W"*C 


001250 

WW 1 C Jw 




•11 


003743 

WW JCHJ 


071571 

wC 1 1 








003744 

WW JC"t"t 


104701 


000022 






00374A 

WW JCHO 








J** 


003747 




001 






0037S1 


01 5733 






JO 


0O37S7 

wwJC JC 


1 VHCW 


004555 


001754 

UU 1 C 


77 


0037^^ 

WW JC 


1 V*fC V 1 


000017 




38 


003257 


022435 






19 


003260 


104200 


004535 


001 256 

WW 1 b 




003263 


104504 


001256 




41 


00326S 


104140 


001 111 

WW III! 




42 


003267 


104640 


000001 

www 1 


001112 

W 1 1 1 


43 


005272 


104201 


000044 

WW^~ 








077455 

wCC** JJ 








005275 


104505 


001115 






003277 


105203 


007777 

W« • • * 




47 


005501 


106203 
055461 


000000 

www 




48 


005505 










104205 


001114 

W III" 




SO 


005506 


104204 


001120 

W 1 1 Cw 




CI 

J 1 


003510 


021675 






52 


003311 


033671 






53 


003312 


104204 


001114 




54 


0033U 


023024 






55 


003315 


104143 






56 


003316 


105203 


000002 




57 


003320 


100143 







THIS OVERLAY UPDATES THE RCT WITH THE SECTORS 
IN THE ERRBUF BUFFER 



START2: 

FCTRCT: HOV 
NOV 
PUSH 
NOV 
PUSH 
NOV 
PUSH 
NOV 
NOV 
CALL 
NOV 
PUSH 
CLR 
NOV 
NOV 
CALL 
NOV 
NOV 
NOV 
NOV 
NOV 
NOV 
NOV 
CALL 
NOV 
CALL 
NOV 
BEO 

FBEGIN: NOV 
NOV 
CALL 
NOV 
NOV 

FBE62: NOV 
NOV 
NOV 
CALL 
NOV 
BIC 
CNR 
BNE 
NOV 
NOV 
CALL 
BPL 
NOV 
CALL 
NOV 
ADO 
NOV 



#F5,CUR0VL 

CURTRK,R3 

R3 

CYLNUN,R3 
R3 

CYLNUN«1,R3 
R3 

«FCTCNT,R4 

#0NE,R3 

DSUB 

(R4),R3 

R3 

FCTCNT 

fRDBUF.BUFPNT 

#F6«R1 

PAGE 

«RDBUF,R4 

C512(R4),NNCNT 

f128.,SECCNT 

LBNLBN.HOLD 

LBNLBN^I ,H0LD4^1 

#T0TRCT,R3 

fH0LD,R4 

OSUB 

fF7.Rl 

PAGE 

NNChT,R3 

FCTSP 

fROBUF^BUFPNT 

fF6,R1 

PAGE 

#RDBUF,FCTPTR 

FCTPTR,R4 

(R4),CURPBN 

1 (R4) .CURPBN^I 

fG5«R1 

PAGE 

CURBNtI .R3 

#L0,R3 ^ 

fH0.L6N,R3 

NOLBN 

#CURBN.R3 

fN0L06N,R4 

OCNP 

XYZI 

«CURBN,R4 

HASH 

(R4),R3 

#2«R3 

R3.(R4) 



GET OVERLAY NUNBER 
GET CURRENT TRACK 
SAVE IT 

SET LOU ORDER CYLINDR 
SAVE FOR RESTORE 
GET HIGH ORDER 
SAVE FOR RESTORE 
FOR SUB 
DITTO 

SUB TO GET CURRENT FT BLOCK NUN 
GET IT 

FOR LATER RESTORE 

CLEAR FOR INIT 

POINT TO BUFFER 

READ A BLOCK Of THE FCT 

EXECUTE IT 

NAKE SURE POINT TO IT 

GET COUNT OF USED ENTRIES 

ENTRIES IN A FCT SECTOR 

GET LOU ORDER COUNT OF LBN'S 

GET HIGH ORDER 

FOR SUBTRACT 

DITTO 

GET STAIITIN6 RCT LBN 
RCT INIT OVERLAY 
INIT RCT 
GET COUNT 
QUIT IF NO ENTRIES 
POINT TO BUFFER 
FCT READ OVERUY 
DO IT 

NAKE SURE POINT TO TI 
FOR USE 

GET LOU ORDER PBN 
GET HIGH ORDER 

OVERLAY TO CONVERT FORH PBN TO OTHER 8N 
EXECUTE IT 

GET HIGH ORDER CONVERTED BLOCK NUN 

CLEAR ALL BUT HEADER 

IS IT AN LBN ? 

NO - SKIP DOUN 

CURRENT BAD fLOCK 

FIRST BLOCK OF RCT AREA 

IN RCT 

YUP - IF 'compare YIELDS PLUS 
POINT TO BLOCK NUNBER 
COMPUTE RCT ENTRY 
GET RCT BLOCK 

ADD TO GET BY FIRST 2 BLOCKS 
STORE BACK 
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FCT->RCT CONVERSION OVERLAY (FS) 



58 




1 A/ ATA 

104030 


AA4 / 7y 

001474 






nOV 




003323 


4 A/ 1A9 

104203 


AA4 OTA 

001230 






nOV 


60 


003325 


A01 CAY 

021503 








CALL 


61 


003326 


4 A/ A/ A 

104040 


AA4 ocy 
001254 






MAli 

nOV 


62 


003330 


4 A/ OA1 

104201 


AAAACC 

000055 






MAli 

nOV 


63 


003332 


022435 








CALL 


64 


003333 


1 A/ OAC 

104205 


AAXX01 

006621 






MAli 

nOV 


65 


AA7WC 

003335 


1 A/ <A7 

104303 


AAA7TX 

000 r 36 






MAU 


66 


AATT77 

003337 


105035 








AAA 


67 


003340 


1 A/ ^ CT 

104653 


AAAAA4 

000001 






MAli 

nOV 


6o 


003342 


103203 


AA7777 

00 7 7 7 7 








69 


003344 


106203 


AAAAAA 

000000 






TMD 


70 


003346 


A1 7^77 

013637 








DCA 


rl 


AAV7/ 7 

003347 


1 AX OAT 

106203 


Ay AAAA 

040000 






Cnr 


72 


Ai%WC4 

003351 


A4 7X4 X 

013616 








BC A 


f 3 


003352 


1 A/ 4 CA 

104150 


AAA7TT 

000733 






MAU 

TOY 


7h 


003354 


1 A/ XCA 

104650 


AAAAAi 
000001 


AAA7TX 

000734 




MAli 

HOV 




003357 


1 A/ 7A7 

104303 


AA1 1 IX 

001114 






MAli 

HOV 


76 


003361 


1 AA1 C7 

100153 








MAli 

nov 


f f 


003362 


1 Ay 7A7 

104303 


AA1 lie 

001115 






MAli 

HOV 


78 


003364 


1 A77A7 
107303 


AA1 TOT 

001323 










00jjo6 


1 A70A7 

1 03203 


i 7AAAA 

1 70000 






Die 


80 


003370 


4 A4 OAT 

101203 


AOAAAA 

020000 








81 


003372 


4 AAX C7 

100653 


AAAA A 4 
000001 






MAli 

nOV 


82 


AATT7/ 

003374 


4 AOOAA 

102200 


AAAX AA 

000400 


AA1 OOA 

001220 




BIT 

oi 1 


83 


AA7777 

003377 


A1 7X77 

013437 








Bcn 


o/ 

84 


AA7/ AA 

003400 


1 Ay 7AO 

104302 


AA1 OCX 

001256 






MAli 

nOV 


oc 
63 


AATy AO 


1 Ay XOT 

104023 


AAAAAI 
000001 






MAU 
HOV 


Bo 


003404 


1 A1 OAT 

101203 


iAAAAA 
100000 






QIC 


87 


AAV/ A^ 
003HUO 


1AAXOT 

100623 


AAAAAi 
000001 






MAU 

nov 


88 


AAVy 1A 


1 AXOAO 

106202 


AAXCTC 

004935 






TMD 

CWr 


so 
8t 


AAY/.1 0 

003412 


ACTXT1 

053431 








one 


OA 


AATy 1 T 

003413 


1 Ay TAA 

104300 


AAA7T1 

000731 


AA1 1 1A 

001 116 




MAU 

WOV 


Qi 
VI 


00341O 

AAlZO< 

00342 i 


1 AX TAA 

104300 


AAA7T0 
000 73i 


AA1 117 

OU 1 M f 




MflU 

nuv 




AOT7XX 

023766 








CALL 


OT 


U03422 


104300 


AA1 11 A 
UU 1 1 1 0 


AAA7T1 
UUUr 3 1 




MAU 




AAUOC 
0034£3 




OUl 1 1 f 


AAA7'<3 
UUUr 3c 




MAU 


oc 


AAIATA 

0U343U 


AATXT7 
00343f 








ttQ 

on 


TO 


003431 


107£VC 


000001 




CTTClrl • 

r 1 1 1 : 




Q7 
Tf 


U03433 


1 AX1 OT 
IU4 le3 








nU¥ 


OB 
TO 


0U3434 


1AT0AT 
lU3cU3 


lUUVW 






pf r 

Die 




AATZ tiL 
003430 


1 AOiOT 

100123 








wuv 




AA%£.T7 

003437 


n9xn37 

024027 








CALL 


1 A1 

lUl 


AA1Z/.A 

003440 


AOTAiUL 
023066 








CALL 


1 AO 


003441 


1 AXOAX 
104e04 


AAXX01 
00062 1 






IMU 


1 AT 


003443 


1 ACACX 

105054 








AAA 


1 A/ 


003444 


1 AXOAO 

104202 


AAA7TT 
0007 33 






MAU 

nUV 


1 AC 


003440 


1AX1 OT 
IU4l£3 








MAU 

nUV 


1 AA 
1UO 


00344 f 


1 AA1XT 
IUUl*l3 








MAW 

nuv 


1 A7 


AAIZCA 

003450 


1AXX0T 
104623 


AAAAAI 
000001 






MAU 

nOV 


1 Afl 


AATZCO 

00345c 


1 ATOAT 
103eU3 


1 7AAAA 






Bf r 

Die 


100 

lUT 




lAtOAT 


ATAAOA 






Did 


110 


003456 


100643 


000001 






NOV 


111 


003460 


003670 








BR 


112 


003461 


106203 


060000 




N0L8N: 


CHP 


113 


003463 


053671 








BNE 


114 


003464 


104303 


001115 






NOV 



I 9 
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SEQ 320 



R3.RCTCNT 

«H0LD.R3 

DADO 

R4.BUFPNT 

#H1,R1 

PAGE 

«RCTBUF,R5 

OFFSET, R3 

R3,R5 

1(R5),R3 

#L0,R3 

m.FRE,R3 

FILLIT 

#RC.UNU,R3 

BADRBN 

(RS),TENP2 

1<R5),TEMP2*1 

CURBN,R3 

R3,(R5) 

CURBN*1,R3 

ST.LBN,R3 

#H0.CLR,R3 

m.PRV,R3 

R3J(R5) 

f DLL, FLAG 

FCTSKP 

FCTPTR,R2 

1(R2),R3 

«PRNY,R3 

R3J(R2) 

#RDBUF.R2 

FCTSK1 

DDUHNY.CURXBN 

DDUNHY*1,CURXBN«1 

FIXFCT 

CURXBN.ODUHNY 

CURXBN^I ,00UNNY^1 

FCTSKP 

f1-R2 , 

(R2),R3 

#PRNY.R3 

R3,(R2) 

RCTURT 

PNGPNG 

fRCTeUF,R4 

R5,R4 

#TENP2.R2 

(R2),R3 

R3,(R4) 

1(R2),R3 

#H0.CLR,R3 

fRC.SND,R3 

R3,1(R4) 

XY2 

fHD.R6N,R3 
XYZ1 

CURBN^1,R3 



.SAVE FOR LATER P%PNG 
.FOR ADD 

.TO GET LBN OF RCT BLOCK 

.•STORE POINTER TO BLOCK NUMBER 

:RCT READ OVERLAY 

.EXECUTE IT 

.POINT TO BUFFER 

;6ET OFFSET 

.POINT TO ENTRY 

;GET HIGH ORDER 

.•CLEAR ALL BUT HEADER 

;IS IT FREE ? 

;VES - FILL IT 

.UNUSABLE RBN ? 

:YES - NUST BE SECONDARY 

.ELSE SWITCH 

;HI6H ORDER 

;GET NEW RESIDENT LOW ORDER 

.STORE IN RCT 

:GET HIGH ORDER 

.SUBTRACT STARTING LBN BITS 

.•CLEAR THE HEADER 

:NARK AS PRINARY 

'STORE IT 

•DID WE CREATE THE FCT ? 

;N0 • THEN DON'T CHANGE IT 

.-GET POINTER TO CURRENT FCT BLOCK PCS 

.GET HIGH ORDER FCT ENTRY 

;NAKE IT SECONDARY 

.'STORE IT BACK 

;IS THIS THE FIRST ENTRY IN THE BLOCK 
:NOPE WE*RE SAFE 
:SAVE RCT BLOCK NUMBER 
.•DITTO 

;YUP - GOT SONE GYRATIONS TO DO 
.RESTORE RCT BLOCK NUNBER 
.DITTO 

.-THEN CONTINUE ON 
;POINT BACK ONE 
;GET HIGH ORDER 
.CLEAR PRINARY IF SET 

•STCME IT 

•WRITE OUT CHARNGEO BLOCK 
;FIND IT A NEW HONE 
.•POINT TO BUFFER 
.ADD OFFSET 

.•POINT TO OLD RESIDENT 
.GET LOW ORDER 
;PUT IT IN 
;GET HIGH ORDER 
.•CLEAR HEADER 
.•NARK AS SECONDARY 
.STORE IT 
.•SKIP TO END 
* BAD RBN '' 

•NO - THEN DON'T CARE ABOUT IT 
;GET HEADER 
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FCT->RCT CONVERSION OVERLAY (FS) 



115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
"'28 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
UO 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
163 
169 
170 
171 



003466 
005470 
003472 
003474 
003476 
003477 
003500 
003502 
003503 
003505 
003507 
003510 
003512 
003514 
003515 
003517 
003521 
003522 
003524 
003526 
003530 
003531 
003533 
003535 
003537 
003540 
003543 
003546 
003550 
003552 
003554 
003556 
003557 
003560 
003561 
003562 
003564 
003565 
003567 
003570 
003571 
003573 
003575 
003577 
003601 
003604 
003605 
003607 
003611 
003612 
003614 
003615 
003616 
003617 
003621 
003622 
003624 



103203 
104030 
104201 
104204 
023024 
104143 
105203 
100143 
104030 
104203 
021503 
104040 
104201 
022435 
104205 
104304 
105045 
104653 
103203 
106203 
053540 
103203 
101203 
100653 
003670 
104650 
104650 
103203 
101203 
103203 
100653 
114003 
100153 
024027 
023066 
104204 
105054 
104202 
104123 
100143 
104623 
103203 
101203 
100643 
102200 
013615 
104302 
107202 
104123 
103203 
100123 
003670 
023066 
104204 
105054 
104202 
104123 



170000 




BIC 


001 1 1 5 




MOV 






«0V 


001114 




nov 






CALL 






NOV 


000002 




ADD 






HOV 


001474 




NOV 


001230 




MOV 






CALL 


001254 




flOV 


000055 




nov 






CALL 


006621 




NOV 


000736 




MOV 






A A A 

ADD 


000001 




MOV 


007777 




BIC 


000000 




CMP 






BNE 


170000 




A * J* 

BIC 


040000 




BIS 


000001 




NOV 






BR 


AAA AAA 

000000 


AAA'VW flbflbShi 

000733 RRPL : 


NOV 


AM A A A 4 

000001 


AAA 

000734 


NOV 


1 70000 




BIC 


A / /\ A A A 

040000 




BIS 


007777 




A V ^ 

BIC 


AAAAA4 

000001 




NOV 






CLR 






NOV 






CALL 






CALL 


006621 




MAt# 

NOV 






ADD 


000733 




MAti 

NOV 






NOV 






NOV 


AAAAA4 

000001 




NOV 


170000 




BIC 


030000 




BIS 


AA AA A4 

000001 




NOV 


00C400 


AA4 ^^A 

001220 


BIT 






Bcli 


001256 




NOV 


000001 




SUB 






NOV 


100000 




BIC 






NOV 



006621 
001114 



FCTSLP: BR 
BADRBN: CALL 
NOV 
ADD 
NOV 
NOV 
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SEQ 321 



#HD.CLR,R3 

R3,CURBN^1 

#-1,R1 

fCURBN,R4 

HASH 

(R4),R3 

#2.R3 

R3,(R4) 

R3,RCTCNT 

«H0LD,R3 

DADO 

R4.BUFPNT 

#H1,R1 

PAGE 

mTBUF,R5 

0FFSET,R4 

R4,R5 

1(R5).R3 

«L0«R3 

fRC.FRE.R3 

RRPL 

m.CLR,R3 
#RC.UNU,R3 
R3.1(R5) 
XYZ 

0(R5).TENP2 

1(R5),TENP2*1 

#HD.CLR,R3 

fRC.UNU,R3 

#L0.R3 

R3j(R5) 

R3 

R3,(R5) 

RCTWRT 

PNGPNG 

#RCTBUF,R4 

R5.R4 

#TiNP2,R2 

(R2),R3 

R3,(R4) 

1(ft2),R3 

#H0.CLR,R3 

fRC.SN0,R3 

R3J(R4> 

fOLL.FLAG 

FCTSLP 

FCTPTR,R2 

fl.R2 

(R2),R3 

fPRNY.R3 

R3,(R2) 

XYZ 

PNGPNG 

«RCTBUF,R4 

R5«R4 

#CUR8N.R2 

(R2),R3 



.-CLEAR IT 

; STORE IT BACK 

;SJCNAL RCT BLOCK 

.•POINT TO BLOCK NUNBCR 

;GET RCT BLOCK AND OFFSET 

.-GET RCT BLOCK 

;ADD TO GET BY 2 BLOCKS 

.•STORE BACK 

;SAVE FOR LATER PNGPNG 
:FOR ADD 

:T0 GET LBN OF RCT BLOCK 
.•STORE POINTER TO BLOCK NUMBER 
;RCT READ OVERLAY 
;D0 IT 

; POINT TO BLOCK 
;GET OFFSET 
.•POINT TO ENTRY 
;GET HIGH ORPER 
.•CLEAR ALk BUT HEADER 
;IS IT FREE ? 

:N0 - RELOCATE CURRENT RESIDENT 

; CLEAR THE HEADER 

:NARK AS UNUSABLE 

; STORE IT BACK 

.•BRANCH TO THE END 

;GET LOU ORDER CURRENT RESIDENT 

;GET HIGH ORDER 

.•CLEAR HEADER 

;NARK AS UNUSUABLE 

.•CLEAR LOU ORDER 

; STORE IT BACK 

; CLEAR FOR STORE 

.•CLEAR LOU ORDER 

;URITE UT BLOCK 

.•FIND IT A NEU HONE 

.•POINT TO BUFFER 

.•POINT TO ENTRY 

.•POINT TO OLD RESIDENT 

:GET LOU ORDER 

.•PUT IT IN 

.•GET HIGH ORDER 

: CLEAR HEADER 

;flARK AS SECONDARY 

•STORE IT 

•DID UE CREATE THE FCT ? 

;N0 - THEN DON'T CHANGE IT 

.-GET FCT PPOINTER 

: POINT BACK ONE 

.GET HIGH ORDER 

.•CLEAR PRIMARY IF SET 

; STORE IT 

.GO TO END 

:FINO A NEU SLOT 

:POINT TO BUFFER 

.•POINT TO ENTRY 

.-POINT TO OLD RESIDENT 

;GET LOU ORDER 
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FCT>>RCT CONVERSION OVERLAY (FS) 



SEQ 322 



172 003625 

173 003626 

174 003630 

175 003632 

176 00363A 

177 003636 

178 003637 

179 0036A1 
160 0036A2 

181 00364A 

182 0036A6 

183 003650 
18A 003652 

185 003654 

186 003657 

187 003660 

188 003662 

189 003664 

190 003666 

191 003670 

192 003671 

193 003674 

194 003676 

195 003677 

196 003701 

197 003702 

198 003705 

199 003706 

200 003711 

201 003713 

202 003714 

203 003715 

204 003717 

205 003720 

206 003721 

207 003724 

208 003725 

209 003730 

210 003732 

211 003733 

212 003734 

213 003736 

214 003741 

215 003743 

216 003744 

217 003745 

218 003747 

219 003751 

220 003752 

221 003754 

222 003756 

223 003757 

224 003761 

225 003764 

226 003765 
227 

228 



100143 

104623 

103203 

101203 

100643 

003670 

104303 

100153 

104303 

107303 

103203 

101203 

100653 

102200 

013670 

104303 

104634 

101204 

100634 

024027 

105200 

117400 

013721 

117400 

053715 

102200 

01??52 

104200 

104201 

022435 

003252 

104304 

060022 

003265 

102200 

013733 

104200 

104201 

022435 

104030 
104200 
104201 
022435 

104030 
104030 

104030 
104030 

104030 
104300 
0222^2 
000000 



0C0001 
170000 
030000 
000001 

001114 

001115 
001323 
170000 
020000 
000001 
000400 

001256 
000001 
100000 
000001 

000002 
001263 

001451 

000400 

004535 
000030 



001256 



000400 

004535 
000030 



001257 
005152 
000017 



001127 
001100 

001126 
001077 

001113 
001460 



001220 



001256 

001220 
001254 



001220 
001254 

001254 



001101 





nUV 


Hi, VnH 1 i 


DMT IT fii 




nUV 


1 it>0\ OX 


uc 1 niun UNi/cN 








ri CAD UCAnCD 




Bib 


MOT CUf\ 


HADv AC ccmunADv 




nUV 


DX 1 iolS 

nj f I INI 1 a 


CTHDC IT 




DK 


Alt , 


tin Tn Ckin 


e ri 1 IT* 




rilDDU OX 


ACT 1 nu npncD ou 




nVrl 




DIIT IM DTT 




nUV 


LURDN^ 1 rKj i 


tifj ulliu npnFD Aun ufarcd 

uc 1 nlUn UNUCN ^TtO nCAUCN 




CI IP 


CT 1 BU OX 


CIIBTDArT CTADTfklR 1 BftI BfTC 
SUDInnLi aiAnlilVU LDIV Oils 




Drr 


Mitt\ n D OX 


ri FAB UFAnFP 




ore 

Did 


MOC DDU 


MADV AC DDfMADV 




nUV 


OX ^ lo^S 


CTnPF fki prT 




Di 1 


ifAl 1 CI kC 


ntn uc rPCATC tuc ctt 9 

VIV HC LRCAIC inc rLI : 




DCU 


VV7 
Alt 


■NO - THEN DON'T CHANGE IT 




nUV 


FTTDTP OX 

r C 1 r 1 If ,n J a 


•aft ontftiTFP Tn crT futpv 

uc 1 rUtniCn lU rci CnlKT 




Mnu 
nu» 


IfPX) PA 


>fiFT urcu npnFP 




pre 


JfDDMV OL 


>CFT AC PPfMABV 
aC 1 n9 rKin^llI 




Mnu 

nuw 


OL 1 (OX') 


, CTnPF PArir 

9 1 UnC DAVn 


y V7 • 


ni 1 


PPTUPT 


•UPfTF nill miFFFP 

POINT TO TO NEXT ENTRY 


yv71 • 


Ann 


my CTTPTfi 




ncr 


MftirUT 


■ ncPFHcur r t 
iWCNcncivi 1 1 




Dcy 


r KI/UKIC 


• t F 7FPP TUFU lUltIC 
, It ACnw inCiV IIUiK 




ISff 
l/Ct 




•ncrPCMCMT IT 
rWCLNCnClfi 11 




one 


FPCirP 


• If cTTi 1 fM PI nrir — rnuTiiiiF 

>lr 91 ILL In DLUvK LMtllKKIC 




BIT 


illkl 1 tt Ati 


• fklfk UP rPFATF TUF FTT 7 
,VIV WC InCAiC iftC rLI : 

• ■in <• TUFM Antl*T ruAAiCC IT 




DCW 


rDCUin 




MOW 


irPAftiiF m IF PUT 


• PniUT Tn AilFFFP 
iruini ill Dwrrcn 




Mnu 


MfQ pi 


•FTT UPITF ftVFPl AV 






PAGE 


;EXECUTE IT 




On 


rDCUin 


• Attn HFT A UFU MIF 


PDCirP* 




PTTPTB PA 


• Fl CF CFT rmPFIlT PftlMTFP 
■ CL.9C UC 1 vtmHcni rvinicR 






ilPfiATF 


• 1 FT unsT irmu ctiii ai ivf 




ftp 


rDCUC 


•AiA nn UFVT FMTPV 


r ifvunc • 


PIT 


Mtil i f 1 Afi 

PTTCP 

r t 1 9r 


•AIA UF rPFATF TUF FTT 7 
rVIV WC vnCniC inC rkl 

• m • TUFM ftnu'T rUAAlCF IT 
,9W0 1 nciv Wl 1 CnnnUC i 1 




PFQ 
DCW 






MMUIF RllFPliT 
•nWOv" »OU" m 1 


•pniMT Tn miFFFB 




MOV 




•UPITF 1 AST FfT RI nriT 






PAGF 


;D0 IT 


r t 1 9r m 


pnp 


R3 


•RFT rittPFMT FfT RI nfK MPI 






ox frtrut 


•RFSTORF IT 




MOV 


tfPBIMUlF BilFPlIT 


•RFoPFAfi IT IM TASF OF UFADFP 

f nC nC^V 1 1 AlV vn9C Vr flcm/Cn 




MOW 


«FA PI 


•FfT RFAft nVFftl AV 






PAAF 


"DO IT 




pnp 


PX 


•CFT UlfiU nPbFR rVI IMbFR 
>uci niun vnwcn kiktiwcn 




KftV 

nuw 


px rvi iiiM4'i 


•STnPF IT 

. 9 1 ImC 1 1 




mnu 




■STOPF IM CFFK rniMAMb 




pnp 


PX 

IIJ 


• AFT 1 nu npnFP 

a uc 1 LwW uni^cn 




Mnv 


px rvi MM 


.DCCTnPF IT 

a nC 9 1 MnC 1 1 




NOV 


R3 ISEEiC4-1 


'STORE IN SEEK C(MNAND 




POP 


R3 


;GET CURRENT TRACK 




NOV 


R3,CURTRK 


; RE TORE IT 




NOV 


CURGRP,ISEEK*3 


; RESTORE GROUP 




CALL 


SEEK 


;RESTORE TO PREVIOUS CYlINDER 




RETURN 
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FCI->RCT CONVERSION OVERLAY (F5) 



SEO 323 



229 
230 
231 
232 

233 003766 

234 003770 

235 003772 

236 003773 

237 003776 

238 OOAOOO 

239 004001 

240 004003 

241 004005 

242 004007 

243 004011 

244 004013 

245 004016 

246 004020 

247 00A021 

248 004026 



104204 
104203 
021521 
104200 
104201 
022435 
104203 
105203 
104632 
103202 
100632 
104200 
104201 
022435 

000000 



001257 
001465 

007321 001254 
000017 

007321 
000377 
000001 
100000 
000001 

007321 001254 
000030 



THIS ROUTINE FIXES UP THE PREVIOUS BLOCK 
OF THE FCT. IT CLEARS THE PRIMARY FLAG OF THE 
LAST ENTRY. 



FIXFCT: «0V 


*FCTCNT-R4 


NOV 


4rTUOC,R3 


CALL 


DSUB 


MOV 


#IMA6E.BUFPNT 


MOV 


*F6,R1 


C^LL 


PAGE 


MOV 


#IMAGE,R3 


ADD 


#255. ,R3 


MOV 


1(R3),R2 


BIC 


/rPRMY,R2 


MOV 


R2J(R3) 


MOV 


f IMAGE, BUFPNT 


MOV 


#F9,R1 


CALL 


PAGE 


DUBINC 


FCTCNT 


RETURN 





FOR SUBTRACT 
DOUBLE WORD OF 2 

SUBTRACT TO GET BACK TO RiGHT tm 

USE IMAGE BUFFER 

FCT READ OVERLAY 

READ THE BLOCK 

POINT TO BUFFER 

POINT TO LAST ENTRY 

GET HIGH ORDER 

CLEAR FLAG 

STORE IT BACK 

STORE BUFFER POINTER 

FCT WRITE OVERLAY 

WRITE IT BACK OUT 

GET FCTCNT BACK TO NORMAL 
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FCT->RCT CONVERSION OVERLAY (F5) 



SEO 324 



1 
2 
3 
A 
5 
6 
7 



OOA027 
004030 
004C32 

8 00403A 

9 004036 

10 004040 

11 004042 

12 004044 

13 004046 

14 004050 

15 004052 

16 004054 

17 004055 

18 004057 

19 004060 

20 004062 

21 004064 

22 004066 

23 004067 

24 004071 

25 004073 

26 004074 

27 004076 

28 004100 

29 004101 

30 004103 

31 004105 

32 004107 

33 004111 

34 004113 

35 004115 

36 004117 

37 004121 

38 004123 

39 004125 

40 004127 

41 004131 

42 004132 

43 004133 

44 004134 

45 004135 

46 004140 

47 004141 

48 004143 

49 004144 

50 004146 

51 004147 

52 004151 

53 004152 

54 004153 

55 004155 

56 004157 

57 004160 



114005 
104050 
104204 
104203 
104207 
104632 
103202 
100672 
104632 
103202 
100672 
114002 
100672 
022665 
104207 
104203 
104302 
101023 
100673 
104202 
022600 
100623 
100672 
104143 
100673 
104643 
105303 
101203 
100673 
104203 
100673 
104303 
104304 
104302 
104207 
101207 
060012 
060003 
115001 
014161 
106300 
014144 
115400 
004117 
104303 
074160 
115000 
014153 
022571 
114000 
117400 
004117 



WRITE AN RCT BLOCK 

DDUmv s BLOCK NUMBER TO BE WRITTEN 



001246 
000731 
001053 
001424 
000011 
177400 
000004 
000001 
007777 
000001 

000000 

000721 
122400 
001113 

000004 
006621 

000400 
000001 

000002 
000001 
001323 
000000 
000003 
000726 
000005 
001321 
001322 
000740 
000721 
100000 



001477 001501 
001501 
001502 
001500 



001501 
001502 



RCTWRT: CLR 
MOV 
MOV 

RCTRLP: NOV 
MOV 
MOV 
BIC 
MOV 
MOV 
BIC 
MOV 
CLR 
MOV 
CALL 
MOV 
MOV 
MOV 
BIS 
MOV 
MOV 
CALL 
MOV 
MOV 
MOV 
MOV 
NOV 
ADD 
BIS 
NOV 
NOV 
NOV 
NOV 
NOV 
NOV 
NOV 
BIS 
XFC 
XFC 
TST 
BEQ 
CNP 
BEQ 
INC 
BR 
NOV 
BNI 
TST 
BEQ 
CALL 
CLR 
DEC 
BR 



URITE3: 



1$: 



3$: 



2$: 



R5 

R5,NEXT1 

«DDUMMY,R4 

#SCR,R3 

#CONBLK,RO 

LBNTRK(R3),R2 

#HIBYTE,R2 

R2,V3(R0) 

STCYL(R3),R2 

#L0,R2 

R2,VU1(R0) 

R2 

R2,V1(R0) 

CVTSK 

«WRBLK,RO 

#WRCMD,R3 

CURTRK,R2 

R2.R3 

R3,RW.CHD(R0) 

mTBUF,R2 

CEDC 

R3«RW.EDC(R2) 

R2,RW.BUF(R0) 

(r4),R3 

R3,RW.LOW(R0) 

1(R4),R3 

ST.LBN,R3 

«HD.LBN,R3 

R3.RW.HI(R0) 

«HSLIN-1,R3 

R3.RW.DUN(R0) 

HPREA,R3 

DPREA,R4 

UNIT,R2 

«WRBLK,RO 

fBITlS,RO 

SIP 

WRITE 

R1 

RU600D 
RETRY, THPTRY 
1$ 

TNPTRY 
WRITE3 
RECTNP«R3 
2$ 

RECOV 
3$ 

ERRHND 
TNPTRY 
RECTNP 
WRITE3 



.•CLEAR ERROR COUNTER 

;INIT NEXT COPY COUNTER 

;POINT TO RCT LBN 

;POINT TO CHARACTERISTICS 

.•POINT TO CONVERT BLOCK 

;6ET LBN/TRACK 

.•CLEAR REST OF WORD 

:FOR CONVERT 

.•STARTING CLYLINDER 

.'CLEAR REST OF WORD 

.STORE 

:FOR STORE 

;LOW ORDER ALWAYS 0 

.•CONVERT AND SEEK 

.•POINT TO COMMAND BLOCK 

.•GET WRITE CONNAND 

.GET CURRENT TRACK 

;SET TRACK FOR WRITE 

; STORE IN CONNAND BLOCK 

.•POINT TO BUFFER 

:CONPUTE EDO - RETURNED IN R3 

.•STORE IT 

: STICK IN CONNAND BLOCK 
.•GET LOW ORDER HEADER 
.•STORE IN WRITE BLOCK 
;GET HIGH ORDER 
;ADD STARTING LBN BITS 
.SET HEADER 
.STORE IN WRITE BLOCK 
.-GET DUNNY SDI POINTER 
.•POINT IN CONNAND BLOCK 
;6ET HEADER PREANBLE 
;6ET DATA PREANBLE 
;SET UNIT 

;HAKE SURE POINTING AT BLOCK 

.SET NO REVECTORING 

.•WAIT FOR SECTOR PULSE 

.WRITE SECTOR 

.-ANY ERROR ? 

;NOPE 

;NAX ? 

:YES - TRY SONE RECOVERY 
:INC RETRY COUNT 
.•DO RETRY 

.-GET CURRENT ERROR RECOVERY LEVEL 

.IF NEGATIVE THEN FRIED 

:IS THERE ONLY RECOVERY LEVEL 0 ? 

;YES • NO NEED TO ISSUE IT - JUST RETRY 

:TRY RECOVERY 

:FOR INIT 

.•DECRENENT IT 

;RETRY 



N 
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FCT->RCT CONVERSION OVERLAY (FS) 



58 004160 


115405 








INC ■ 


R5 


59 004161 


115400 


001246 




RUGOOD: 


INC 


NEXT1 


60 004163 


114000 


001501 






CLR 


TNPTRY 


61 004165 


104300 


001500 


001502 




MOV 


RECOV.RECTNP 


62 004170 


104204 


000731 






MOV 


«DDUNNY,R4 


63 004172 


104203 


001243 






NOV 


#RCTFNT.R3 


64 004174 


021503 








CALL 


DAOD 


65 004175 


106300 


001245 


001246 




CNP 


FCTCPY.NEXT1 


66 004200 


054034 








BNE 


RCTRLP 


67 004201 


106305 


001245 






CMP 


FCTCPY,R5 


68 004203 


014220 








BEQ 


RCUERR 


69 004204 


104303 


001246 




RCFXLP: 


MOV 


NEXT1,R3 


70 004206 


014217 








BEQ 


RWTDON 


71 004207 


104204 


000731 






NOV 


«DDUNNY,R4 


72 004211 


104203 


001243 






NOV 


mTFNT.R3 


73 004213 


021521 








CALL 


DSUB 




I 1 7/ AA 

I I Thw 


001246 






DEC 


NEXT1 


75 004216 


004204 








BR 


RCFXLP 


76 004217 


000000 






RUTDON: 


RETURN 




77 004220 


104012 






RCUERR: 


NOV 


R1.R2 


78 004221 


104201 


000017 






NOV 


«1S.,R1 


79 004223 


022542 








CALL 


ERRNNT 



SEQ 325 



YUP - INCREMENT COUNTER 
INCREMENT IT 
FOR RESET 

GET RECOVERY LEVELS 
FOR ADD 
FOR ADD 

POINT TO NEXT COPY 

DONE THIS SECTOR ? 

NO - WRITE NEXT FCT COPY 

ERROR ON EVERY WRITE ? 

YUP - BIG TROUBLE 

ANY REAPEATS ? 

NO 

TO GET IT BACK 
DITTO 

SUB IT 
REPEAT 

XFC ERROR CODE 
RCT WRITE ERROR 
ERROR RETURN 
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RCT INITIALIZE OVERLAY (F7) 



SEO 326 



2 
3 
A 
5 
6 
7 



00422A 



.SBTTL RCT INITIALIZE OVERLAY (F7) 
DHOVLY F7, START 



003023 
003026 

8 003030 

9 003031 

10 003033 

11 00303A 

12 003035 

13 003036 
H 0030A0 

15 0030A2 

16 0030AA 

17 003046 

18 003047 

19 003050 

20 003051 

21 003052 

22 003054 

23 003055 

24 003057 

25 003060 

26 003062 

27 003063 

28 003066 

29 003071 

30 003073 

31 003076 

32 003100 

33 003102 

34 003103 

35 003106 

36 003111 

37 003113 

38 003115 

39 003116 

40 003121 

41 003124 

42 003127 

43 003132 

44 003134 

45 003136 

46 003140 

47 003142 

48 003144 

49 003146 

50 003150 

51 003152 

52 003154 

53 003155 

54 003157 

55 003160 

56 003162 

57 003164 



104200 
104203 
114001 
104204 
100241 
117403 
053033 
104201 
104204 
105204 
104205 
104212 
100242 
117405 
053046 
104303 



104300 
104300 
104204 
104200 
114000 
104203 
021503 
104300 
104300 
104203 
104204 
021521 
104300 
104300 
104300 
104300 
114000 
104203 
104207 
104632 
103202 
100672 
104632 
103202 
100672 
114002 
100672 
114005 
104050 
104204 
022665 



000014 001154 
000400 

004535 



001306 
004535 
000000 
000004 



001113 



104303 001126 
104303 001127 



001136 
001137 
000736 
000400 
000732 
000731 

001134 
001135 
001472 
001230 

001230 
001230 
001231 
001231 
001476 
001053 
001424 
000011 
177400 
000004 
000001 
007777 
000001 

000000 

001246 
001114 



INITIALIZE RCT TO ALL UNUSED 



000736 
000737 

000731 



001230 
001231 



001114 
001116 
001115 
001117 



RCTINI: MOV 

nov 

CLR 

nov 

RCLP: MOV 
DEC 
BNE 
NOV 
NOV 
ADD 
NOV 

6$: NOV 
NOV 
DEC 
BNE 
NOV 
PUSH 
NOV 
PUSH 
NOV 
PUSH 
NOV 
NOV 
NOV 
NOV 
CLR 
NOV 
CALL 
NOV 
NOV 
NOV 
NOV 
CALL 
NOV 
NOV 
NOV 
NOV 
CLR 
NOV 
NOV 
NOV 
BIC 
NOV 
NOV 
BIC 
NOV 
CLR 
NOV 

RCINLP: CLR 
NOV 

RCLP2: NOV 
CALL 



«F5,CUR0VL 
#SECSI6,R3 
R1 

#RDBUF,R4 

R1,(R4)« 

R3 

RCLP 

#SERNUN,R1 

#RDBUF,R4 

#RSER,R4 

#4,RS 

(R1>^,R2 

R2,(R4)« 

R5 

6$ 

CURTRK«R3 
R3 

CYLNUN,R3 
R3 

CYLNUN4>1,R3 
R3 

RBNLBN«TENP 

RBNLBNi-UENP^I 

#TENP,R4 

#256. .DDUNHY 

DDUNNY^l 

#DDUNNY«R3 

DADD 

LBNLBN.HOLD 
LBNLBN^l ,H0LD4^1 
fT0TRCT.R3 
«H0LD,R4 
DSUB 

HOLD.CURBN 

HOLD.CURLBN 

HOLD^I .CURBN^l 

HOLD^I .CURLBN^I 

COUNT 

f$CR,R3 

fCONBLK.RO 

LBNTRK(R3>,R2 

«HIBYTE.R2 

R2,V3(R0> 

STCYL(R3),R2 

fL0«R2 

R2,VU1(R0) 

R2 

R2,V1(R0) 
R5 

R5,NEXT1 

«CURBN,R4 

CVTSK 



;FOR OVERLAY INIT 
: SECTOR WORD COUNT 
;FOR INIT OF RCT WORDS 
; BUFFER 

; STORE IN BUFFER 
;DECRENENT COUNTER 
.•BRANCH BACK TILL DONE 
.•POINT TO SERIAL NUNBER 
;POINT TO BUFFER 
;POINT TO SERIAL NUNBER 
.•COUNTER 
;GET UORD 
.•STORE WORD 
.•DECRENENT COUNTER 
.•CONTINUE TILL DONE 
;6ET CURRENT TRACK 
;SAVE IT 

:6ET LOW ORDER CYLINDR 

.•SAVE FOR RESTORE 

;GET HIGH ORDER 

.-SAVE FOR RESTORE 

;6ET NUNBER OF RBN'S IN LBN AREA 

;HI6H ORDER 

.-FOR ADD 

;2 BLOCKS(CONTROL) WORTH OF RBN'S 
; CLEAR HIGH ORDER 
:FOR ADD 

;ADD TO GET 'HEhL" NUNBER OF RBN'S 
.-GET LOW ORDER COUNT OF LBN'S 
:GET HIGH ORDER 
.•FOR SUBTRACT 
.•DITTO 

.-GET STARTING RCT LBN 

:GET STARTING RCT BLOCK NUNBER 

;ALSO SAVE 

;6ET HIGH ORDER 

.-AND SAVE 

; CLEAR BLOCK COUNTER 

.POINT ro CHARACTERISTICS 

.•POINT TO CONVERT BLOCK 

;GET LBN/TRACK 

; CLEAR HIGH BYTE 

;FOR CONVERT 

.•STARTING CLYLINDER 

.CLEAR REST OF WORD 

.STORE 

.FOR STORE 

;LOW ORDER ALWAYS 0 

.•CLEAR ERROR COUNTER 

:INIT COPY COUNT 

;FOR CONVERT 

.•CONVERT AND SEEK 
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58 
59 
60 
61 
62 
63 
6A 
65 
66 
67 
68 
69 
70 
71 
72 
73 
7A 
75 
76 
77 
78 
79 
80 
81 
82 
83 
8A 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
10A 
105 
106 
107 
108 
109 
110 
111 

1U 
115 

114 



003165 
003167 
003171 
003173 
003174 
003176 
003?00 
003201 
003203 
003205 
003207 
003211 
003213 
003215 
003217 
003221 
003223 
003225 
003227 
003231 
003233 
003235 
003236 
003237 
003240 
003241 
003244 
003245 
003247 
003250 
003252 
003253 
003255 
003256 
003257 
003261 
003263 
003264 
003264 
003265 
003267 
003271 
003274 
003276 
003300 
003301 
003304 
003305 
003307 
003310 
003313 
003314 
003316 
003321 
003323 
003325 
003326 



104207 
104203 
104302 
101023 
100673 
104202 
022600 
100623 
100672 
104303 
100673 
104303 
105303 
101203 
100673 
104203 
100673 
104303 
104304 
104302 
104207 
060012 
060003 
115001 
013265 
106300 
013250 
115400 
003225 
104303 
073264 
115000 
013257 
022571 
114000 
117400 
003225 

115405 
115400 
114000 
104300 
104204 
104203 
021503 
106300 
053162 
106305 
013441 
102200 
053332 
104204 
104200 
114000 
104203 
021521 
021623 



000721 
122400 
001113 

000004 
004535 

000400 
000001 
001114 
000002 
001115 
001323 
000000 
000003 
000726 
000005 
001321 
001322 
000740 
100721 



001477 
001501 
001502 
001500 



001501 
001502 



001246 
001501 
001500 
001114 
001243 

001245 

001245 

000040 

000736 
000200 
000732 
000731 



001501 



001502 

001246 

001220 
000731 





MOV 




MOV 




HOV 




BIS 




HOV 




HOV 




CALL 




HOV 




HOV 




HOV 




HOV 




HOV 




ADD 




BIS 




NOV 




HOV 




HOV 


URITE4: 


HOV 




NOV 




MAI J 

HOV 




HOV 




XFC 




XFC 




TST 




BEQ 




CHP 




BEO 




INC 




BR 


1»: 


NOV 




BNJ 




TST 




BcQ 




CALL 


3»: 


CLR 




DEC 




BR 


2%: 






INC 


NOuOOP: 


INC 




^1 B 

CLR 




MAW 




§mn\t 




nUV 




CALL 




^MB 

CNP 




BNE 




cw 




BCB 

Bcii 




Bff T 

BIT 




BUC 

oNc 




me%\t 
nUV 




NOV 




CLR 




NOV 




CALL 




CALL 



C 10 
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SEO 327 



#URBLK,RO 
«URCHD,R3 
CURTRK,R2 
R2,R3 

R3,RU.CHDCR0) 

#RDBUF,R2 

CEDC 

R3.RU.EDC(R2) 

R2,RU.BUF(R0) 

CUR6N,R3 

R3,RW.LOU(R0) 

CURBN^1,R3 

ST.LBN.R3 

«HD.LBN,R3 

R3,RU.HI(R0) 

#HSLIH-1,R3 

R3,RU.0UH(R0) 

HPREA,R3 

0PREA,R4 

UNIT.R2 

«<WRBLK!BIT15>,RC 

SIP 

WRITE 

R1 

N06000 
RETRY. TNPTRY 
1$ 

TNPTRY 
URITE4 
RECTHP.R3 
2S 

RECOV 
3$ 

ERRhND 
TNPTRY 
RECTNP 
WRITE4 

R5 

NEXT1 
TNPTRY 

RECOV.RECTNP 
#CUIiaN.R4 
fRCTFNT,R3 
DAOD 

FCTCPY,IIEXT1 

RCLP2 

FCTCPY,R5 

RCINER 

miNIT.FLAG 

4$ 

#TEHP,R4 

f128.,00UNNY 

DDUNNY^I 

fODUHNY,R3 

DSUB 

DCNP 



POINT TO COHNAND BLOCK 

GET WRITE CONNAND 

GET CURRENT TRACK 

SET TRACK FOR WRITE 

STORE IN CONNAND BLOCK 

POINT TO BUFFER 

CONPUTE EDC - RETURNED IN R3 

STORE IT 

STICK IN CONNAND BLOCK 
GET LOU ORDER HEADER 
STORE IN WRITE BLOCK 
GET HIGH ORDER 
ADD STARTING LBN BITS 
SET HEADER 

STORE IN WRITE BLOCK 
GET DUNNY SDI POINTER 
POINT IN CONNAND BLOCK 
GET HEADER PREANBLE 
GET DATA PREANBLE 
SET UNIT 

NAKE SURE POINTING AT BLOCK 

WAIT FOR SECTOR PULSE 

WRITE SECTOR 

ANY ERROR ? 

NOPE 

NAX ? 

YES - TRY SONE RECOVERY 
INC RETRY COUNT 
Dft RETRY 

GET CURRENT ERROR RECOVERY LEVEL 

IF NEGATIVE THEN FRIED 

IS THERE ONLY RECOVERY LEVEL 0 ? 

YES - NO NEED TO ISSUE IT - JUST RETRY 

TRY RECOVERY 

FOR INIT 

DECRENENT IT 

RETRY 

YUP - INCRENENT COUNTER 
INCRENENT IT 
FOR RESET 

GET RECOVERY LEVELS 
FOR m 
FOR ADD 

POINT TO NEXT COPY 

DONE THIS SECTOR ? 

NO - WRITE NEXT FCT COPY 

ERROR ON EVERY WRITE ? 

YUP • BIG TROUBLE 

ALREADY FIXED IT UP 

YUP - NO NEED TO DO IT AGAIN 

FOR SUBTRACT (RBN'S NOT DONE) 

SUBTRACT ONc BLOCKS WORTH 

FOR CLEAR 

FOR SUBTRACT 

SUBTRACT 

IN LAST BLOCK ? 
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SEO 328 



15 C03327 

16 003330 

17 003331 

18 003332 

19 0O333A 

20 003335 

21 003336 

22 0033A0 

23 003342 

24 003343 

25 003544 

26 003345 

27 003350 

28 003351 

29 003356 

30 003361 

31 003364 

32 003366 

33 003371 

34 003372 

35 003373 

36 003376 

37 003377 

38 003400 

39 003402 

40 003404 

41 003405 

42 003407 

43 003411 

44 003412 

45 003414 

46 003417 

47 003420 

48 003421 

49 003423 

50 003425 

51 003426 

52 003427 

53 003431 

54 003432 

55 003433 

56 003434 

57 003435 

58 003440 

59 003441 

60 003442 

61 003444 



073332 
013332 
023445 
115000 
053345 
114005 
104204 
104201 
100245 
117401 
053342 
102200 
053377 

104300 
104300 
115400 
106300 
013421 
060022 
106300 
053157 

104030 
104030 

104030 
104030 

104030 
104300 
022242 
000000 
104202 
104204 
114003 
114005 
101205 
100243 
100245 
117402 
053431 
101200 
003372 
104012 
104201 
022542 



001476 



004535 
000004 



000100 001221 



001116 001114 

001117 001115 
001476 

001262 001476 



001243 001476 



001127 
001100 

001126 
001077 

001113 

001460 001101 



000200 
004535 



100000 

000100 001221 
000017 



4S: 

5S: 
7S: 



RCLP4: 
RCLP6: 



RCFIX: 



RCLP3: 



RCINER: 



BMI 


41 


BEQ 


4S 


CALL 


C ff WBl V 

F IXBLK 


V tf* T 

TST 


COUNT 


BNE 


7% 


CLR 


BC 

R? 


HOv 


JIBI\ailC B/ 


nov 


MJ B1 


nov 


BC / B/ ) A 


DEC 


B1 

Rl 




c* 

J9 


B ff T 

BIT 


dlB^ffftlAftl Ct 

VRClNPN^PLAul 


BNE 


B^l B^ 

RCLPq 


OUBINC 


CURLBN 


nOV 


^1 IBI BftI ^IIBDM 

CURLBN flURBN 


nOV 


CURLdN^I fCURBN^I 


INK 


COUNi ' 


CHr 


B/*TI B&l #*miftlT 

RCTLBNfCuUNT 


Bel) 


B^C f V 

RCr iX 


XFC 


1 IBB A TC 


CHP 


RCTrni , COUNI 


BNE 


B#* ff kit B 

RCINLP 


BAB 

POP 


Bl 

R3 


HOv 


BT /*VI ftlllM^I 

R5,CYLNUn*l 


nOV 




BAB 

POP 


BT 

R5 




BY ^Vl kll IM 

RjfCTLNUn 


nov 


R3,ISEEK+1 


BAD 

POr 


Hi 


nov 


BT niDTDV 

R3«CUR IRK 


nov 


CURuRr, 


CALL 




RETURN 


» ico. »Re 


nov 


nov 


JfBKDIIC BA 

f RUBUr ,Rh 


CLR 


Bl 

R5 


^1 B 

CLR 


BC 

R? 


Did 


*RC •NUL «R3 


nov 


Rj, IR*i/* 


nov 


R3,IR«»/* 


Del 




one 


RCLP3 


BIS 


#RCIN0N,FLAG1 


BR 


RCLP4 


nov 


R1,R2 


NOV 


#15.,R1 


CALL 


ERRHNT 



;NOPE 

:IF EQUAL - NO PARTIAL BLOCK 

;YES - CHANGE HEADERS TO NULL 

:0N FIRST BLOCK ? 

;N0 - NO NEED TO FIX UP 

;FOR BLOCK FIXUP 

; POINT TO BUFFER 

: COUNTER 

; CLEAR DATE AREA 

; DECREMENT COUNTER 

;CONT TILL DONE 

;ALL DONE ?? 

;YUP - CUT OUT 

.-INCREMENT IT 

;GET LOU ORDER 

;GET HIGH ORDER 

; INCREMENT BLOCK COUNTER 

;DONE RCT BLOCKS(NOT PAD) 

;YUP - REINir BLOCK 

;LET HOST KNOW STILL ALIVE 

;DONE ? 

:NOPE - DO NEXT SECTOR 
;GET HIGH ORDER CYLINDER 
.•STORE IT 

.•STORE IN SEEK COMMAND 
.-GET LOW ORDER 
.•RESTORE IT 

.•STORE IN SEEK COMMAND 
;GET CURRENT TRACK 
; RE TORE IT 

.•RESTORE GROUP NUMBER 
.•RESTORE TO PREVIOUS CYLINDER 

:INIT COUNT 
;INIT POINTER 
.•FOR STORE 
.•DITTO 

.-SET NULL HEADER 
.•STORE LOW ORDER 
.•STORE HIGH ORDER 
; DECREMENT COUNTER 
;LOOP UNTIL DONE 

;DONE ALL NON-PAD - ONF liORc THEN FINISH 
.•CONTINUE WITH LAST SECTOR 
:XFC ERROR CODE 
.•RCT INIT CRROR 
; ERROR RETURN 
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SEO 329 



1 



4 

5 
6 
7 



0034 A 5 
003A46 

8 0034A7 

9 003A51 

10 003453 

11 003A55 

12 003457 

13 003460 

14 003461 

15 003462 

16 003463 

17 003464 

18 003465 

19 003466 

20 003471 



114002 FIXBLK: 
114005 

104303 000736 
101205 100000 
104204 004535 
104201 000200 
107031 
105033 
105034 

100242 FIXLP: 

100245 

117401 

053462 

101200 000040 001220 
000000 



CHANGE UNUSED EMTRIES TO NULL HEADERS 



CLR 


R2 


FOR LOW ORDER 


CLR 


R5 


FOR HIGH ORDER 


HOV 


TEHP,R3 


GET REMAINDER FROM TEMP 


BIS 


«RC.NUL,R5 


-SET IN NEW HEAOEP CODE 


NOV 


fRDBUF,R4 


'POINT TO BUFFER 


NOV 


«128..R1 


■TOTAL COUNT 


SUB 


R3,R1 


■SUBTRACT USED ENTRIES 


ADD 


R3.R3 


■ADD TO GET OFFSET (MULT BY 2) 


ADD 


R3,R4 


;POINT TO FIRST UNUSED ENTRY 


MOV 


R2,(R4)* 


; STORE LOU ORDER 


NOV 


R5.(R4)« 


STORE HIGH ORDER 


DEC 


R1 


; DECREMENT COUNT 


BNE 


FIXLP 


;LOOP TILL DONE 


BIS 


«RCINIT,FLA6 


;SET DONE IT 


RETURN 







UDAFM - UOA FORMATTER OMACR X0A.01 23-AU6-82 U:02:32 
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1 












.SBTTL 


2 


003472 










DMOVLY 


3 
4 












READ A 


5 












R5 -> 1 


6 

7 


003023 


104200 


000017 


001 154 




NOV 


8 


003026 


104300 


001257 


000731 




NOV 


9 


003031 


114000 


000732 






CLR 


10 


003033 


1U005 








CLR 


11 


003034 


104204 


000731 




FOLOOP: 


NOV 


12 


003036 


104303 


001144 






NOV 


13 


003040 


104207 


001424 






NOV 


14 


003042 


100673 


000000 






NOV 


15 


003044 


104303 


001145 






NOV 


16 


003046 


100673 


000001 






NOV 


17 


003050 


104303 


001130 






NOV 


18 


003052 


100673 


000004 






NOV 


19 


003054 


022665 








CALL 


20 


003055 


104207 


000721 






NOV 


21 


003057 


104203 


00072A 






NOV 


22 


003061 


100673 


000005 






NOV 


23 


003063 


1G4303 


000731 






NOV 


24 


003065 


100673 


000002 






NOV 


25 


003G67 


104303 


000732 






NOV 


26 


003071 


105303 


001325 






ADO 


27 


003073 


101203 


120000 






BIS 


28 


003075 


100673 


000003 






NOV 


29 


003077 


104303 


001254 






NOV 


30 


002101 


100673 


000001 






NOV 


31 


003103 


104203 


013400 






NOV 


32 


003105 


104301 


001113 






NOV 


33 


003107 


101013 








BIS 


34 


003110 


100673 


000004 






NOV 


35 


003112 


104207 


000721 




REA07: 


NOV 


36 


003114 


104203 


100000 






NOV 


37 


003116 


100173 








NOV 


38 


003117 


104302 


000740 






NOV 


39 


003121 


101207 


100000 






BIS 


40 


003123 


060012 








XFC 


41 


003124 


060002 








XFC 


42 


003125 


115001 








TST 


43 


003126 


053144 








6NE 


44 


003127 


104173 








NOV 


45 


003130 


102203 


010000 






BIT 


46 


003132 


013136 








BEO 


47 


003133 


023000 








CALL 


48 


003134 


115001 








TST 


49 


003135 


053U4 








BNE 


50 


003136 


104302 


001254 




101$: 


NOV 


51 


003140 


022600 








CALL 


52 


003141 


106623 


000400 






CNP 


53 


003143 


013206 








BEO 


54 


003144 


106300 


001477 


001501 


100$: 


CNP 


55 


003147 


013153 








BEQ 


56 


003150 


115400 


001501 






INC 


57 


003152 


003112 








BR 



OVERLAY NUNBER 
GET CURRENT COUNT 
FOR HIGH ORDER STORE 
CLEAR ERROR COUNTER 
FOR CONVERT 
GET LBF CYLINDERS 
POINT TO CONVERT BLOCK 
STORE IT FOR CONVERT 
HIGH ORDER 
STORE IT 

GET SECTORS/TRACK 
STORE FOR CONVERT 
CONVERT FCT BLOCK NUNBER AND SEEK 
PREPARE FOR READ SECTORS 
POINTER TO DUNNY SDI BLOCK 
STORE IN CONNAND BLOCK 
:L0 ORDER BLOCK NUNBER 
; STORE IN READ COHD BLOCK 
GET HIGH ORDER 
ADD STARTING LBN BITS 
HEADER CODE 

; STORE IN READ CND BLOCK 
;GET BUFFER POINTER 

; STORE BUFFER ADDRESS IN CONNAND BUFFER 

;LOAD SDI READ CONNAND 

;GET CURRENT HEAD NUNBER IN R1 

rSET IT IN CONNAND 

; STORE BACK 

;NAKE SURE POINTING AT BLOCK 

;NARK AS ONLY REQUEST 

; STORE IN CND BLOCK 

;SDI INTERCONNECT 

;SET NO REVECTORING 

;UAIT FOR PULSE 

;REAO 1 SECTOR 

;ANY ERRORS ? 

;YES - TRY RECOVERY 

;GET STATUS UORD 

;ECC ERROR ? 

;NOPE - VERIFY EDC 

; CORRECT ECC 

;TEST FLAG 

[UNCORRECTABLE 

;POINT TO BUFFER 

;CONPUTE EDC 

•OK ■* 

;YUP'-' CONSIDER GOOD 
;NAX ? 

;YES • TRY SONE RECOVERY 
;INC RETRY COUNT 
;D0 RETRY 
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58 


003153 


4 A/ VA'S 


AA1 CAO 

001502 




59 


003155 


073167 






60 


003156 


115000 


AA1 CAA 
001500 




61 


A/W4 ^ A 

003160 


013162 






62 


003161 


0225 f1 






63 


AAH4L.O 

003162 


11/ AAA 

114000 


AAi CA1 

001 301 




64 


003164 


117400 


AAI CAO 

001502 




65 


003166 


AA71 1 0 

003112 






66 


003167 








6f 


0031 Or 


« 4 C/ AC 

1 1 340? 






68 


AA11 7A 
0031 f 0 


106303 


AAI 0/ C 

001243 




69 


AAV1 70 

003172 


A1 7771 

013331 






70 


AAT1 7T 

0031 73 

AAV* 7C 

005 1 75 


1 A/ OA/ 

104204 


AAA771 
000731 




r 1 


1 A/ OA7 

104203 


AAI 0/ 1 

001241 




7c 


AAH 77 

0031 77 


AOi CA7 

021303 






7» 

r3 


AA70AA 

003c00 


i 1 / AAA 

114000 


AAI CAi 

001 301 






AA70A0 

003cOc 


1 A/ 7AA 

104300 


AAI CAA 

001500 


AAi CAO 

001 302 


f 5 


AAY^AC 

003205 


Aa7A7/ 

003034 






r6 


AA70AX 

003206 








f f 


AAYOAiL 

003200 


1 1 AAAA 
1 I4000 


AAI CAI 

001301 




78 


003210 


104300 


001500 


001502 


79 


AA704 7 

003213 


« « CAAC 

115005 






80 


003214 


A1 770X. 

013326 






81 


/\A701 C 

003215 


1A/ OA/ 

104204 


AAA771 

000731 




82 


AAlOi 7 

003217 


1 A/ OA7 

104203 


AAi 

001241 




83 


003221 


AOi COI 

021521 






84 

85 


003222 
003223 


104207 


AAA701 

0007^1 




86 


003225 


104203 


122400 




8r 


AA1007 


104302 


AAi i 1 T 

001113 




as 

oo 


003231 


101023 






o9 


003232 


1 AAA77 

1000^3 


AAAAAZ 

000004 




on 


00323^ 


104303 


AAi O^L 
001234 




Q1 

Vl 


003230 


1000r3 


AAAAA1 
000001 




▼c 


AAIOAA 

003240 


104303 


AAA771 
000731 




▼3 


0032h2 


1000r3 


AAAAA3 
000002 




TH 


00324m 


104303 


AAA7T3 

000732 




OC 
T> 


003240 


103303 


UU I3c3 




TO 


AADCA 

0032)0 


10 1203 


1 3AAAA 
120000 






003232 


1AAA77 

1000' 3 


00U003 




Oft 

TO 


UU3c94 


IU4cU3 


AAn73A 




oo 

TT 


UU3C30 


iAA<7T 

I000'3 


UUWU3 




1UU 


003cOU 


IU43U3 


nniX3i 




lUl 


003202 


104504 


AAI 133 
001322 




iMc 


003204 


1A/.Tn3 
I0430<: 


OUO'4U 




103 


003266 


10420^ 


AAA731 
0007^1 




1 A/ 


AAT97A 

0032 rO 


1A19A7 
10120^ 


1AAAAA 
100000 




103 


AAY973 

0032 tc 


AAAA1 3 

000012 






lOo 


A^%97« 
*rii£73 


«/00003 






10. 


0032 '4 


1 I3UUI 






1 IV 


003275 


013321 






1C9 


003276 
003301 


106300 


001477 


001501 


110 


013305 






111 


003302 


115400 


001501 




112 


003304 


003260 






113 


003305 


104303 


001502 




114 


003307 


073321 







IS: 



3S: 



2S: 



MOV 

BMI 

TST 

BEQ 

CALL 

CLR 

DEC 

BR 



INC 
CHP 
BEQ 
NOV 
MOV 
CALL 
CLR 
MOV 
BR 

102S: 

FODONE: CLR 
MOV 
TST 
BEQ 
MOV 
MOV 
CALL 
CALL 
MOV 
MOV 
MOV 
BIS 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
ADD 
BIS 
MOV 
NOV 
NOV 

WRITES: NOV 
NOV 
NOV 
NOV 
BIS 
XFC 
XFC 
TST 
BEQ 
CNP 
BEQ 
INC 
BR 

IS: NOV 
BNI 
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PAGE 75-1 



SEQ 331 



RECTHP.R3 
2S 

RECOV 
3S 

ERRHND 
THPTRY 
RECTMP 
READ7 

R5 

FCTCPY,R5 

OFATAL 

«DDUNNY,R4 

#FCTFHT.R3 

DAOD 

THPTRY 

RECOV.RECTMP 
FOLOOP 

THPTRY 

RECOV.RECTMP 
R5 

OLDONE 

fDDUHHY,R4 

fFCTFMT.R3 

OSUB 

CVTSK 

fWRBLK.RO 

fMCND.R3 

CURTRK.R2 

R2«R3 

R3.RW.CN0(R0> 

BUFPNT,R3 

ft3«RW.8UF(R0> 

0DUHNY.R3 

R3,RW.LOW(R0> 

DDUNNY*1.R3 

ST.X8N,R3 

fHD.XBN,R3 

RSeRU.HKRO) 

fHSLlN-1 ,R3 

R3,RW.DUN(R0) 

HPREA,R3 

DPREA,R4 

UNIT,R2 

fURBLK,RO 

f6IT1S.R0 

SIP 

WRITE 

R1 

2S 

RETRY. TMPTRY 
IS 

TMPTRY 
WRITES 
RECTNP.R3 
2S 



GET CURRENT ERROR RECOVERY LEVEL 

IF NEGATIVE THEN FRIED 

IS THERE ONLY RECOVERY LEVEL 0 ? 

YES - NO NEED TO ISSUE IT > JUST RETRY 

TRY RECOVERY 

FOR INIT 

OECRENENT IT 

RETRY 

INCREMENT BAD COUNTER 

ALL BAD ? 

YUP - ALL OVER 

POINT TO COUNT 

SIZE OF TABLE 

ADD TO POINT TO NEXT COPY 

RESET RETRY LEVEL 

DITTO RECOVERY LEVELS 

BRANCH BACK 

FOR RESET 

GET RECOVERY LEVELS 
ANY ERRORS ? 
NO - EXIT 

POINT TO BLOCK COUNT 

SIZE OF TABLE 

GET BACK TO PREVIOUS COPY 

CONVERT AND SEEK 

POINT TO CONPMND BLOCK 

GET WRITE COWMND 

GET CURRENT TRACK 

SET TRACK FOR WRITE 

STORE IN CONNAND BLOCK 

GET BUFFER ADODRESS 

STICK IN CONNANO BLOCK 

GET LOW ORDER HEADER 

STORE IN WRITE BLOCK 

GET HIGH ORDER 

ADD STARTING X8N BITS 

HEADER CODE 

STORE IN WRITE BLOCK 

GET DUMNY SDI POINTER 

POINT IN COMMAND BLOCK 

GET HEADER PREAMBLE 

GET DATA PREANBLE 

SET UNIT 

MAKE SURE POINTING AT BLOCK 

SET NO REVECTORING 

WAIT FRO SECTOR PULSE 

WRITE SECTOR 

ANY ERROR ? 

NO - SKIP RETRY 

MAX "* 

YES - TRY SOME RECOVERY 
INC RETRY COUNT 
DO RETRY 

GET CURRENT ERROR RECOVERY LEVEL 
IF NEGATIVE THEN FRIED 
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UOAFM > UOA FOMHATTER ONACR X04.01 23-AU6-82 14:02:32 PAGE 75-2 
FCT READ OVERLAY (F6) 



115 003310 


4 4 CAAA 

115000 


AA1 CAA 

001500 






TCT 


RECOV 


116 003312 


A1 YVi y 






DC A 


3* 


« « AA>V4 Y 

117 003313 


022571 








CALL 


CDDUiJA 

CnKnND 


118 003314 


11/ AAA 

114000 


AA1 CA1 

001 501 




Smi 


ILR 


THDTDV 


119 003316 


4 4 7/ AA 

117400 


AA1 CA^ 

001 502 






Del 


NEC Inr 


120 003320 


AAT^^A 

003260 








DD 

On 


URITE8 


121 003321 








2»: 




R3 


122 003321 


1 1 7y AC 

1 1 r405 




001 5Uc 




Dec 




1 Ay TAA 

104300 


AA1 CAA 

001 500 






Bcrnu DcrmD 
NtCUVfKCC 1 nr 


124 003325 


AAT^AX 

003206 








BR 


C AAAUC 


12S 003326 


4 1 C/ AA 

115400 


AA1 

001257 




Al AA&IC • 

OLDONc : 


INC 


rC 1 CNI 


« *1X AAYVYA 

126 003330 


AAAAAA 

000000 








DC Tl ID&I 

RC TURN 


rC itNl 


1 ^7 AA WYl 

127 003331 


1 1 CAAA 

1 1 5000 


AA1 OC7 

001257 






TCT 

1 51 


ICO 003333 


01 33>c 










noi 1 1 T 


12V 003334 


1 AT^AA 

102cOO 


000020 


001 220 




PTT 


#G06A0,FLAG 


130 003337 


A1 TTCO 

01337C 










OQUIT 


131 003340 


1 A1 OAA 

101 200 


AAonn/ 
0v200h 


AA1 "ion 
001220 




B t C 

Bis 


jrcrTBAriADCTAC CI 

» r c 1 DM/TDa 1 OS « r LAu 




1 w JCW 




Uw 1 ccv 






tFCTAVL FLAG 

Wf%0 IAwW«rk A V 


133 003346 


104201 


000000 






mv 


#F1,R1 


134 003350 


022403 








CALL 


NEXT 


135 003351 


000000 








RETURN 


R1-R2 
#17.,R1 


136 003352 


104012 






OQUIT: 


NOV 


137 003353 


104201 


000021 






nov 


138 003355 


022542 








CALL 


ERRfWT 



t 



SEQ 332 



IS THERE ONLY RECOVERY LEVEL 0 ? 

YES - NO NEED TO ISSUE IT - JUST RETRY 

TRY RECOVERY 

FOR INIT 

DECREMENT IT 

RETRY 

DERENENT COUNTER 
GET RECOVERY LEVELS 
SEE IF ANY MORE TO DO 
INCREMENT IT 
ALL DONE 

SECTOR 0 ? (MEDIA INFO) 

IF YES THEN IT'S ALL OVER 

CONTINUE AS BEST GUESS? 

NOPE - GIVE UP 

SET FCT BAD FLAG 

NO MORE FCT 

SET IN D/XBN OVERLAY 

START OVER IN BEST GUESS MODE 

RETURN 

;XFC ERROR CODE 
;FCT READ ERROR 
:ERROR RETURN 
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GET FCT BLOCK FOR D/XBN FORPUT (G2) 



SEQ 335 



003356 



1 
2 
3 
4 
5 
6 
7 
8 
9 
10 

11 003023 

12 003026 

13 003030 
H 003032 

15 003033 

16 003035 

17 003037 

18 003040 

19 003041 

20 003042 

21 003043 

22 003046 

23 003051 

24 003054 

25 003056 

26 003060 

27 003061 

28 003062 

29 003064 

30 003066 



104200 
104205 
104303 
100153 
104303 
100653 
022522 
022532 
104153 
053062 
104650 
104650 
104200 
104204 
104203 
022510 
000000 
104201 
104302 
022542 



.SBTTL GET FCT BLOCK FOR D/XBN FORMAT (62/ 



GET'S ONE FCT BLOCK FROM HOST FOR D/BN FORMATTING 



DMOVLY G2« START 



000033 001154 

001264 

001317 

001257 
000001 



000001 001421 

000002 001422 
000401 001420 
001420 
005152 



000023 DLERR: 
001257 



MflV 




SIGMAI OVFRI Ay 11 


imu 




POINT Tn MAIJIiT DllFFFB 


Mnu 

nu» 


R3,(R5) 


>fiFT blip rooF 


MOV 


STORE IT 


MOV 


FCTCNT^R3 
R3.1<R5) 


GET BLOCK NUMBER DESIRED 


MOV 


STORE IT 


CALL 


SNDMNT 


SEND REQUEST 


CALL 


RCVMNT 


•RECEIVE ANSMER 


MOV 


(R5),R3 


•GET STATUS UORD 


BNE 


DLERR 


•ERROR IF NOT ZERO 


MOV 


1(R5),0VLBLK4^1 


-GET LOy HOST ADDRESS 


MOV 


2(R5),OVLBLK*2 


■GET HIGH HOST ADDRESS 


MOV 


«257.,0VLBLK 


;GET LENGTH 


MOV 


«0VLBLK,R4 


;FOR OVERLAY ROUTINE 


MOV 


«P8NBUF,R3 


;POINT TO BUFFER 


CALL 


OVRLAY 


-GET THE SECTOR 


RETURN 






MOV 


«19.,R1 


; SIGNAL DLL ERROR 


MOV 


FCTCNT«R2 


;BLOCK FAILED ON 


CALL 


ERRNNT 


;ERROR RETURN 



1 
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UOAFH > UOA FCRNATTER DMACR X04.01 23-AUG-82 U:02:32 PAGE 77 
GET FCT BLOCK FOR LBN FORMAT (G3) 



SEO 334 



1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
U 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



003067 



003023 
003026 
003030 
003033 
003035 
003036 
003041 
003042 
003044 
003045 
003047 
003050 
003052 
003053 
003054 
003055 
003057 
003061 
003062 
003064 
003066 
003067 
003072 
003073 
003074 
003076 
003077 
003101 
003103 
003105 
003107 
003111 
003112 
003113 
003114 
003115 
003120 
003122 
003123 
003125 
003126 
003131 
003134 
003116 
003137 
003142 
003143 



104200 
114000 
104200 
104201 
022435 
102200 
013224 
104207 
104173 
106203 
013055 
106203 
013055 
115003 
053224 
104673 
102203 
053234 
104673 
104030 
053072 
101200 
114003 
100173 
104673 
115403 
100673 
104203 
105203 
104204 
104205 
104232 
100242 
117405 
053111 
104200 
104201 
022435 
115000 
013220 
104200 
104200 
104201 
022435 
102200 
013224 
104204 



000036 001154 
001257 

005152 001254 
000017 

000001 001220 
005152 
126736 
074161 



000025 
100000 

000016 
001240 

000002 001220 



000001 

000001 
005152 
000002 
001306 
000004 



13S: 



12S: 



8S: 



005152 001254 
000030 

001240 

000001 001257 
005152 001254 RLOOP: 
000017 

000001 001220 
005152 



.SBTTL GET FCT BLOCK FOR LBN FORMAT (G3) 



GET RIGHT FCT BLOCK FOR LBN FORMATTING 



DMOVLV G3, START 



MOV #G3,CUR0VL 

CLR FCTCNT 

MOV «PBNBUF,BUFPNT 

MOV #F6.R1 

CALL PAGE 

BIT «FCTAVL,FLAG 

BEQ NGD 

MOV «PBNBUF«RO 

MOV (R0).R3 

CMP #M512,R3 

BEQ 13$ 

CMP fM576,R3 

BEQ 13S 

TST R3 

BNE NGD 

NOV FCTFLG(R0)«R3 

BIT #N0FCT,R3 

BNE NG01 

MOV C512(RO).R3 

MOV R3.FCNT 

BNE 12$ 

BIS #FCTEMT.FLAG 

CLR R3 

NOV R3,(R0) 

NOV INST{R0)«R3 

INC R3 

NOV R3,INST(R0) 

NOV #PBNBUF.R3 

ADD fFSER.RS 

NOV fSERNUN,R4 

NOV #4.RS 

NOV (R3)^,R2 

NOV R2«(R4)> 

DEC R5 

BNE 8$ 

NOV #PBNBUF,BUFPNT 

NOV #F9.R1 

CALL PAGE 

TST FCNT 

BEQ RD0NE1 

NOV #nFCTCNT 

NOV #PBNBUF,BUFPNT 

NOV «P6,R1 

CALL PAGE 

BIT «FCTAVL,FLA6 

BEQ NGD 

NOV «PBNBUF,R4 



FOR CURRENT OVERLAY 

FOR FIRST FCT BLOCK 

POINT TO BUFFER 

FCT READ OVERLAY 

READ IT IN 

FCT STILL HERE ? 

NOPE - CAN IT 

POINT TO BUFFER 

GET FORMAT MEDIA WORD 

IS IT 512 ? 

YUP • O.K. 

IS IT 576 ? 

YUP - O.K. 

IS IT FORMAT IN PROGRESS 

NOPE - FCT NO GOOD 

GET FLAG WORD 

IS THERE REALLY AN FCT ?? 

NOPE - CONTINUE BUT USE BST GSS MODE 

GET COUNT OF USED ENTRIES 

STORE IT 

IF NOT ZERO THEN ENTRIES EXIST 
SET EMPTY FLAG 
FOR FCT INIT 

SIGNAL FORMAT IN PROGRESS 

FORMAT INSTANCE NUMBER 

INCREMENT IT 

STORE IT BACK 

POINT TO BUFFER 

POINT TO SERIAL NUMBER 

SERIAL NUMBER BLOCK 

COUNTER 

GET WORD 

STORE WORD 

DECREMENT COUNTER 

CONT TILL DONE 

POINT TO BUFFER 

FCT WRITE OVERLAY 

DO IT 

ANY ENTRIES ? 
NOPE - ALL DONE 
FOR FCT COUNT INIT 
POINT TO BUFFER 
FCT READ OVERLAY 
DO THE READ 
STILL HAVE FCT ? 
NOPE - CAN IT 
POINT TO THE BUFFER 
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GET FCT BLOCK FOR LBN FORflAT (63) 







nno\ ?A 

UUUOr o 






Ann 


«754 D4 
• c3H • .n*» 


«;o onTi/,7 




UUI 133 






nUV 


«H6HPBN,R3 


OU Uv^ 1 J 1 
0 1 Uv J 1 3£ 










tALL 


nrMD 

l/tnr 


1 J 1 








DDI 


DLKr KU 




107700 
1 Ur CwU 


000700 


001 740 

UU 1 CHU 




dUO 


V 1 CO» « r 1 


O J uUJ 1 JO 


noxi'^1 








DD 

On 


nLUUr 


64 003157 


10^700 


000700 


001475 

UU 1 H f J 




MOU 

nuv 


i>17R PriJT 

1 CO« t~V,ft 1 




10^70A 


0051 57 






NOV 
nuv 


jipDijOiit B4 
1CR4) Rn 

1 \ nH f 0 n w 




10^<^^7 


000001 
Uvvvv 1 




nLUUr 1 • 


MOV 


O f Vw J 1 OO 


10A071 








MOV 


BO BI 


OO UV'S 1 0 r 


10'?707 


1 70000 






Rf r 
Ol t 


irun ri b do 


O 7 Uv3 1 ' 1 


100^7 


000001 






MDU 

nuv 


BO 1 CB4) 


71 nft'^'! 7S 


1 0A70Y 


001155 






nuv 


Muiiupnu BX 
ivnonrDii«iu 


071 A7T 

WC 1 0£ J 










nrMP 


77 0A^17A 












nl/UIVC 


f J W J 1 r r 


1 vvO*t 1 


QOOtiOl 






MOV 

nuv 


BI 1fB4) 


7^ nn'^701 


117^00 


001475 








prtiT 




117^00 


001740 
Uw 1 etu 






l/C li 




7ft (M^70S 


10570^ 


000007 








«2.R4 


77 00'??07 


10A700 


000001 

vwwvw 1 


001740 




TMP 


V I ^ r Liv 1 


78 00 VI? 


01 \>yL 








RFO 


BAOUF 


TO nnx9i'x 


OOX1 
UvO lO** 








BD 

On 


PI nnpl 


an nnx9iA 


100AA1 


0O0OO1 






nuv 


fil 1IB4) 


O 1 W 1 o 


10^0^0 


001 774 






nuv 


B4 BAABQM 


117 00^770 


lOA'^OO 


001 740 
uu 1 c*iv 


001 ^1 7 

UU U 1 C 


RD0NE1 : 


nuv 


r 1 «r k 1 nc v 




oooono 








PP Tl tou 


o** wjcc<* 


107700 


000070 


001770 
UU 1 ecu 


men • 


Rir 


w uusnv f r bmi 


85 003777 










DCH 


nWUI I 


BA 00'^? 30 


104701 


000000 

vVUUUV 






MOV 

nuv 


«F1 BI 

WW 1 1 


87 0O3732 


077403 










IVCA 1 


88 003233 


000000 






RD(ME2: 
NG01: 


RETURN 

■ V %#v«w 




89 003234 


101200 


002004 


001220 


BIS 


fFCTBAO^BSTGS 


90 003237 


103200 


000001 


001220 


BIC 


fFCTAVL,fLAG 


91 003242 


003233 








BR 


RD0NE2 


92 003243 


104201 


000022 




ROUIT: 


NOV 


#18.,R1 


93 003245 


114002 








CLR 


R2 


94 003246 


022542 








CALL 


ERRNNT 



SEO 235 



POINT TO LAST ENTRY 

HIGHEST PBN IN LBN AREA 

IS IT RIGHT BLOCK ? 

YES - FIND RIGHT ENTRY 

SUBTRACT ONE BLOCKS WORTH 

BRANCH BACK 

FOR INIT OF COUNT 

POINT TO PBN BUFFER 

GET HIGH ORDER 

SAVE IT TEMPORARILY 

CLEAR FOR COMPARE 

STORE IT BACK 

POINT TO HIGHEST PBN 

COMPARE 

IF LESS THAN OR EQUAL THEN FOUND FIRST LBBN 
STORE HEADER BACK 
DECREMENT COUNT 
DEC IT 

POINT TO NEXT ENTRY 
COUNT AT 1 ? 

YUP • THEN LAST ENTRY IS IT 

TRY NEXT ENTRY 

STORE HEADER BACK 

MAKE CURRENT BAD POINTER 

FCT ENTRY COUNT FOR LATER USE 

RETURN 

CONTINUE AS BEST GUESS ? 

NOPE - GIVE UP 

POINT TO D/XBN OVERLAY 

START OVER IN BEST GUESS MODE 

SET FCT NOT USED FLAG 

NO MORE FCT (SO WILL DO EXTEN READS 

EXIT 

ERROR CODE 
NO SUBCODE 
ERROR RETURN 



UDAFPt - UDA FORMATTER DMACR X04.01 23-AUG-82 14:02:32 P 
RCT CLEANUP OVERLAY 



1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
U 
15 
16 
^7 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



003247 



003023 
003026 
003030 
003032 
003033 
003034 
003035 
003037 
003042 
003044 
003046 
003051 
003054 
0030S6 
003057 
003061 
003063 
003065 
003067 
003070 
003071 
003072 
003074 
003076 
003100 
003101 
003103 
003104 
003106 
003107 
003111 
003113 
003114 
003116 
003117 
003124 
003126 
0031 3U 
003131 
003133 
G03136 
003137 
003140 
003U1 
003144 
003146 
003147 
003152 
003153 



104200 
104207 
104303 
100173 
115003 
013154 
104202 
104200 
114000 
114000 
104200 
104200 
104304 
024373 
104205 
104653 
103203 
106203 
053117 
104153 
100223 
104653 
103203 
101203 
100223 
104303 
100223 
104303 
100223 
117400 
117400 
013153 
104303 
013140 

105205 
117400 
053061 
115400 
106300 
053051 
003147 
023743 
104200 
104202 
003117 
106200 
013154 
023743 



000041 
001264 
001467 



006204 
000100 
001107 
001110 
000002 
000200 
001474 

006621 
000001 
007777 
030000 



000001 
170000 
030000 

001107 

001110 

001476 
001467 

001476 



000002 
001451 

001474 
001243 



000100 
006204 

000100 



001154 



001476 



001474 
001451 



CLELP2: 
CLELP: 



CLESKP : 



001474 

001476 
001476 



CLSKP2: 

CLEOON: 
CLSKP4: 



.SBTTL 
RCT CLE 
DNOVLY 



NOV 

NOV 

NOV 

NOV 

TST 

BEQ 

NOV 

NOV 

CLR 

CLR 

NOV 

NOV 

NOV 

CALL 

NOV 

NOV 

BIC 

CNP 

BNE 

NOV 

NOV 

NOV 

BIC 

BIS 

NOV 

NOV 

NOV 

NOV 

NOV 

DEC 

DEC 

BEO 

NOV 

BEQ 

OUBINC 

ADD 

DEC 

BME 

INC 

CNP 

BNE 

BR 

CALL 

NOV 

NOV 

BR 

CNP 

BEQ 

CALL 



FOR OVERLAY IDENT 

NESSAGE BUFFER 

ANY SECONDARY REVECTORS ? 

STORE IT 

ARE THERE ANY ? 

NOPE - JUST EXIT 

POINT TO REVECTOR BUFFER 

COUNT OF NAX TO REVECTOR AT ONCE 

CLEAR FOR INIT 

HIGH ORDER TQO 

INIT RCT BLOCK 

GET COUNT OF RCT ENTRIES 

GET CLOCK NUMBER TO READ 

READ IT 

POINT TO BUFFER 
GET HEADER 

CLEAR OUT LOU GARBAGE 
IS IT A SECONDARY ? 
NO • SKIP REVECTORING 
GET LOU ORDER 
; STORE IN REVECTOR BUFFER 
GET HIGH ORDER 
CLEAR HEADER 
SET AS AN LBN REVECTOR 
; STORE IT 

;GET LOU ORDER RBN NUNBER 
STORE IT 
GET HIGH ORDER 
; STORE IT 

:DEC NUN OF ENPTV REVECTOR SLOTS 
;DECREHENT IT 
;IF ZERO THEN DONE 
FULL BLOCK ? 
;IF 0 - PROCESS BLOCK 
JNCERNENT IT 
; POINT TO NEXT RBN ENTR 
IDECRENENT IT 

DO NEXT ENTRY IF NOT ZERO 
INCRENENT IT 

;DONE ? 

:NOPE - READ IN NEXT BLOCK 

;ELSE DONE 

iPROCESS THE BLOCK 

;FOR COUNTER INIT 

; RESET POINTER 

: BRANCH BACK 

;DONE ANY ? 

;N0 - DONE 

lURITE OUT ANY LEFTOVERS 
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RCT CLEANUP OVERLAY (G4) 



58 003154 

59 003154 

60 003156 

61 003157 

62 003160 

63 003161 

64 003162 



104201 
022435 
023546 
022315 
M4007 
U60021 



000066 



CLSKP3: 



nov 

CALL 

CALL 

CALL 

CLR 

XFC 



#H2,R1 

PAGE 

SNDRES 

DISCON 

RO 

DONE 



FINAL CHECK OF FCT, RCT, HEADS OVERLAY 

PAGE IT IN 

SEND FINAL STATS 

OISCONNECT/SPINDOWN DRIVE 

MAKE SURE QUITS NICELY 

DONE 
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1 
2 
3 

4 003163 
5 
6 
7 
8 
9 



157 
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10 003172 


ATAAAl 
030001 


1 1 0031 73 


1 A^ 

106 


12 


AAAA1 1 

000012 


13 




1 / 

JH 




1 C 

15 




16 003204 


A/ AA4 i 

040014 


17 003205 


1 Ax 

106 


lo 


AAAA1 / 

000014 


IV 




20 




21 




22 003220 


Ay AA1 c 

OhOOI 3 


23 003221 


1 A^ 

106 


2m 


AAAA1 *\ 

000012 


23 


Oil 

26 




Cf 




cO UU3CJC 


0700 3n 


27 UU32 33 


1 37 

12f 


3U 


00A0/.0 


3 1 




32 




J J Uv3£rc 




3*» 




33 




jO 






00001 ^ 
UUUU 1 3 


7R 007377 


007700 


70 00737A 
j7 UU3c f H 


070003 


AO 00737S 
hU UU3cr3 






007700 
Uw33UU 


42 003300 


040 


43 


000015 


44 




45 




46 




47 003311 


000021 


48 003312 


003317 


49 003313 


030003 


50 003314 




51 


003317 


52 003317 


040 


53 


000021 


54 




55 




56 




57 003334 


000026 



103 



103 



101 



122 



120 



162 



124 



124 



122 



145 



162 



DATA STRUCTURES FOR STATUS RESPONSE 

.-PARAMETER TABLE 



PARMTB: .8LKU 7 
; FORMAT COMPLETE 



FINMS6: 
LFINMS 



FCTUSO; 
LFCTUS 



FCTNOT: 
LFCTNT 



URN: 
URNLN 

* 

RESTA6: 



IS: 

LBUFE 

LLEN 



2S: 

P6UFE 

PLEN 



.ENA6L LC 

.WORD 30001 

.ASCIZ 'Format completed' 

= .-FINMSG 

FCT USED 

.WORD 40014 

.ASCIZ 'FCT used successfully' 

= .-FCTUSD 



;DUP WORD 



;DUP WORD 



FCT NOT USED 

.WORD 40015 :DUP WORD 

.ASCIZ *FCT was not used' 
= .-FCTNOT 

WARNING OF POSSIBLE HEAD PROBLEM 

.WORD 30020 ;DUP WORD 

.ASCIZ 'WARNING - possible head addressing problem - rwt diagnostics* 



REVECTORED LBNS 



.WORD 
.WORD 
.WORD 
.BLKW 



LLEN 
LBUFE 
30002 
3 



LENGTH 

END OF BUFFER 
DUP WORD 
CONVERT BUFFER 



.ASCIZ 
= .-1$ 



* Revectored LBNS* 
PRIMARY REVECTORS 



.WORD 
.WORD 
.WORD 
.BLKW 

Tasciz 



PLEN 
PBUFE 
30003 
3 



LENGTH 

END OF BUFFER 
DUP WORD 
CONVERT BUFFER 



' Primary revectored LBNS* 
.-2$ 



SECONDARY REVECTORS 
.WORD SLEN 



.LENGTH 
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SEQ 339 







003342 


59 


003336 


030004 


60 


003337 








wW<J J"tC 


ft? 




040 


63 




000026 

VWWfcW 


64 






6S 






WW 

67 

W ' 


003364 


000034 


68 

WW 


003365 


003372 


69 

w y 


003366 


030005 

W W WW V w 


70 


003367 

WW J • 




f 1 




003372 

WWWW b 


72 


003372 


040 


75 




000034 


74 






75 






76 

• W 






77 






78 

• W 


003422 


000034 

WW WW w^ 


79 


003423 


003430 


80 


003424 


030007 


81 

W I 


003425 




8? 

WC 




003430 

W W W~ WW 


83 

W^ 


003430 

WW^~^W 


040 


84 

W"T 




000034 

W W W W • 


85 






86 

WW 






87 

W • 






88 


003460 

VW^r^\#W 


000034 


89 

W r 


003461 


003466 


90 


003462 

W W W «B 


030010 


91 


003463 




92 




003466 

W W WT^**W 


93 


003466 


040 


94 




000034 


95 






96 






97 






98 


003516 


000025 


99 


003517 


003524 


100 


003520 


030013 


101 


003521 




102 




003524 


103 


003524 


040 


104 




000025 


105 






106 






107 

• w ■ 






108 






109 
110 


003545 


000000 


111 






112 






113 






114 


003546 


104207 



123 



145 



102 



141 



3$: 

SBUFE 

SLEN 



4S: 

RCBUFE 
RCLEN 



102 



141 



102 



141 



102 



154 



5S: 

DBBUFE 
06LEN 



6S: 

XBBUFE 
X6LEN 



7$: 

RE6UFE 
RELEN 



.WORD 
.WORD 
.BLKU 

Tasciz 



SBUFE 
30004 
3 



;END OF BUFFER 
;DUP UORD 
.•CONVERT BUFFER 



* Secondary/tertiary revectored LBNS* 
.-3$ 



RCT BAD BLOCKS 



.WORD 
.WORD 
.WORD 
^BLKU 

Tasciz 



RCLEN 
RCBUFE 
30005 
3 



LENGTH 

END OF BUFFER 
DUP UORD 
CONVERT BUFFER 



' Bad blocks in the RCT area due to data errors* 
.-4$ 



DBN BAD BLOCKS 

.UORD DBLEN 
.UORD DBBUFE 
.UORD 30007 
.BLKU 3 

TaSCIZ * Bad blocks in the 
.-5$ 

XBN BAD BLOCKS 

.UORD XBLEN 

.UORD XBBUFE 

.UORD 30010 

.BLKU 3 

TasCIZ ' Bad blocks in the 

s .-6$ 

RETRIED BLOCKS 

.UORD RELEN 

.UORD REBUFE 

.UORD 30013 

.BLKU 3 

TasCIZ ' Blocks retried on 

= .-7S 

.DSABL LC 



LENGTH 

END OF BUFFER 
DUP UORD 
CONVERT BUFFER 



DBN area due to data errors* 



.•LENGTH 

.-END OF BUFFER 
;DUP UORD 
.'CONVERT BUFFER 

XBN area due to data errors' 



LENGTH 

END OF BUFFER 
DUP UORD 
CONVERT BUFFER 



the check pass* 



END OF LIST 
.UORD 0 

; BUILD AND SEND STAT RESPONSES 

■ 

SNDRES: NOV #FINffSG.RO 



.•POINT TO "COMPLETE" MESSAGE 



UOAFH - UDA FORHATTEl OHACR X04.01 23-AU6-82 U:02:32 P 
RCT CLEANUP OVERLAY u4) 



115 003550 

116 003552 

117 003553 

118 003555 

119 003557 

120 003561 

121 003562 

122 00356A 

123 003565 

124 003567 

125 003570 

126 003572 

127 003573 

128 003575 

129 003576 

130 003600 

131 003601 

132 003603 

133 003604 

134 003606 

135 003607 

136 003610 

137 003611 

138 003612 

139 003615 

140 003616 

141 003617 

142 003620 

143 003621 

144 003622 

145 003623 

146 003624 

147 003627 

148 003630 

149 003632 

150 003634 

151 003635 

152 003636 

153 003640 

154 003642 

155 003643 



104201 
060016 
104204 
104203 
104302 
100232 
107302 
100232 
104302 
100232 
104302 
100232 
104302 
100232 
104302 
100232 
104302 
100232 
104203 
104242 
104245 
023644 
104047 
103200 
104231 
023660 
104021 
060016 
105024 
104242 
053607 
102200 
013636 
104207 
104201 
060016 
003643 
104207 
104201 
060016 
000000 



000012 

003272 
003163 
001313 

00126; 

001264 

001314 

001315 

001316 

001470 

003163 



000400 001221 



002000 001220 

003220 
000012 



003204 
000014 



NOV 

XFC 

mv 

NOV 
NOV 
NOV 
SUB 

nov 

NOV 
NOV 
MOV 

nov 

NOV 

nov 

NOV 
NOV 
NOV 
NOV 
NOV 
NOV 

SNDLP: NOV 
CALL 
NOV 
BIC 
NOV 
CALL 
NOV 
XFC 
ADD 
NOV 
BNE 
BIT 
BEQ 
NOV 
NOV 
XFC 
BR 

USDFCT: NOV 
NOV 

XFC 

DONFCT: RETURN 
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SEO 340 



«LFINMS,R1 

NAINTR 

#RESTAB,R4 

#PARHTB,R3 

LBNBAD,R2 

R2,(R3)*^ 

DNBUF,R2 

R2,(R3)^ 

DMBUF.R2 

R2,(R3)* 

RCTBAD,R2 

R2,(R3)* 

DBBAD,R2 

R2.(R3)* 

XBBAD,R2 

R2,(R3)* 

RTYCNT-R2 

R2,(R3)* 

#PARNTB.R3 

(R4>t«R2 

(R4)«.R5 

CLRBUF 

R4,R0 

#FLIP0N.FLA61 

(R3)*,R1 

DECASC 

R2tR1 

NAINTR 

R2.R4 

(R4)^,R2 

SNDLP 

fBSTGS.FLAG 

USDFCT 

fFCTNOT.RO 

fLFCTNT.Rl 

NAINTR 

DONFCT 

#FCTUSD,RO 

#LFCTUS,R1 

NAINTR 



LENGTH OF NESSAGE 
SEND IT 

POINT TO TABLE 
PARAMETER TABLE 
LBN'S BAD 
STORE IT 

SUBTRACT STORED SECONDARIES TO GET PRIMARY 
STORE IT 

STORED SECONDARY COUNT 

STORE IT 

RCT BAD BLOCKS 

STORE IT 

DBN BAD BLOCKS 

STORE IT 

XBN BAD BLOCKS 

STORE IT 

RETRIES 

STORE IT 

POINT BACK TO BEGINNING 

GET LENGTH OF NESSAGE 

GET CND OF BUFFER ADDRESS (FOR CONVERT) 

INITIALIZE THE BUFFER 

NOVE ADDRESS OF STRING TO RO 

CLEAR FLAG (FOR CONVERT) 

GET WORD TO CONVERT 

CONVERT TO ASCII 

GET LENGTri IN R1 

SEND TO THE HOST 

POINT TO THE NEXT NESSAGE 

GET LENGTH 

BRANCH IF NOT ZERO 

DID WE USE FCT ? 

YES - PRINT THAT NESSAGE 

POINT TO NOT USED NESSAGE 

LENGTH OF NESSAGE 

SEND IT 

EXIT 

POINT TO USED NESSAGE 
LENGTH OF NESSAGE 
SEND IT 
RETURN 
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SEQ 341 



1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 



003644 

003646 104207 000003 

003650 104202 020040 

003652 1004S2 

003653 117407 

003654 053652 
003655 

003657 000000 



IHll A 3 WORD BUFFER TO ASCII BLANKS 
R5 -> END OF BUFFER 



CLRBUF : 



CLRLP: 



PUSH 

NOV 

NOV 

NOV 

DEC 

BNE 

POP 

RETURN 



R5,R2 

#3,R0 

#BLANUD,R2 

R2,-(R5) 

RO 

CLRLP 
R2,R5 



;SAVE RS 
:WORD COUNT 

;UORD OF 2 ASCII BLANKS 
: STORE yORD IN BUFFER 
:DECRENENT COUNT 
:LOOP TILL DONE 
.'RESTORE R5 
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SEO 3A? 



1 

2 
3 

5 
6 

7 003660 

8 003664 

9 003666 

10 003670 

11 003673 

12 003675 

13 003677 

14 003701 

15 003702 

16 003703 

17 003705 

18 003710 

19 003711 

20 003712 

21 003715 

22 003716 

23 003717 

24 003720 

25 003721 

26 003724 

27 003725 

28 003726 

29 003731 

30 003732 

31 003733 

32 003735 

33 003736 

34 003742 



104010 
114000 
1042C0 
114000 
104204 
104203 
021565 
104132 
105202 
102200 
053716 
104027 
101200 
003724 
110707 
101027 
100457 
103200 
104141 
053664 
102200 
013736 
110707 
101207 
100457 

000000 



000736 
000737 
000012 
000732 
000736 
000731 



000060 
000400 



000400 

000400 
000400 
000040 



CONVERT FROM BINARY TO DECIMAL ASCII 



R1 ' VALUE TO BE CONVERTED 

R5 -> END OF BUFFER TO PUT RESULT 



000731 



001221 
001221 

001221 
001221 



DECASC: PUSH 
DECALP: NOV 
CLR 
NOV 
CLR 
NOV 
NOV 
CALL 
NOV 
ADD 
BIT 
BNE 
NOV 
BIS 
BR 

1$: SyAB 
BIS 
NOV 
BIC 

2$: NOV 
BNE 
BIT 
BEQ 
SUAB 
BIS 
NOV 

3S: POP 

RETURN 



R0,R2,R3,R4 

R1.TENP 

TEHP+1 

#10.,DDUHNY 

DDUNNY^I 

«TENP,R4 

«DDUNNY«R3 

DDIV 

(R3),R2 

«'0,R2 

#FLIP0N«FLAG1 
IS 

R2.R0 

#FLIP0N,FLAG1 
2% 

RO 

R2,R0 

R0.-<R5) 

«FLIP0N,FLA61 

(R4),R1 

DECALP 

«FLIP0N,FLA61 

3S 

RO 

fLOBL.RO 
R0,-(R5} 
R4,R3.R2,R0 



SAVE SONE REGS 

STORE VALUE TO BE CONVERTED 

CLEAR HIGH ORDER 

FOR DIVmE BY 10 

CLEAR HIGH ORDER 

D I VI DENT 

DIVISOR 

DO THE DIVIDE 

GET RENAINDER (VALUE OF INTEREST) 

NAKE IT ASCII 

WHICH BYTE ARE WE ON ? 

IF SST - THEN HIGH BYTE 

IF LOU BYTE - SAVE IN RO 

SET NOW ON HIGH BYTE 

CONTINUE ON 

GET FIRST DIGIT INTO HIGH BYTE 
OR IN LOW BYTE 
STORE IT IN BUFFER 
SET NOW ON LOW BYTE 
GET QUOTIENT 

IF NOT ZERO THEN CONTINUE 

WHICH BYTE DID WE END ON ? 

IF CLEAR THEN - WE ARE FINISHED 

GET DIGIT IN HIGH ORDER 

SET IN LOW ORDER BLANK 

AND WRITE OUT LOW BYTE 

RESTORE REGS 
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i 

1 

» 












rNULC 


«» 


003 J 










Dl ICUA 




U03f 31 




AAA3AZ 






MAU 


O 


UU3r 33 


1 AZTftA 


AA1 A7A 


MWf 30 




Mft)/ 


7 


UU3f 30 




AAAAA3 






MftU 

nuw 


0 




IU*»0*»3 


AAAAAT 






HAU 


Q 

T 


UU3r Oc 


ini jnx 


ftAftftftft 






Dl d 




vU3f 0*» 


1 A^30C 


fl07'^31 

VV' 1 






MftV 
nuw 


1 1 
1 1 


UVl3r00 


Ift/JAI 


AAAJAA 






MA)/ 


1 0 


UU3f f U 


1 AA3C3 






Ul AAD> 


HAU 


13 


ft/>1771 


1 AA3CT 








HAU 


1 L 


nnxjyj 

UU3< f c 


1 1 7£A1 








AFT 




ftft777X 
UU3r r 0 


nCT770 
U33r r U 








OIVC 


1 A 
10 




IU*icU3 


oniftcx 

VV 1 VJJ 






Mnv 


17 

1 1 


ftftT77A 
UU3f f O 


Ift^A'O 
IU*>03c 


ftftftftll 






Mnu 

nu* 


1ft 

10 




*ftX3ft3 


1 r f "vv 






Dl L 


10 


ftft£ftft3 


1 A^3ft7 


0ft1^3A 
VV 1 HcH 






HAU 






1ftftA73 


ftftftftftA 
vvvvUH 






nuv 




ftft^ftftA 


1ft^AX3 


ftftftftftl 






HAU 


33 
CC 




1AX3A3 


AA7777 
Snif Iff 






Bf r 

Blk 


3T 




1 AAA73 
lUUOf c 


AAAAA1 






HAU 


3/. 
CH 


ftft^ftl^ 


1 1 ZAA3 








n Q 


3C 


A/>/.ft1 C 


1 AAA73 


AAAAAA 
UvUvvU 






HAU 


3A 
cO 




A3^i xn 

Uc*t 1 3U 










37 




1 A^3A7 


UUUr c 1 






HAU 

nu* 


3ft 
cO 




1 U<lcwO 








nu* 


30 


ftft^ftv^ 


1 w*l3Uc 


Vv 1 1 U 






Mnv 

nu* 


Xt\ 
jU 


UUHVCO 


inift3X 
1 wiUc3 








Rf C 


11 

J 1 


ftA£n97 




vvvvv"! 






Mnv 
nu* 


xy 

JC 


UU*>U3 1 




Wr 3C 1 






Mnv 

nu* 


TV 

30 


ftft^ftTT 
UU*»U33 


vccOVv 










■»/ 
jM 




IUUOc3 


VA/vHvv 






Mnv 
nu* 


33 






vvvvv 1 






Mnv 

nu* 


30 












Mnv 

nu* 


X7 


Art/ ft/ -! 


iftnA7'X 


UUvvvc 






Mnv 

nu» 


XR 

jO 






vvvvv 1 






Mnv 

nu* 


XQ 




1ACTAT 


VV 1 jcj 






ADD 


Lfl 


ftO£(U7 


1 WOr J 


00000'^ 

vWvvj 






MOV 

nu* 


L^ 




irU3AX 


vvvf CU 






MflV 


*»c 


1/U*IU3 J 


1 WO' J 


vWvv^ 






Mnv 

nu* 


LX 

Hj 


IA/Hw33 




vW' J 1 






Mnv 

nu* 


LL 


ftft^O^? 




VV 1 jC I 




UQf TFO* 


Mnv 
nu* 


Hj 






VV 1 JCC 






Mnv 

nu* 






1AZ1A3 
1 VIOvC 


AAA7A0 
vW' tv 






Mnv 

nu* 


L7 


whvoj 




0007? 1 

vWf C 1 






MOV 

nu* 


HO 




1ftl5fi7 


1 vvvvv 






Rf C 

Old 


^0 
•» T 




UOwv 1 c 








Jir V 














nr V 


51 


004073 


115001 








TST 




004074 


014104 








BEQ 




004075 


106200 


000010 


001501 




CUP 


54 


004100 


014104 








BEQ 


55 


004101 


115400 


001501 






INC 


56 


004103 


004057 








BR 


37 


004104 








IS: 
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AGE 82 



SEQ 343 



REVECTOR BLOCK 



«REVBUF,R4 

COUNT, TENP 

2(R4),R2 

3(R4),R3 

«HD.RBN,R3 

«CLBUF,R5 

fRBNRPT.RI 

R2,(R5)* 

R3,(R5)« 

R1 

WLOOP 

#SCR,R3 

LBNTRK(R3),R2 

#HIBYTE,R2 

fCONBLK.RO 

R2,V3(r6) 

STCYL(R3),R2 

fL0«R2 

R2,Vlt1(R0> 

R2 

R2,V1(R0) 

«URBLK,RQ 
«WRCM>,R3 
CURTRK,R2 
R2,R3 

R3,RU.CNO(R0> 

#CLBUF,R2 

CEOC 

R3,RU.EOC(R2> 

R2.RU.BUF(R0) 

(R4),R3 

R3,RU.L0U(R0) 

1(R4>,R3 

ST.LBN,R3 

R3,RW.HI(R0) 

#HSLIH-1.R3 

R3,RU.0UN(R0) 

R4,0l>UfmY 

HPREA,R3 

0PREA,R4 

UNIT,R2 

fURBLK.RO 

fBIT15,R0 

SIP 

WRITE 

R1 

1$ 

fHAXTRY.TNPTRY 
IS 

THPTRY 
URITE9 



POINT TO BUFFER 

GET COUNT 

GET LOU ORDER RBN 

GET HIGH ORDER RBN 

SET IN HDR CODE 

POINT TO BUFFER 

INIT COUNTER 

STORE LOU ORDER 

STORE HIGH ORDER 

DECREMENT COUNTER 

CONTINURE TILL DONE 

POINT TO CHARACTERISTICS 

GET LBN/TRACK 

CLEAR HI6H BYTE 

POINT TO CONVERT BLOCK 

FOR CONVERT 

STARTING CLYLINDER 

CLEAR REST OF UORD 

STORE 

FOR STORE 

LOU ALUAYS ZERO 

CONVERT AND SEEK 

POINT TO COMPIAND BLOCK 

GET URITE COWANO 

GET CURRENT TRACK 

SET TRACK FOR URITE 

STORE IN COfMAND BLOCK 

POINT TO BUFFER 

COMPUTE EDC - RETURNED IN R3 

STORE IT 

STICK IN COMMAND BLOCK 
GET LOU ORDER HEADER 
STORE IN URITE BLOCK 
GET HIGH ORDER 
ADD STARTING LBN BITS 
STORE IN URITE BLOCK 
GET DUMMY SDI POINTER 
POINT IN COMMAND BLOCK 
SAVE R4 

GET HEADER PREAMBLE 
GET DATA PREAMBLE 
SET UNIT 

MAKE SURE POINTING AT BLOCK 

SET NO REVECTORING 

UAIT FOR SECTOR PULSE 

URITE SECTOR 

ANY ERROR ? 

NO - SKIP RETRY 

MAX ? 

YES - GIVE UP 
INC RETRY COUNT 
DO RETRY 
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SEQ 344 



JO 


fW. 1 (V. 


11 AAAA 


nni sni 








1 UH jU*» 


nno7Xi 
vyjvf J 1 




AH 


rtn/Li in 


1 VjcvH 






O I 


nfu>ii7 

WVM 1 1 c 


1 1 s^nn 

1 1 ^HW 


001 ^7A 

wv 1 H f O 




oc 




1 vOCvw 


000100 

WW 1 WW 


001476 


OJ 


00^117 

VV*V 1 1 f 


0S^7SA 






OH 




n3A1 7S 






AS 










oo 


nn^i77 


wVUwW 






Of 










Aft 










AO 










I J 










f 1 




10Z5A7 






r c 




lAAlZX 






7» 




1 vVOr J 


OAOOOP 

vvwvUC 




f 


UvH 1 


1 WHOM J 


000001 

vvUwW 1 




7C 


00^1^7 


10«0T 


1 70000 

1 f wwww 




7A 
1 o 




100A7^ 

1 wwOr ^ 


00000^ 

WwWvvJ 




77 


W"t 1 ■•J 


i/uphi 


001053 

WW IV J J 




7ft 




vOvvCv 




001 11 E 


70 


WH 1 to 


in^A70 


000011 
wwww 1 1 


ftn 

OU 




M%JHQfv 


OOOOOA 

WWwWvO 


001077 


O 1 




1 0^A7n 

1 wMOr U 


000007 

WWWWWr 


001100 


ft? 

Oc 


WH ijf 


1(UA70 


nooolo 


001101 


ftx 

Oj 


UU*I lOc 


VCCCHC 






84 


004163 


115001 






85 


004164 


054166 






86 


004165 


000000 






87 


004166 


104201 


000012 




88 


004170 


104207 


001424 




89 


004172 


104672 


000006 




90 


004174 


022542 







CS: 



CKR: 



CLR 

nov 

ADD 

INC 

CHP 

BNE 

CALL 

POPA 

RETURN 



TBPTRY 
DDUmY«R4 
#REVLEN,R4 
COUNT 

#64., COUNT 

CLHERE 

RBNURT 



CLEAR RETRY COUNT 

RESTORE R4 

POINT TO NEXT ENTRY 

INC COUNTER 

DONE ? 

NO - REPEAT 

yRITE GOOD EDC'S TO RBN'S 



CONVERT BLOCK NUMBER TO PHYSICAL ADDRESS AND SEEK 
R4 -> BLOCK NUMBER 



nov #CONBLK,R0 

NOV (R4).R3 

NOV R3«V2(R0) 

NOV 1(R4),R3 

BIC #HD.CLR,R3 

NOV R3,V24^1(R0) 

NOV #SCR«R1 

XFC CVT 

NOV TRK(RO),CURTRK 

NOV CYL(R0)-ISEEK*1 

NOV CYL^1(R6)JSEEK«2 

NOV 6RP(R0),ISEEK«^3 

CALL SEEK 

TST R1 

BNE CKR 
RETURN 

NOV #10., R1 

NOV #C0NBLK,R0 

NOV CVL(R0)«R2 

CALL ERRNNT 



; POINT TO CONVERT BLOCK 

;GET LOU OROR 

; STORE IT 

:HJGH ORDER 

: CLEAR HEADER 

'STORE IT 

•POINT TO SUBUNIT CHARACTERISTICS 

.CONVERT IT 

:6ET TRACK NUNBER 

:LOW ORDER XYLINDER 

:HI6H ORDER CVLINDR 

; GROUP NUPBER 

;00 SEEK 

;ANY ERROR 

;YUP 



SEEK ERROR 
CONVERT BLOCK 
CYLINDER FAILD ON 
ERROR RETURN 
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1 


004175 


1 Ay ^ A/ 
104204 


AAZOA/ 

006204 




OOftlLJDT • 

NdNwk 1 : 


MAU 


-> 

c 


0041 If 


104c03 


AACCiL7 






MAU 


3 


004201 


1 A/ 

104302 


AAi y / z 
00l4so 






■AU 




004203 


100632 


AAA/ AA 
000400 






MAU 

nOV 


c 

5 




1 Ay OAT 

104c03 


AAI ACT 

001033 








o 




10«i03£ 


aaaAaz 






MAU 

nuv 


I 


103eUc 


1 77AnA 

Iff ouu 






BIT 


0 




1 rtZ 3A7 


AAI Z3Z 






MAU 

nuv 


y 




1 nAiL79 

lOOOf c 


AAAAAZ 

UOOOO^ 






MAU 

nuv 


10 


Owe 1 I 


1 A/.iLT3 


Aaaai 1 






MAU 

nuv 


1 1 


OO^CC 1 


inT3n3 


1 77ZAA 
1 f f hOO 






BIT 
OIL 


12 


AA/ OOT 


1 AA^70 


AAAAAC 

000003 






MAU 

nuv 


i « 

13 


AAZ99C 

004225 


104O3c 


AAAAA1 

000001 






MAU 

nuv 


1/. 


AAZ997 


1U3eUe 


AA7777 
UOr f f f 






Bi r 


i e 

15 


AAZ9H 


1 AAiL73 
lOOOrc 


AAAAA1 
000001 






MAU 

nuv 


lo 


0UHe33 










LLn 


1 r 




1 AAiL79 


AAAAAA 
OUOUOO 






MAU 

nuv 


1 B 

1o 


UvHC 30 


1 A/.AZ.A 


AAAAA3 

OOOOUc 


AAA7TT 
UOU r 33 


DftlUUC D • 
KlVlinC n • 


MAU 

nuv 


1 0 


AAZ9Z.1 




AAAAAT 
000003 


AAA7TZ 
UUUr 3*1 




MAU 

nuv 


9n 
cU 


m\L'iLL 


1 AZAZA 


AAA7T1 
OOOr 31 






MAU 
nuv 


51 
cl 


00^£HO 


104204 


AAA7TT 
0O0'33 






MAU 

nuv 


22 


0U4£50 


AOO^ilC 

0c£0O5 








TAI 1 
LALL 




00*c51 


1 AZ9A7 


AAA731 
OOOr C 1 






MAU 

nuv 




00*>c53 


1 AZOAY 


1 33ZAA 






MAU 

nuv 




AAZOCC 


1 AZTA9 


AAI MX 

001 113 






MAU 

nuv 


CD 


AA/ 9C7 

00Hc5r 


101023 








BIC 




AAZOXA 

UvHCOO 


1 AAiL7T 

lOOor 3 

1 AZ3A3 


AAAAAZ 

000004 






MAU 

nuv 


CO 










MAU 

nuv 


CI 




1AAiL73 


VWvv 1 






■All 

nuv 


Tn 


VAMtcOO 


inzizT 

I V*> I*l3 








MAU 

nuv 


71 

31 


OO^cOr 


1AAX7T 


AAAAA3 






MAW 

nuv 


3c 


nA/.971 
OOScr 1 


1 AZA/.> 
1 U33v3 


tlAAAAl 






MAV 

nuv 


33 


W*cr 3 


Uv 1 3c*» 






Ann 


TZ. 
JH 


rtfU.37< 
UUhC' 3 


1 A1 onx 

1 U 1 c U3 


UOV/Vvv 








TC 

j5 


AA/.377 


1 AA<17T 
iUUOr3 


AAAAA'T 
UvUvw3 






MAU 

nuv 


30 


UU*i3U 1 


1 AZOA* 
1 VHCVj 


AA079A 
Uwvr cO 






MAU 

nuv 


3» 


(AKi3U3 


1 AAA7? 


UUVvvJ 






MAW 

nuv 


30 


fW, TAC 

UU*»3U3 




Vw 1 jC 1 




MOV 


TO 


AA/ xn^ 




nAiT39 






MOV 

nuv 


*»u 




IU*l3wc 


AAA7£A 

l/Wr tV 






MOV 

nuw 


«» 1 


Wfj i 3 


1A£3n7 
HI*ICUf 


AAA791 






HAV 

nuw 


<IC 


UU*i3 1 3 


1 01 3A7 


lAAAAfl 
lUUWv 






BIC 
Di a 






UOIFU Ic 










LL 


0W3c0 


UOIIUv3 










h3 


nA£T31 


1 1 cnni 








T^T 


ZA 


nAAT93 


U I*l340 








DCW 




UU*i3c3 


1 vOjUv 


nni^77 


AAI 

W 1 3U 1 




TMP 

^nr 




UU*t3cO 










RFC 


z,o 


UU*i3cr 


i 1 J*lvV 


AAICAI 
W 1 7V 1 










0W33I 


AA^'tA^ 
UU*»3U3 








BD 




004332 


104303 


001502 




IS: 


NOV 


52 


004334 


074346 








BMI 


53 


004335 


115000 


001500 






TST 


54 


004337 


014341 








BEQ 


55 


004340 


022571 








CALL 


56 


004341 


114000 


001501 




3S: 


CLR 


57 


004343 


117400 


001502 






DEC 
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SEO 345 



#REVBUF,R4 

#G0BLK,R3 

E0C,R2 

R2,RU.E0C(R2) 

fSCR.R3 

HBNTRK(R3).R2 

«HI1BYTE,R2 

«CONBLK,RO 

R2,V3(r6) 

LBNTRK(R3),R2 

#HIBYTE.R2 

R2,V4(r6) 

STCYL(R3).R2 

«L0«R2 

R2,VU1(R0) 

R2 

R2,V1(R0) 

2(R4),TENP2 

3(R4),TEHP2*1 

R4,DDUPmY 

fTENP2,R4 

CVTSK 

»URBLK,RO 

fURCflO,R3 

CURTRK.R2 

R2.R3 

R3.RU.CfN>(R0) 

«66bLK«R2 

R2.RU.BUF(R0) 

(R4).R3 

R3.RU.LOU(R0) 

1(R4),R3 

ST.RBN,R3 

fHD.RBN,R3 

R3,RW.NI(R0) 

#HSLZN>1,R3 

R3,RW.D(Jtf(R0) 

HPREA,R3 

0FREA,R4 

UNIT,R2 

fWRBLK.RO 

fSITIS.RO 

SIP 

URITE 

R1 

2S 

RETRY. TUPTRY 
IS 

TUPTRY 
URIT13 
RECTflP,R3 
2% 

RECOV 
3S 

ERRHNO 
TWPTRY 
RECTNP 



POINT TO BUFFER 
POINT TO GOOD BLOCK 
GET GOOD EDC 
STORE IT 

POINT TO CHARACTERISTICS 

GET RBN/TRACK 

CLEAR HIGH GARBAGE 

POINT TO CONVERT BLOCK 

FOR CONVERT 

GET LBN/TRACK 

CLEAR HIGH BYTE 

SET UP FOR RBN'S 

STARTING CLYLINDER 

CLEAR REST OF WORD 

STORE 

FOR STORE 

LOU ALUAYS ZERO 

GET LOU ORDER RBN 

GET HIGH ORDER 

SAVE R4 

FOR CONVERT 

CONVERT AND SEEK 

POINT TO COPiMND BLOCK 

GET URITE CQMNAND 

GET CURRENT TRACK 

SET TRACK FOR URITE 

STORE IN CONPUND BLOCK 

POINT TO BLOCK 

STICK IN COPflAND BLOCK 

GET LOU ORDER HEADER 

STORE IN URITE BLOCK 

GET HIGH ORDER 

ADD STARTING RBN BITS 

GIVE RBN HEADER 

STORE IN URITE BLOCK 

GET DUHRY SDI POINTER 

POINT IN CONMAND BLOCK 

GET HEADER PREAMBLE 

GET DATA PREAMBLE 

SET UNIT 

MAKE SURE POINTING AT BLOCK 

SET NO REVECTORING 

UAIT FOR SECTOR PULSE 

URITE SECTOR 

ANY ERROR ? 

NO - SKIP RETRY 

MAX ^ 

YES - TRY SOME RECOVERY 
INC RETRY COUNT 
DO RETRY 

GET CURRENT ERROR RECOVERY LEVEL 

IF NEGATIVE THEN FRIED 

IS THERE ONLY RECOVERY LEVEL 0 ? 

YES - NO NEED TO ISSUE IT - JUST RETRY 

TRY RECOVERY 

FOR INIT 

DECREMENT IT 
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58 (KK34S 004305 

59 004346 

60 004346 114000 001501 

61 004350 104300 001500 001502 
6;; 004353 104304 000731 

63 004355 i 05204 000004 

64 004357 115400 000736 

65 004361 106200 000100 000736 

66 004364 054236 

67 004365 104207 001424 

68 004367 114002 

69 004370 100672 000005 

70 004372 000000 



2S: 



BR 

CLR 
MOV 
MOV 
ADD 
INC 
CMP 
BNE 
MOV 
CLR 
MOV 
RETURN 



URIT13 
TMPTRY 

RECOV.RECTNP 
DDUPIHY,R4 
«REVLEN,R4 
TEMP 

«64.«TEMP 
RNUHER 
«CONBLK,R0 
R2 

R2,V4(R0) 



SEO 346 



RETRY 

RESET 

DITTO 

RESTORE R4 

POINT TO NEXT ENTRY 

INC COUNTER 

DONE ? 

NO - REPEAT 

FOR RESET 

DITTO 

RESET FOR NON-RBN'S 



J 11 
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1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



004373 
004401 
004402 
004404 
004406 
004410 
004412 
004414 
004415 
004417 
004421 
004423 
004425 
004427 
C04431 
)0'433 
OvU^35 
0C>436 
004437 
004441 
004443 
004445 
004446 
004450 
004452 
004454 
004456 
004460 
004462 
004464 
004466 
004467 
004471 
004473 
004475 
004476 
004500 
004502 
004503 
004504 
004505 
004506 
004507 
004511 
004512 
004513 
004514 
004515 
004517 
004520 
004522 
004523 
004526 



114005 

104203 

104632 

103202 

104207 

100672 

114002 

100672 

104632 

103202 

100672 

104040 

114000 

104204 

104203 

021503 

024130 

104207 

104203 

100673 

104143 

100673 

104643 

105303 

100673 

104203 

100673 

104203 

104301 

101013 

100673 

104207 

104203 

100173 

104302 

101207 

060012 

060002 

115001 

054523 

104173 

102203 

014515 

023000 

11500% 

054523 

104202 

022600 

106623 

014563 

106300 

014532 



001053 
000001 
007777 
001424 
000001 

000000 
0 0011 
"400 
000004 
000731 
000732 
000731 
001230 



000721 
000726 
000005 

000002 
000001 
001323 
000003 
006621 
000001 
013400 
001113 

000004 
000721 
100000 

000740 
100000 



010000 



006621 
000400 

001477 001501 



RCAD A BLOCK OF THE RCT 
R4 ->BLOCK NUMBER OF RCT 



RRC: PUSHA 

CLR R5 

nOV «SCR,R3 

nOV STCYL(R3),R2 

BIC #L0,R2 

MOV «CONBLK,RO 

NOV R2,VU1(R0) 

CLR R2 

MOV R2,V1(R0) 

NOV LBNTRK(R3),R2 

BIC «HIBYTE.R2 

NOV R2.V3(R0) 

NOV R4,00UNNY 

CLR DDUNNY^I 

NOV «DDUNNY,R4 

NOV «H0L0,R3 

CALL OAOO 

RCL: CALL CS 

NOV #ROBLK«RO 

NOV «HSLIN>1,R3 

NOV R3,RU.DUN(R0) 

NOV (R4),R3 

NOV R3,RU.LQU(R0) 

NOV 1(R4),R3 

ADD ST.LBN,R3 

NOV R3,RU.HI(R0) 

NOV «RCTBUF,R3 

NOV R3,RU.BUF(R0) 

NOV fRUCND,R3 

NOV CURTRK^RI 

BIS R1.R3 

NOV R3,RU.CND(R0) 

READ8: NOV fRD6LK,R0 

NOV «RDCND,R3 

NOV R3,(R0) 

NOV UNIT.R2 

BIS fSITIS.RO 

XFC SIP 

XFC READ 

TST R1 

BNE loot 

NOV <R0),R3 

BIT fECCF,R3 

BEQ 101$ 

CALL ECCCK 

TST R1 

BNE 100$ 

101$: NOV mTBUF,R2 

CALL CEDC 

CNP RU.EDC(R2),R3 

BEO 102$ 

100$: CNP RETRY, TNPTRY 

BEO 1$ 



CLEAR ERROR COUNTER 

POINT TO CHARACTERISTICS 

GET LOU ORDER STARTING CYLINDER 

CLER REST OF WORD 

POINT TO CONVERT BLOCK 

STORE FOR CONVERT 

FOR STORE 

LOU ORDER ALUAYS ZERO 
GET LBN/TRK 
CLEAR HIGH BYTE 
STORE IN CONVERT BLOCK 
STORE BLOCK NUNBER 
FOR STORE 
POINT FOR ADD 
STARTING RCT LBM 
GET RCT LBN 

CONVERT FCT BLOCK NUNBER AND SEEK 

PREPARE FOR READ SECTORS 

POINTER TO DUNNY SDI BLOCK 

STORE IN CONNAND BLOCK 

LO ORDER BLOCK NUNBER 

STORE IN READ COND BLOCK 

HI ORDER BLOCK NUN AND CODE 

ADD STARTING LBN BITS 

STORE IN READ CND BLOCK 

LOAD ADDRESS OF DATA BUFFER 

STORE IN CONNAND BUFFER 

LOAD SDI READ CONNAND 

GET CURRENT HEAD NUMBER IN R1 

SET IT IN CONNAND 

STORE BACK 

NAKE SURE POINTING AT BLOCK 

NARK AS ONLY RECUEST 

STORE IN CND BLOCK 

SDI INTERCONNECT 

SET NO REVECTORING 

UAIT FOR PULSE 

READ 1 SECTOR 

ANY ERRORS ? 

YES - TRY RECOVERY 

GET STATUS UORD 

ECC ERROR ? 

NOPE - VERIFY EDC 

CORRECT ECC 

TEST FLAG 

UNCORRECTABLE 

POINT TO BUFFER 

CONPUTE EDC 

OK ' 

YUP'-'CONSIDER GOOD 
NAX 

YES - TRY SONE RECOVERY 
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58 0OA527 

59 004531 

60 0OAS32 

61 004534 

62 004535 

63 004537 

64 004540 

65 004541 

66 004543 

67 004545 

68 004546 

69 004546 

70 004547 

71 004551 

72 004552 

73 004554 

74 004555 

75 004557 

76 004562 

77 004563 

78 004563 

79 004565 

80 004570 

81 004571 

82 004572 

83 004574 

84 004575 

85 004576 

86 004600 

87 004602 

88 004604 

89 004605 

90 004607 

91 004611 

92 004613 

93 004614 

94 004616 

95 004620 

96 004622 

97 004624 

98 004626 

99 004630 

100 004632 

101 U04634 

102 004636 

103 004640 

104 004642 

105 004643 

106 004644 

107 004645 

108 004646 

109 004651 

110 004652 
11 : 004654 

112 004655 

113 004657 

114 004660 



115400 
004471 
104303 
074546 
115000 
014541 
022571 
114000 
117400 
004471 

115405 
106305 
014705 
104203 
021503 
114000 
104300 
004436 

114000 
104300 
115005 
014676 
104203 
021521 
024130 
104207 
104203 
104302 
101023 
100673 
104203 
100673 
104143 
100673 
104643 
105303 
100673 
104203 
100673 
104303 
104304 
104302 
104207 
101207 
060012 
060003 
115001 
014671 
106300 
014655 
115400 
004630 
104303 
074671 
115000 



001501 
001502 
001500 



001501 
001502 



001245 
001243 



001301 

001500 001502 



001501 

001500 001502 



001241 



000721 
122400 
001113 

000004 
006621 
000001 

000002 
000001 
001323 
000003 
000726 
000005 
001321 
001322 
000740 
000721 
100000 



001477 001501 
001501 
001502 
001500 





INi, 




DO 

dn 


1«: 










TCT 




PC-Q 
DCU 
















On 












mo 




ocw 




MflU 




ni 1 




ri D 

LLn 




Mnu 




AD 
OR 


IVC9 ' 






ft 0 




nuv 




TCT 








■inu 
nuv 




tAI 1 




TAI 1 




nuv 




Mnv 

nuv 




MflU 
nuv 




AIC 
at 9 




Mnu 

nuv 




Mnu 

nuv 




Mnu 

nuv 




Mnu 

nuv 




Mnu 

nuv 




Mnu 




ADD 




NOV 
nuv 




MOV 




MOU 

nuv 


UAIT10- 


MOU 




Mnu 
nuv 




Mnv 

nuv 




Mnv 

nuv 








nr U 




nw K 




1 d 1 








CMP 




BEO 




INC 




BR 


1$: 


NOV 




BMI 




TST 
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THPTRV 
READS 
RECTnP,R3 
2% 

RECOV 
3$ 

ERRNND 
THPTRY 
RECTHP 
READS 

R5 

FCTCPY.R5 
RFTL 

#RCTFNT,R3 

DADD 

TUPTRV 

RECOV^RECTHP 
RCL 

TUPTRY^ 

RECOV,)tECTnP 

R5 

RLD 

#FCTFHT,R3 

DSU6 

CS 

#URBLK,RO 
«URCf10,R3 
CURTRK,R2 
R2,R3 

R3.RU.CnO(RO) 

#RCTBUF,R3 

R3,RU.BUF(R0> 

(R4>«R3 

R3,RU.L0U(R0) 

1(R4>«R3 

ST.LBN,R3 

R3,RW.HI(R0) 

«HSLIN-1,R3 

R3,RW.DyN(R0> 

HPREA«R3 

DPREA«R4 

UNIT«R2 

«URBLK,RO 

#6IT15,R0 

SIP 

WRITE 

RI 

2S 

RETRY. TUPTRY 
U 

fPIPTRY 
URIT10 
RECTNP,R3 
2$ 

RECOV 



;INC RETRY COUNT 
;D0 RETRY 

:GET CURRENT ERROR RECOVERY LEVEL 

;IF NEGATIVE THEN FRIED 

:IS THERE ONLY RECOVERY LEVEL 0 ? 

;YES - NO NEED TO ISSUE IT - JUST rtETRY 

;TRY RECOVERY 

:FOR INIT 

.-DECREMENT IT 

.•RETRY 

.'INCREMENT BAD COUNTER 
:ALL BAD ? 
;YUP - ALL OVER 

.•SIZE OF TABLE - R4 -> BLOCK NUMBER 
;ADD TO POINT TO NEXT COPY 
.RESET RETRY LEVEL 
;DITTO RECOVERY LEVELS 
.•BRANCH BACK 

;FOR RESET 

:GET RECOVERY LEVELS 

;ANY ERRORS ? 

;N0 - EXIT 

.•SIZE OF TABLE 

:GET BACK TO PREVIOUS COPY 

.'CONVERT AND SEEK 

.•POINT TO COMMAND BLOCK 

:GET WRITE COMMAND 

;6ET CURRENT TRACK 

:SET TRACK FOR WRITE 

.•STORE IN COMMAND BLOCK 

.'POINT TO BUFFER 

.STICK IN COMMAND BLOCK 

;GET LOW ORDER HEADER 

.STORE IN WRITE BLOCK 

.-GET HIGH ORDER 

.-ADD STARTING LBN BITS 

.•STORE IN WRITE BLOCK 

;6ET DUMMY SDI POINTER 

.•POINT IN COMMAND BLOCK 

.-GET HEADER PREAMBLE 

;GET DATA PREAMBLE 

.-SET UNIT 

.MAKE SURE POINTING AT BLOCK 

.SET NO REVECT0RIN6 

.WAIT FOR SECTOR PULSE 

.WRITE SECTOR 

;ANY ERROR ? 

;N0 - SKIP RETRY 

;MAX ? 

.'YES - TRY SOME RECOVERY 
.'INC RETRY COUNT 
;D0 RETRY 

.-GET CURRENT ERROR RECOVERY LEVEL 

:IF NEGATIVE THEN FRIED 

.•IS THERE ONLY RECOVERY LEVEL 0 ? 



L n 
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lis 00466? 


014664 
022571 








3$ 


116 004663 






CALL 




117 004664 


114000 

1 ■ ^ WW 


001501 




FLR 


TNPTRV 


118 004666 


117400 

1 1 ■ ^ w 


001502 




DEC 


DFCTNP 


119 004670 


004630 




BR 


yRITIO 


120 004671 






2S: 






121 004671 


1 1 7405 




DEC 


R5 


122 004672 


104300 


001500 


001502 


NOV 


RECOV,RECTNP 


123 004675 


004563 






BR 


RCO 


124 004676 






RLD: 


POPA 




125 004704 


000000 






RETURN 




126 004705 


104012 




RFTL: 


NOV 


R1,R2 


127 004706 

128 004710 


104201 


000016 




NOV 


#14.,R1 


022542 






CALL 


ERRNNT 



L 



;YES - NO NEED TO ISSUE IT - JUST RETRY 

.TRY RECOVERY 

;FOR INIT 

: DECREMENT IT 

; RE TRY 

;DERENENT COUNTER 
;6ET RECOVERY LEVELS 
;SEE IF ANY NORE TO DO 

;ALL DONE 
;XFC ERROR CODE 
;RCT READ ERROR 
; ERROR RETURN 



H 11 



UDAFM - UOA FORMATTER DflACR X04.01 23-AUC-82 14:02:32 PAGE 85 
FINAL CHECK OVERLAY (H2) 



EO 350 



004711 



1 
2 
3 
4 
5 
6 
7 
8 
9 

10 003023 

11 003026 

12 003027 

13 003030 

14 003031 



104200 
023604 
023032 
023323 
000000 



.SBTTL FINAL CHECK OVERLAY (H?) 
DMOVLY H2« START 

DO CHECK OF: 



FCT 
RCT 

CORRECT 



HEAD ADDRESSING 



000066 001 1S4 FINCHK: 



nov 

CALL 
CALL 
CALL 
RETURN 



#H2,CUR0VL 
VERHD 
FCTCK 
RCTCK 



HAKE THIS THE CURRENT OVERLAY 
VERIFY ALL HEADS ACCESSIBLE 
VERIFY FCT 
VERIFY RCT 



N 11 



UDAFn - UDA FORnATTER DNACR X04.01 23^AUG-82 14:02:32 PAGE 86 
FINAL CHECK OVERLAY (H2) 



1 
2 








* 

i 


VERIF 


3 

4 003032 


114000 


001257 




I 

FCTCK: 


CLR 


5 003034 


1 1 5400 


001261 






INC 


6 003036 


104200 


006204 


A A 4 ^ f / 

001254 




nov 


7 003C41 


4 A / ^ A4 

104201 


A AAA 4 7 

000017 






nOv 


8 003043 


A^ ^ / VP 

022435 








/* A 1 1 

CALL 


9 003044 


4 A / ^ Af* 

104205 


AA^ ^ A / 

006204 






MOV 


10 003046 


4 A ^ t A9 

104203 


1 26736 






NOV 


11 003050 


4 AA4 e 9 

100153 








NOV 


12 003051 


104050 


001254 






NOV 


13 003053 


4 A/ 

1 04201 


AAAA YA 

000030 






NOV 


14 003055 


Aft/ 9f 

022435 








CALL 


15 003056 


4 4 J AAA 

114000 


AA4 

001257 






CLR 


16 003060 


4 A / 9AA 

104300 


A A 4 7 

001325 


A A 4 4 4^ 

001117 




NOV 


17 003063 


4 A/ 9AA 

104300 


A A 4 Y ^ C 

001325 


AA4 4 4 C 

001115 




NOV 


18 003066 


114000 


AA4 4 4^ 

001116 






/* 1 A 

CLR 


19 003070 


4 4/ AAA 

1 1 4000 


AA4 4 4 / 

001114 






CLR 


20 003072 


4 A / ^a9 

104203 


AA4 Ar 9 

001053 






NOV 


21 003074 


4 A/ ^A7 

104207 


AA4 / ^/ 

001424 






NOV 


22 003076 


104632 


A AAA A A 

000000 






NOV 


#%/W4 

23 003100 


4 A A y 

100672 


A AAA AA 

000000 






NOV 


24 003102 


4 A / ^ V% 

104632 


A A AA A4 

000001 






NOV 


25 003104 


4 AA^ 

100672 


AA A AA4 

000001 






NOV 


26 003106 


'04303 


001 1 30 






NOV 


27 003110 


4 AA^ 

100673 


A A A A A / 

000004 






NOV 


28 003112 


4 4/ AAf 

114005 






FCTCLP: 


/* 1 A 

CLR 


29 003113 


4 A/ Af A 

104050 


AA4 ^/ 

001 246 






NOV 


30 003115 


•1 Ai ^A/ 

104204 


AAAYYZ 

000736 




FCTCLl : 


NOV 


94 AAY4 4 Y 

31 003117 


4 A/ VAA 

104300 


AA4 4 4/ 

001 114 


AAAYYX 

000736 




NOV 


32 003122 


1 A/ T A A 

104300 


AA4 4 1 C 

001 115 


AAA7T7 

000737 




NOV 


7V AAT 1 

33 003125 


107300 


AA4 YOC 

001325 


AAA777 

000737 




SUB 


AA94 YA 

34 003130 


A^/ VI y 

024314 








CALL 


YC AAYl 

35 003131 


1 A/ ^A7 

104207 


AAAY^4 

000721 






NOV 


36 tf03133 


1 A/ '^AY 

104203 


A4 Y/ AA 

013400 






NOV 


37 r03135 


1 A/ YA^ 

104302 


A A 4 4 4 Y 

001113 






NOV 


90 f 1 A94 

38 ' 03137 


1 A4 A^Y 

101023 








A T C 

BIS 


Tn AAYl y A 

39 003140 


100673 


A AAA A/ 

000004 






NOV 


40 0031 h2 


lAy ^AY 

104203 


AAX 9Ay 

006204 






MAIi 

NOV 


y i AAT1 y y 

41 003144 


100673 


AAAAA1 
000001 






BiAtl 

NOV 


42 003146 


1 Ay VAV 

104303 


AA4 4 4 y 

001114 






iiAt< 

NOV 


y T AAT1 CA 

43 003150 


100673 


AAAAAO 
00UUQ2 






NOV 


y y AA71 

44 003152 


4 Ay YA7 

104303 


AA1 lie 

001 115 






NOV 


y c AAY1 cy 
45 0031 5h 


1 A1 ^AY 

101203 


4 nAAAA 

120000 






BIS 


/ Z AAV 4 Cd. 

46 003156 


■t AA^ 77 

100673 


AAAAA9 

000003 






NOV 


y 7 AAY1 ^ A 

47 003160 


1 Ay 9AT 

104203 


AAA7^X 

000726 






NOV 


y O AAT 1 ^ ^ 

48 00316c 


1 AAX 7T 

100673 


AAAAAC 

000005 






MAt J 

NOV 


y o AAY4 xy 

49 003164 


i Ay ^A7 

104207 


AAA?')^ 

000721 




Ap a Ik A > 

RcAD9: 


■AAt< 

NOV 


CA AAY4^^ 

50 003166 


4 Ay ^AT 

104203 


1 AAAAA 
1 00000 






NOV 


3 1 UU J 1 r u 


1 vwOr J 








nuv 


52 003172 


104302 


000740 






NOV 


53 003174 


101207 


1C0000 






BIS 


54 003176 


060012 








XFC 


55 003177 


060002 








XFC 


56 003200 


115001 








TST 


57 003201 


053217 








BNE 



FCTCNT 
FCTNPD 

#PRNBUF,BUFPNT 

»F6,R1 

PAGE 

«PRNBUF,R5 

#N512,R3 

R3,(R5) 

R5.BUFPNT 

#F9,R1 

PAGE 

FCTCNT 

ST.XBN,CURXBN4^1 

ST.XBN.CURBN^^I 

CURXBN 

CURBN 

#SCR,R3 

fCONBLK.RO 

CYLBN(R3),R2 

R2,V1(R0) 

CYLBNM(R3),R2 

R2,VU1(R0) 

SECTRK,R3 

R3,V3(R0) 

R5 

RS.NEXTI 

#TENP,R4 

CURBN, TENP 

CURBN*1,TENP*1 

ST.XBN,TENP*1 

CS1 

fROBLK.RO 
#RUCND,R3 
CURTRK.R2 
R2.R3 

R3,RU.CN0(R0) 

«PRNBUF«R3 

R3,RU.BUF<R0) 

CyRBN,R3 

R3,RU.LOU(R0) 

CURBN^1,R3 

#HD.XBN,R3 

R3,RU.HI(R0) 

fHSLlN-1.R3 

R3.RU.DUN(R0) 

#RDBLK,RO 

#RDCN0,R3 

R3,RU.STAT(R0) 

UNIT.R2 

#BIT15,R0 

SIP 

READ 

R1 

100S 



FOR INIT 

SO CHECK THE NULL BLOCK ALSO 

POIN TO BUFFER 

FCT READ OVERLAY 

READ FIRST BLOCK 

POINT TO BUFFER 

GET NODE INDICATOR 

SIGNAL DONE FORNAT 

STORE BUFFER POINTER 

FCT WRITE OVERLAY 

WRITE IT OUT 

FOR FCTCNT INIT 

ALSO INITIALIZE XBN COUNTER 

HIGH ORDER 

OW ORDER ALWAYS 0 

AND BLOCK NUNBER 

POINT TO CHARACTERISTICS 

POINT TO CONVERT BLOCK 

GET LOU ORDER CYLINDER 

STORE IT 

GET HIGH ORDER 

STORE IT 

GET SECTORS/TRACK 
STORE IT 

CLEAR WRITE ERROR COUNT 
CLEAR REPEAT COUNT 
POINT TO BLOCK 
FOR CONVERSION 
DITTO 

SUBTRACT STARTING XBN BITS 
CONVERT AND SEEK 
POINT TO CONNAND BLOCK 
GET READ COMMAND 
GET CURRENT TRACK 
SET TRACK FOR WRITE 
STORE IN COMMAND BLOCK 
POINT TO BUFFER 
STICK IN COMMAND BLOCK 
GET LOW ORDER HEADER 
STORE IN WRITE BLOCK 
GET HIGH ORDER 
SET HEADER 

STORE IN WRITE BLOCK 
GET DUHNY SDI POINTER 
POINT IN COMMAND BLOCK 
MAKE SURE POINTING AT BLOCK 
GET READ COMMAND 
STORE IT 
SET UNIT 

SET NO REVECTORING 

WAIT FOR SECTOR PULSE 

READ SECTOR 

ANY ERROR ? 

YES - TRY RECOVERY 



udafh - uda formatter dmacr xoa.01 23-aug-82 14:02:32 
:nal check overlay (h2) 



58 003202 


104173 








NOV 


59 003203 


102203 


010000 






BIT 


60 003205 


013211 








BEO 


61 003206 


023000 








CALL 


62 003207 


115001 








TST 


63 003210 


053217 








BNE 


64 003211 


104202 


006204 




101$: 


NOV 


65 003213 


022600 








CALL 


66 003214 


106623 


000400 






CNP 


67 003216 


013242 








BEO 


68 003217 


106300 


001477 


001501 


100S: 


CNP 


69 003222 


013226 








BEO 


70 003223 


115400 


001501 






INC 


71 003225 


003164 








BR 


72 003226 


104303 


001502 




1$: 


NOV 


73 003230 


073243 








BNI 


74 003231 


115000 


001500 






TST 


75 003233 


013235 








BEO 


76 003234 


022571 








CALL 


77 003235 


114000 


001501 




3$: 


CLR 


78 003237 


117400 


001502 






DEC 


79 003241 


003164 








BR 


80 003242 








102$: 




81 003242 








2$: 




82 003242 


115405 








INC 


83 003243 


115400 


001246 




YES: 


INC 


84 003245 


106205 


000002 






CNP 


85 003247 


013267 








BEO 


86 003250 


104204 


001114 






NOV 


87 003252 


104203 


001241 






NOV 


88 003254 


021503 








CALL 


89 003255 


114000 


001501 






CLR 


90 003257 


104300 


001500 


001502 




10V 


91 003262 


106300 


001245 


001246 




CNP 


92 003265 


053115 








BNE 


93 003266 


003316 








BR 


94 003267 


102200 


002000 


001220 


FCTCKO: 


BIT 


95 003272 


053315 








BNE 


96 003273 


060022 








XFC 


97 003274 


115400 


001257 






INC 


98 003276 










DUBINC 


99 003303 


104300 


001116 


001114 




NOV 


100 003306 


104300 


001117 


001115 




NOV 


101 003311 


106300 


001261 


001257 




CNP 


102 003314 


053112 








BNE 


103 003315 


000000 






4$: 


RETURN 


104 003316 


104201 


000011 




FCTCKE: 


NOV 


105 0C3320 


104302 


001257 






NOV 


106 003322 


022542 








CALL 



B 12 

86-1 



SEQ 3S2 



(R0),R3 

«ECCF,R3 

101$ 

ECCCK 

R1 

100$ 

fPRnBUF,R2 
CEDC 

RU.EDC(R2),R3 
102$ 

RETRY, THPTRY 
1$ 

TNPTRY 

READ9 

RECTNP.R3 

YES 

RECOV 

3$ 

ERRHND 
TNPTRY 
RECTNP 
READ9 



GET STATUS WORD 
ECC ERROR ? 
NOPE - VERIFY EDC 
CORRECT ECC 
TEST FLAG 
UNCORRECTABLE 
POINT TO BUFFER 
CONPUTE EDC 
O.K. ? 

YUP - CONSIDER GOOD 
NAX ? 

YES - TRY SONE RECOVERY 
INC RETRY COUNT 
DO RETRY 

GET CURRENT ERROR RECOVERY LEVEL 

IF NEGATIVE THEN FRIED 

IS THERE ONLY RECOVERY LEVEL 0 7 

YES - NO NEED TO ISSUE IT - JUST RETRY 

TRY RECOVERY 

FOR INIT 

DECRCNENT IT 

RETRY 



R5 

NEXT1 

#2,R5 

FCTCKD 

«CURBN,R4 

#FCTFNT,R3 

DADO 

TNPTRY 

RECOV, RECTNP 

FCTCPY,NEXT1 

FCTCL1 

FCTCKE 

fBSTGS.FLAG 

4$ 

UPDATE 

FCTCNT 

CURXBN 

CURXBN.CURBN 

CURXBN^I ,CURBN*1 

FCTMPD, FCTCNT 

FCTCLP 

#9.,R1 
FCTCNT. R2 
ERRNNT 



NO - INCREHENT COUNTER 

INCRENENT IT 

FOUND 2 GOOD ONES ? 

YUP - GO TO NEXT BLOCK 

FOR ADD 

FOR ADD 

POINT TO NEXT COPY 
RESET RETRY LEVEL 
DITTO RECOVERY LEVELS 
DONE THIS SECTOR ? 
NO - URITE NEXT FCT COPY 
2 NOT GOOD - TROUBLE 
BEST GUESS "* 

YUP - ONLY CHECK FIRST BLOCK 

LET HOST KNOW STILL ALIVE 

INCRENENT IT 

INCRENENT IT 

GET LOW ORDER 

GET HIGH ORDER 

DONE ? 

NOPE - DO NEXT SECTOR 

.•SIGNAL ERROR 
.•BLOCK FAILED ON 
.•ERROR RETURN 



UDAFH > UDA FORMATTER DNACR X04.01 23-AUG-82 14.02:32 
FINAL CHECK OVERLAY (H2) 



1 
2 












VERIF 


3 
4 


003323 


115400 


001262 


001230 


RCTCK: 


INC 


5 


003325 


104300 


001134 




MOV 




0^3330 


104300 


001135 


001231 




NOV 


7 


003333 


104203 


001472 






nov 


8 


003335 


104204 


001230 






NOV 


9 


003337 


021521 








CALL 


10 


003340 


104300 


001230 


001114 




NOV 


11 


003343 


104300 


001230 


001116 




NOV 


12 


003346 


104300 


001231 


001115 




NOV 


13 


0033S1 


104300 


001231 


001117 




NOV 


U 


003354 


104200 


000001 


001476 




NOV 


15 


003357 


114005 






RCTCLP: 


CLR 


16 


003360 


104050 


001246 




RCTCLI : 


NOV 


17 


003362 


104203 


001053 




NOV 


18 


003364 


104632 


000011 






NOV 


19 


003366 


103202 


177400 






BIC 


20 


003370 


104207 


001424 






NOV 


21 


003372 


100672 


000004 






NOV 


22 


003374 


104632 


000001 






NOV 


23 


003376 


103202 


007777 






BIC 


24 


003400 


100672 


000001 






NOV 


25 


003402 


114002 








CLR 


26 


003403 


100672 


000000 






NOV 


27 


003405 


104204 


001114 






NOV 


28 


003407 


024314 








CALL 


29 


003410 


104207 


000721 






NOV 


30 


003412 


104203 


013400 






NOV 


31 


003414 


104302 


001113 






NOV 


32 


003416 


101023 








BIS 


33 


003417 


100673 


000004 






NOV 


3^ 


003421 


104203 


006204 






NOV 


35 


003423 


100673 


000001 






NOV 


36 


003425 


104303 


001114 






NOV 


37 


003427 


10067? 


000002 






NOV 


38 


003431 


104303 


001115 






NOV 


39 


003433 


105303 


001323 






ADD 


40 


003435 


101203 


000000 






BIS 


41 


003437 


100673 


000003 






NOV 


42 


003441 


104203 


000726 






NOV 


43 


003443 


1 01^673 


000005 






NOV 


44 


00344S 


104207 


000721 




REA010: 


NOV 


45 


003447 


104203 


100000 






NOV 


46 


003451 


100173 








NOV 


47 


003452 


104302 


000740 






NOV 


48 


003454 


101207 


100000 






BIS 


49 


003456 


060012 








XFC 


50 


003457 


060002 








XFC 


51 


003460 


115001 








TST 


52 


003461 


053477 








BNE 


53 


003462 


104173 








NOV 


54 


003463 


102203 


010000 






BIT 


55 


003465 


013471 








BEO 


56 


003466 


023000 








CALL 


57 


003467 


115001 








TST 



C 12 

PAGE 87 



SEO 353 



t RCT 



RCTLBN 

LBNLBN.HOLO 

LBNLBN^I ,H0LD«1 

#T0TRCT.R3 

#H0LD,R4 

DSUB 

HOLD,CURBN 

HOLD,CURLBN 

HOLO^I ^CURBN^I 

H0LD«1«CURLBN«1 

«1, COUNT 

R5 

R5,NEXT1 

«SCR,R5 

LBNTRK(R3),R2 

fHIBYTE,R2 

fCONBLK.RO 

R2,V3(r6) 

STCYL(R3),R2 

«L0.R2 

R2«VU1(R0) 

R2 

R2,V1(R0) 
#CURBN,R4 

CS1 

#ROBLK«RO 
«RUCND,R3 
CURTRK,R2 
R2,R3 

R3,RU.CND(R0) 

«PRflBUF«R3 

R3«RU.BUF(R0) 

CURBN,R3 

R3.RII.LOy(R0) 

CURBN«1,R3 

ST.L6N,R3 

fH0.LBN,R3 

R3«Ry.HI<R0) 

fHSLIN-1,R3 

R3«RU.0UN(R0) 

#ROBLK.RO 

#R0CND,R3 

R3«(R05 

UHIJM 

fBIT15,R0 

SIP 

READ 

R1 

100S 

(R0),R3 

fECCF,R3 

101S 

ECCCK 

R1 



.-CHECK NON-PAD PLUS NULL BLOCK 
;GET LOW ORDER COUNT OF LbN'S 
;GET HIGH ORDER 
:FOR SUBTRACT 
.-DITTO 

;GET STARTING RCT LBN 

;GET STARTING RCT BLOCK NUNBER 

:ALSO SAVE 

;GET HIGH ORDER 

:AND SAVE 

: CLEAR ERROR COUNTER 

;INIT COPY COUNT 

;POINT TO CHARACTERISTICS 

;GET LBN/TRArK 

; CLEAR HIGH BYTE 

; POINT TO CONVERT BLOCK 

;FOR CONVERT 

.•STARTING CLYLINDER 

.•CLEAR REST OF WORD 

.•STORE 

;FOR STORE 

;LOU ORDER ALWAYS ZERO 

;FOR CONVERT 

.•CONVERT AND SEEK 

.POINT TO CONNAND BLOCK 

;GET READ COHPMND 

:GET CURRENT TRACK 

:SET TRACK FOR WRITE 

: STORE IN CONNAND BLOCK 

:POINT TO BUFFER 

.•STICK IN CONNAND BLOCK 

.•GET LOU ORDER HEADER 

: STORE IN URITE BLOCK 

:GET HIGH ORDER 

.ADD STARTING LBN BITS 

.SET HEADER 

.STORE IN URITE BLOCK 

:GET DUNHY SDI POINTER 

;POINT IN CONNAND BLOCK 

.NAKE SURE POINTING AT BLOCK 

;GET STATUS UORD 

.•STORE IT 

.•SET UNIT 

;SET NO REVECTORING 

:UAIT FOR SECTOR PULSE 

:URITE SECTOR 

;ANY ERROR ? 

;YES - TRY RECOVERY 

.GET STATUS UORD 

:ECC ERROR ? 

.NOPE - VERIFY EDC 

.CORRECT ECC 

.TEST FLAG 



'JDAfH - UOA FORHATTER OHACR X04.01 23-AU6-82 U:02:32 
FINAL CHECK OVERLAY (H2) 



58 003A70 


053477 








BNE 


59 003471 


104202 


006204 




10U: 


NOV 


60 003473 


022600 








CALL 


61 003474 


106623 


000400 






CHP 


62 003476 


013522 








BEQ 


63 003477 


106300 


001477 


001501 


loot: 


CNP 


64 003502 


013506 








BEQ 


6S 003S03 


115400 


001501 






INC 


66 003505 


003445 








BR 


67 003506 


104303 


U01502 




IS: 


NOV 


68 003510 


073523 








BNi 


69 003511 


115000 


001500 






TST 


70 003513 


013515 








BEO 


71 003514 


022571 








CALL 


72 003515 


114000 


001501 




3$: 


CLR 


73 003517 


117400 


001502 






DEC 


74 003521 


003445 








BR 


75 003522 








102$: 




76 003522 








2S: 




77 003522 


115405 








INC 


78 003523 


115400 


001246 




RCTN60: 


INC 


79 003525 


114000 


001501 






CLR 


80 003527 


104300 


001500 


001502 




NOV 


81 003532 


106205 


000002 






CNP 


82 003534 


013554 








BEQ 


83 001535 


104204 


001114 






NOV 


84 003537 


104203 


001243 






NOV 


85 003541 


021503 








CALL 


86 003542 


114000 


001501 






CLR 


87 003544 


104300 


001500 


001502 




NOV 


88 003547 


106300 


001245 


001246 




CNP 


89 003552 


053362 








BNE 


90 003553 


003577 








BR 


91 003554 


060022 






RCTCKO: 


XFC 


92 003555 


115400 


001476 






INC 


93 0C3557 










DUBINC 


94 003564 


104300 


001116 


001114 




NOV 


95 003567 


104300 


001117 


001115 




NOV 


96 003572 


106300 


001262 


001476 




CNP 


97 003575 


053357 








BNE 


98 003576 


000000 








RETURN 


99 003577 


104201 


000013 




RCTCKE: 


NOV 


ICO 003601 


104302 


001476 




NOV 


101 003603 


022542 








CALL 



0 12 

87-1 



SEO 3S4 



100$ 

#PRHBUF.R2 
CEDC 

RU.EDC(R2),R3 
102t 

RETRY, TNPTRY 
IS 

TNPTRY 

READ10 

RECTNP.RS 

RCTN6D 

RECOV 

3S 

ERRHND 
TNPTRY 
RECTNP 
READ10 



R5 

NEXT1 
TNPTRY 

RECOV.RECTNP 

«2,R5 

RCTCKO 

#CURBN,R4 

#RCTFNT,R3 

OADD 

TNPTRY 

RECOV,RECTNP 

FCTCPY.NEXT1 

RCTCL1 

RCTCKE 

UPDATE 

COU'iJ 

CUiKLBN 

CURLBN^CURBN 
CURLBN4>UCURBN«1 
RCTLBN,COUNT 
RCTCLP 

#11., R1 
COUNT, R2 
ERRNNT 



UNCORRECTABLE 
POINT TO BUFFER 
CONPUTE EOC 

OK "* 

YUP'-' CONSIDER GOOD 
NAX ? 

YES - TRY SONE RECOVERY 
INC RETRY COUNT 
DO RETRY 

GET CURRENT ERROR RECOVERY LEVEL 

IF NEGATIVE SKIP GOOD INCRENENT 

IS THERE ONLY RECOVERY LtfVEL 0 ? 

YES - NO NEED rO ISSUE IT - JUST RETRY 

TRY RECOVERY 

FOR I NIT 

DECRENENT IT 

RETRY 



:YUP - INCRENENT COUNTER 
.•INCRCNENT IT 
:FOR RESET 

;6ET RECOVERY LEVELS 
;FOUND 2 GOOD ONES ? 
;YUP - 60 TO NEXT BLOCK 
:F0R ADD 
;F0R ADD 

.'POINT TO NEXT COPY 

: RESET RETRY LEVEL 

; DITTO RECOVERY LEVELS 

;DONE THIS SECTOR ? 

;N0 - READ NEXT FCT COPY 

;2 NOT GOOD - TROUBLE 

;LET HOST KNOy STILL ALIVE 

; INCRENENT IT 

.INCREMENT IT 

;GET LOU ORDER 

;6ET NIGH ORDER 

.-DONE ? 

;NOPE - DO NEXT SECTOR 

;SET ERROR CODE 
:RCT BLOCK FAILED ON 
.ERROR RETURN 
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1 

2 












VERIF 


3 
4 


003604 


114000 


001450 




VERHO: 


CLR 


5 


003606 


114000 


001116 






CLR 


6 


003610 


114000 


001117 






CLR 


7 


003612 


114000 


001120 






CLR 


8 


003614 


114000 


001121 






CLR 


9 


003616 


10420C 


006621 


001471 




HOV 


10 


003621 


104207 


001053 






NOV 


11 


003623 


104670 


000002 


001461 




NOV 


12 


003626 


103200 


177400 


001461 




BIC 


13 


003631 


114000 


001460 






CLR 


U 


003633 


104207 


001053 






NOV 


15 


003635 


104673 


000003 






NOV 


16 


003637 


103203 


177400 






BIC 


17 


003641 


104030 


001462 






NOV 


18 


003643 


114000 


001113 






CLR 


19 


003645 


104673 


000000 






NOV 


20 


003647 


104030 


001126 






NOV 


21 


003631 


104673 


000001 






NOV 


22 


003653 


104030 


001127 






NOV 


23 


003655 


104300 


001130 


001451 


4S: 


NOV 


24 


003660 


104300 


001126 


001077 


NOV 


25 


003663 


104300 


001127 


001100 




NOV 


26 


003666 


104300 


001460 


001101 




NOV 


27 


003671 


022242 








CALL 


28 


003672 


115001 








TST 


29 


003673 


073334 








BNI 


30 


003674 


104302 


000740 




2S: 


NOV 


31 


003676 


104207 


000721 






NOV 


32 


003700 


104203 


006204 






NOV 


33 


003702 


100673 


000001 






NOV 


34 


003704 


104303 


001116 






NOV 


35 


003706 


100673 


000002 






NOV 


36 


003710 


104303 


001117 






HOV 


37 


003712 


105303 


001325 






ADD 


38 


003714 


101203 


120000 






BIS 


39 


003716 


100673 


000003 






NOV 


40 


003720 


104203 


013400 




5S: 


NOV 


41 


003722 


101303 


001113 






BIS 


42 


003724 


100673 


000004 






NOV 


43 


003726 


104203 


000726 






NOV 


44 


003730 


100673 


000005 






NOV 


45 


003732 


104207 


100721 






NOV 


46 


003734 


104203 


100000 






NOV 


47 


003736 


100673 


000000 






NOV 


48 


003740 


060012 








XFC 


49 


003741 


060002 








XFC 


50 


003742 


115001 








TST 


51 


003743 


014023 




001221 




BEQ 


52 


003744 


102200 


010000 




BIT 


53 


003747 


053766 








BNE 


54 


003750 


104207 


000721 






NOV 


55 


003752 


104673 


000003 






NOV 


56 


003754 


103203 


170000 






BIC 


57 


003756 


101203 


110000 






BIS 



E 12 

PAGE 88 



SEQ 355 



1 ALL HEADS ARE ACCESSIBLE 



ERRCNT 

CURXBN 

CURXBN^I 

STASEC 

STASEC^I 

raOLST.CURPNT 

#scr,r6 

grpcyl(ro),grpcnt 
#hibyte,grpcnt 

CURGRP 

fSCR^RO 

TRICGRP(R0).R3 

#HIBYTE.R3 

R3,TRKCNT 

CURTRK 

CYLBN(R0),R3 

R3,CYLNUn 

CYLBN*1(R0),R3 

R3,CYLNUN^1 

SECTRK.SECCNT 

CYLNUNJSEEK^l 

CYLNUN^1,ISEEK^2 

CURGRP. ISEEK^S 

SEEK 

R1 

SKERR 

UNIT,R2 

fRDBLK.RO 

«PRNBUF,R3 

R3,RU.BUF(R0> 

CURXBN, R3 

R3,RU.L0U(R0) 

CURXBN^1,R3 

ST.XBN,R3 

fHD.XBN.RS 

R3,RU.HI(R0) 

#RWCND,R3 

CURTRK «R3 

R3,RU.CW><R0> 

mLIN-UR3 

R3,RU.DUN(R0) 

f<BIT15!RDBLK>,R0 

#RDCN0,R3 

R3,RW.STAT(R0) 

SIP 

READ 

R1 

3$ 

«BDTST,FLA61 
IS 

fRDBLK.RO 
RW.HI(R0).R3 
#H0.CLR,R3 
fHD.BAD,R3 



.-CLEAR ERROR COUNT 

; CLEAR SECTOR NUNBER LOW 

.•CLEAR SECTOR NUNBER HIGH 

.•CLEAR STARTING SECTOR LOW 

.•CLEAR STARTING SECTOR HIGH 

; STORE POINTER TO BAD LIST 

;POINT TO CHARACTERISTICS BLK 

.LOAD GROUPS/CYL 

.•CLEAR OUT HIGH GARBAGE 

.•CLEAR GROUP NUNBER 

.•POINT TO CHARACTERISTICS BLOCK 

.•LOAD TRACKS/GROUP 

.•CLEAR OUT HIGH GARBAGE 

.•STORE IN COUNTER 

.•RESET CURRENT TRACK NUNBER 

;GET STARTING XBN CYLINDER 

.•STORE IT 

;GET CIGH ORDER 

.•STORE IT 

.-LOAD SECTORS/TRACK 

:G£T LO ORDER VORD OF CYLINDER NUNBER 

.•LOAD HIGH ORDER UORD OF CYL NUN 

.'LOAD GROUP NUNBER 

.'SEEK TO CURRENT CYL NUN 

;ANY ERRORS ? 

;YUP - QUIT 

:$DI INTERCONNECT 

; POINT TO READ CONNAND BLOCK 

.BUFFER POINTER 

: STORE IT 

:GET LOW RODER BLOCK NUNBER 
.•STORE IN CONNAND BLOCK 
.•LOAD HIGH ORDER BLOCK NUNBER 
.ADD STARTING XBN BITS 
;SET IN HEADER CODE 
.•STORE IN CONNAND BLOCK 
;6ET READ CONNAND 
;SET IN TRACK NUNBER 
.•STORE IN CONNAD BLOCK 
.POINTER TO DUNNY SDI BLOCK 
.•STORE IT IN READ BLOCK 
.•NAKE SURE POINTING AT BLOCK 
.•RESET STATUS POINTER 
; STORE IT BACK 

;SYNCH WITH SECTOR/INDEX PULSE 

.•READ 1 SECTOR 

;ANY ERROR ? 

;N0 - THIS HEAD O.K. 

.•HAVE WE TESTED BAD HEADER CODE ? 

:YUP - DON'T TRY AGAIN 

.•POINT TO READ CONTROL BLOCK 

.-GET HEADER WORD 

.•CLEAR HEADER 

;SET IN BAD HEADER CODE 
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58 003760 


100673 

1 www V 


000003 

wwwww^ 






NOV 


59 003762 


101200 


010000 

W 1 www w 


001221 

WW I ^ k ■ 




BIS 


60 00376S 


003720 




001221 

WW ■ ■ 


IS: 


BR 

W"' 


61 003766 


103200 

1 wvw w 


010000 

w 1 www 


BK 


62 003771 








OUBINC 


63 003776 


117400 


001451 






DEC 


6A OOACOO 


053674 








BNE 


65 004001 


104307 


001471 






nov 


66 004003 


104303 


001120 






NOV 


67 004005 


100273 








MOV 


68 004006 


104303 


001121 






nov 


69 004010 


100273 








NOV 


70 004011 


104303 


001460 






MOV 


71 004013 


100273 








NOV 


72 004014 


104303 


001113 






NOV 


73 004016 


100273 








NOV 


74 004017 


104070 


001471 






NOV 


75 004021 


115400 


001450 






INC 


76 004023 


103200 


010000 


001221 


3S: 


BIC 


77 004026 


115400 


001113 






INC 


78 004030 


104300 


001130 


0C0736 




NOV 


79 004033 


114000 


000737 






CLR 


80 004035 


104203 


000736 






NOV 


81 004037 


104204 


001120 






NOV 


82 004041 


021503 








CALL 


83 004042 


104300 


001120 


001116 




NOV 


84 004045 


104300 


001121 


001117 




NOV 


85 004050 


104300 


001130 


001451 




NOV 


86 004053 


117400 


001462 






DEC 


87 004055 


053674 








BNE 


88 004056 


060022 








XFC 


89 004057 


115400 


001460 






INC 


90 004061 


104207 


001053 






NOV 


91 004063 


104673 


000003 






NOV 


92 004065 


103203 


177400 






BIC 


93 004067 


104030 


001462 






NOV 


94 004071 


114000 


001113 






CLR 


?5 004073 


117400 


001461 






DEC 


96 004075 


053660 








BNE 


97 004076 


115000 


001450 






TST 


98 004100 


014305 








BEQ 


99 004101 


104205 


006621 






NOV 


100 004103 


104250 


001120 




14S: 


NOV 


101 004105 


104250 


001121 






NOV 


102 004107 


104250 


001460 






NOV 


103 004111 


104250 


001113 






NOV 


104 004113 


104203 


001053 






NOV 


105 004115 


104670 


000021 


001455 




NOV 


106 004120 


117400 


001455 






DEC 


107 004122 


104300 


001132 


000736 


13S: 


NOV 


108 004125 


114000 


000737 






CLR 


109 004127 


104203 


000736 






NOV 


110 004131 


104204 


001120 






NOV 


111 004133 


021503 


001130 






CALL 


112 004134 


104300 


001451 




NOV 


113 004137 


104300 


001120 


001116 




NOV 


114 004142 


104300 


001121 


001117 




NOV 



F 12 

88-1 



S£Q 356 



R3«RW.HI(R0) 
«6DTST,FLAG1 
5S 

«BDTST,FLA61 
CURXBN 
SECCNT 
2S 

CURPNT,RO 

STASEC,R3 

R3,(R0)t 

STASEC*1,R3 

R3«(R0)* 

CURGRP,R3 

R3,(R0)^ 

CURTRK,R3 

R3,(R0)* 

RO.CURPNT 

ERRCNT 

#BDTST,fLAG1 

CURTRK 

SECTRK.TENP 

TENP*1 

fTENP.R3 

#STASEC,R4 

DADD 

ST ASEC, CURXBN 

STASEC^I.CURXBN^I 

SECTRK, SECCNT 

TRKCNT 

2S 

UPDATE 

CURGRP 

fSCR.RO 

TRKGRP(RO) ,R3 

fHIBYTE.RS 

R3,TRKCNT 

CURTRK 

6RPCNT 

4S 

ERRCNT 
15$ 

«BDLST,R5 
(R5)«,STASEC 
<R5)*,STASEC*1 
(RS)*, CURGRP 
(RS)*, CURTRK 
#SCR,R3 

XBNCYL(RO>,CNTCYL 

CNTCYL 

SECTCY.TENP 

TENP+1 

#TEHP,R3 

#STASEC,R4 

DADD 

SECTRK, SECCNT 
STASEC« CURXBN 
STASEC^UCURXBN^I 



STORE IT BACK 

SET THAT WE TRIED BAD HEADER CODE 

AND TRY READ AGAIN 

CLEAR BAD HEADER TESTED FLAG 

INCRENENT CURRENT SECTOR 

DECREMENT SECTOR/TRACK COUNT 

TRY IT AGAIN WITH NEXT SECTOR 

POINTER TO INFO BLOCK 

STORE STARTING SECTOR NUNBER 

IN INFO BLOCK 

GET HIGH ORDER 

STORE IT 

GET CURRENT GROUP 
STORE IT 

GET CURRENT TRACK 
STORE IT 

STORE POINT BACK 

INCRENENT ERROR COUNT 

CLEAR FLAG IN CASE IT WAS SET 

DO NEXT TRACK 

FOR ADD 

DITTO 

SET UP 

DITTO 

GET NEU STARTING SECTOR 

RESET CURRENT SECTOR 

RESET HIGH ORDER 

RESET SECTORS/TRACK 

DECRENENT COUNT OF TRACKS 

IF NOT DONE - DO NEXT TRACK 

LET HOST KNOy VE'RE ALIVE 

ELSE INCRENENT GROUP NUNBER 

POINT TO CHARACTERISTICS BLOCK 

LOAD TRACKS/GROUP 

CLEAR OUT HIGN GARBAGE 

STORE IN COUNTER 

RESET TRACK NUNBER 

DONE ALL GROUPS ? 

NO - DO NEXT GROUP 

ANY PRQBLENS ? 

NOPE - FINISHED 

POINT 70 BAD LIST 

GET STARTING SECTOR NUNBER 

GET HIGH ORDER 

GET GROUP NUNBER 

GET TRACK NUNBER 

POINT TO CHARACTERISTICS 

GET NUNBER OF XBN CYLINDERS 

DECRENENT FOR ONE ALREADY DONE 

FOR ADD 

CLEAR HIGH ORDER 
SET UP FOR ADD 
DITTO 

GET SECTOR NUNBER ON NEXT CYLINDER 
RESET SECTOR COUNT 
RESET SECTOR NUNBER 
RESET HIGH ORDER 
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IIS 004U5 










DUBINC 


116 004152 


104300 


001126 


001077 




NOV 


117 004155 


104300 


001127 


001100 




NOV 


118 004160 


104300 


001460 


001101 




NOV 


119 004163 


022242 








CALL 


120 004164 


115001 








TST 


121 004165 


073334 








BHI 


122 004166 


104302 


000740 




IIS: 


NOV 


123 004170 


104207 


000721 






NOV 


124 004172 


104203 


006204 






NOV 


125 004174 


100673 


000001 






NOV 


126 004176 


104303 


001116 






NOV 


127 004200 


100673 


000002 






NOV 


128 004202 


104303 


001117 






NOV 


129 004204 


105303 


001325 






ADO 


130 004206 


101203 


120000 






BIS 


131 004210 


100673 


000003 






NOV 


132 004212 


104203 


013400 




16$: 


NOV 


133 004214 


101303 


001113 






BIS 


134 004216 


100673 


000004 






NOV 


135 004220 


104203 


000726 






NOV 


136 004222 


100673 


000005 






NOV 


137 004224 


104207 


100721 






NOV 


138 004226 


104203 


100000 






NOV 


139 004230 


100673 


000000 






NOV 


140 004232 


060012 








XFC 


141 004233 


060002 








XFC 


142 004234 


115001 








TST 


143 00423S 


014277 








3E0 


14i^ 004236 


102200 


010000 


001221 




BIT 


145 004241 


054260 








BNE 


146 004242 


104207 


000721 






NOV 


147 004244 


104673 


000003 






NOV 


148 004246 


103203 


170000 






BIC 


149 004250 


101203 


110000 






BIS 


150 004252 


100673 


000003 






NOV 


151 004254 


101200 


010000 


001221 




BIS 


152 004257 


004212 








BR 


153 004260 


103200 


010000 


001221 


17$: 


BIC 


154 004263 










DUeiNC 


155 004270 


117400 


001451 






DEC 


156 004272 


054166 








BNE 


157 004273 


117400 


001455 






DEC 


158 004275 


014306 








BEO 


159 004276 


004122 








BR 


160 004277 


103200 


006621 


001221 


10S: 


BIC 


161 004302 


117400 


001450 






DEC 


162 004304 


054103 








BNE 


163 004305 


000000 


003232 




15S: 


RETURN 


164 004306 

165 004310 


104207 




12S: 


NOV 


104201 


000040 






NOV 


166 004312 


060016 








XFC 


167 004313 


004305 








BR 



G 12 

88>2 



SEO 357 



CYLNUN 

CYLNUN,ISFEK*1 

CYLNUN^1,iSEEK*2 

CURGRP.ISEEK*3 

SEEK 

R1 

SKERR 

UNIT.R2 

fRDBLK.kO 

#PRHBUF.R3 

R3,RU.BUF(R0) 

CURXBN,R3 

R3,RU.L0U(R0) 

CURXBN«^1.R3 

ST.XBN,R3 

#HD.XBN,R3 

R3,RU.HI(R0) 

«RUCND,R3 

CyRTRK,R3 

R3,RU.CN0(R0) 

fHSLIN-1 ,R3 

R3,RU.DUN(R0) 

#<BIT15!RDBLK>,R0 

#RDCND,R3 

R3.RU.STAT(R0) 

SIP 

READ 

R1 

10$ 

«6DTST,FLAG1 
17$ 

#ROBLK«RO 

RW.NI(R0).R3 

fHD.CLR,R3 

#HD.BA0,R3 

R3,R1I.HI(R0) 

fSDTST.FLAGI 

16$ 

«B0TST,FLA61 
CURXBN 
SECCNT 
11$ 

CNTCVL 

12$ 

13$ 

«80LST,FUG1 

ERRCNT 

14$ 

fWRN.RO 
fWRNLN,R1 
NAINTR 
15$ 



INCRCNENT CYLINDER NUNBER 

GET LO ORDER WORD OF CYLINDER NUNBER 

LOAD HIGH ORDER WORD OF CYL NUN 

LOAD GROUP NUNBER 

SEEK TO CURRENT CYL NUN 

ANY ERRORS ? 

YUP - QUIT 

SOI INTERCONNECT 

POINT TO READ CONHAND BLOCK 

BUFFER POINTER 

STORE IT 

GET LOU ROOER BLOCK NUNBER 
STORE IN CONNAND BLOCK 
LOAD HIGH ORDER BLOCK NUNBER 
ADD STARTING XBN BITS 
SET IN XBN HEADER CODE 
STORE IN CONNAND BLOCK 
GET READ CONNAND 
SET IN TRACK NUNBER 
STORE IN CONNAO BLOCK 
POINTER TO DUNNY SOI BLOCK 
STORE IT IN READ BLOCK 
NAKE SURE POINTING AT BLOCK 
RESET STATUS POINTER 
STORE IT BACK 

SYNCH WITH SECTOR/INDEX PULSE 

READ 1 SECTOR 

ANY ERROR ? 

NO - THIS HEAD O.K. 

HAVE WE TESTED BAD HEADER CODE ? 

YUP - OON*T TRY AGAIN 

POINT TO READ CONTROL BLOCK 

GET HEADER UORO 

CLEAR HEADER 

SET IN BAD HEADER CODE 

STORE IT BACK 

SET THAT UE TRIED BAD HEADER CODE 

AND TRY READ AGAIN 

CLEAR BAD HEADER TESTED FLAG 

INCRENENT CURRENT SECTOR 

DECRENENT SECTOR/TRACK COUNT 

TRY IT AGAIN WITH NEXT SECTOR 

DECRENENT CYLINDER COUNT 

FAILED ON ALL SECTORS - SEND UARNING 

TRY NEXT CYLINDER 

CLEAR FLAG IN CASE IT WAS SET 

DECRENENT ERROR COUNT 

CONTINUE TILL DONE ALL 

ALL DONE RETURN 

ADDRESS OF UARNING 

LENGTH OF UARNING 

SEND IT 

RETURN 



H 12 
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1 
2 
3 
A 



5 0043U 


104207 


001424 




rsi: 


NOV 


6 004316 


104143 








NOV 


r 004317 


100673 


000002 






NOV 


8 004321 


104643 


000001 






NOV 


9 004323 


103203 


170000 






BIG 


10 004325 


100673 


000003 






NOV 


11 004327 


104201 


001053 






NOV 


12 004331 


060020 








XFC 


13 004332 


104670 


000011 


001113 




NOV 


14 004335 


104670 


000006 


001077 




NOV 


15 004340 


104C70 


000007 


001100 




NOV 


16 004343 


104670 


000010 


001101 




NOV 


17 004346 


022242 








CALL 


18 004347 


115001 








TST 


19 004350 


054352 








BNE 


20 004351 


000000 








RETURN 


21 004352 


104201 


000012 




CKR1 : 


NOV 


22 004354 


104207 


001424 






NOV 


23 004356 


104672 


000006 






NOV 


24 004360 


022542 








CALL 



25 
26 
27 



CONVERT BLOCK NUHBER TO PF 
R4 -> BLOCK NUHBER 

«CONBLK,R0 
(R4).R3 
R3,V2(R0) 
1(R4),R3 
«H0.CLR,R3 
R3,V2*1(R0) 
#SCR«R1 
CVT 

TRK(R0),CURTRK 
CYL(R0)-ISEEK*1 
CYL*1(R0),IS£EK*2 
GRP(R0),ISEEK«3 
SEEK 
R1 

CKR1 

#10., R1 
«CONBLK,RO 
CYL(R0),R2 
ERRNNT 



CAL ADDRESS AND SEEK 



; POINT TO CONVERT BLOCK 

.-GET LOW ORDR 

.•STORE IT 

;HI6H ORDER 

.•CLEAR HEADER 

.STORE IT 

.•POINT TO SUBUNIT CHARACTERISTICS 

.CONVERT IT 

;6ET TRACK NUNBER 

.-LOW ORDER XYLINDER 

.•HIGH ORDER CVLINDR 

.•GROUP NUNBER 

:D0 SEEK 

:ANV ERROR 

;YUP 

.-SEEK ERROR 
.•CONVERT BLOCK 
; CYLINDER FAILD ON 
.•ERROR RETURN 
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FCT yRITE OVERLAY (F9) 



1 
2 
3 
A 
5 
6 



004361 



.S8TTL 
DMOVLY 

URITE Af 



7 003C23 


104200 


000030 


001154 


FCTURT: 


NOV 


6 003026 


1 14005 








CLR 


9 003027 


104050 


001246 






NOV 


10 003031 


104204 


001257 






NOV 


11 003033 


104203 


001463 






NOV 


12 00303S 


021521 








CALL 


13 003036 


104305 


001254 






NOV 


14 003040 


104303 


001144 




FCTRLP: 


NOV 


15 003042 


104207 


001424 






NOV 


16 003044 


100673 


000000 






NOV 


17 003046 


104303 


001145 






NOV 


16 0030SO 


100673 


000001 






NOV 


19 003052 


104303 


001130 






NOV 


20 003054 


100673 


000004 






NOV 


21 003056 


022665 








CALL 


22 003057 


104207 


000721 






NOV 


23 003061 


104203 


122400 






NOV 


24 003063 


104302 


001113 






NOV 


25 003065 


101023 








BIS 


26 003066 


100673 


000004 






NOV 


27 003070 


104052 








NOV 


28 003071 


022600 








CALL 


29 003072 


100623 


000400 






NOV 


30 003074 


100672 


000001 






NOV 


31 003076 


104143 








NOV 


32 003077 


100673 


000002 






NOV 


33 003101 


104643 


000001 






NOV 


34 003103 


105303 


001325 






ADO 


35 003105 


101203 


120000 






BIS 


36 003107 


100673 


000003 






NOV 


37 003111 


104203 


000726 






NOV 


38 003113 


100673 


000005 






NOV 


39 003115 


104303 


001321 




WRITE5: 


NOV 


40 003117 


104304 


001322 






NOV 


41 003121 


104302 


000740 






NOV 


42 003123 


104207 


000721 






NOV 


43 003125 


101207 


100000 






BIS 


44 003127 


060012 








XFC 


45 003130 


060003 








XFC 


46 003131 


115001 








TST 


47 003132 


013157 








BEO 


48 003133 


106300 


001477 


001501 




CNP 


49 003136 


013142 








BEQ 


50 003137 


115400 


001501 






INC 


51 003141 


003115 








BR 


52 003142 


104303 


001502 




1$: 


NOV 


53 003144 


073156 








BNI 


54 003145 


115000 


001500 






TST 


55 003147 


013151 






BEQ 


56 0031 SO 


022571 








CALL 


57 003151 


114000 


001501 




3$: 


CLR 



FOR INIT 

CLEAR ERROR COUNTER 
INIT NEXT COPY COUNTER 
POINT TO FCT BLOCK NUNBER 

FOR sue 

SUB TO GET RIGHT ONE 
GET BUFFER POINTER 
GET LBN CYLINDERS 
POINT TO CONVERT BLOCK 
STORE FOR CONVERT 
GET HIGH ORDER 
STORE IT 

GET SECTORS/TRACK 
STORE IT 

CONVERT AND SEEK 

POINT TO CONNAND BLOCK 

GET yRITE CONNAND 

GET CURRENT TRACK 

SET TRACK FOR WRITE 

STORE IN CONNAND BLOCK 

POINT TO BUFFER 

COMPUTE EDC - RETURNED IN R3 

STORE IT 

STICK IN CONNAND BLOCK 
GET LOW ORDER HEADER 
STORE IN WRITE BLOCK 
GET HIGH ORDER 
ADD STARTING XBN BITS 
SET HEADER 
STORE IN URITE BLOCK 
GET DUHNV SDI POINTER 
POINT IN CONNAND BLOCK 
GET HEADER PREAMBLE 
GET DATA PREMBLE 
SET UNIT 

NAKE SURE POINTING AT BLOCK 

SET NO RVECTORING 

WAIT FOR SECTOR PULSE 

WRITE SECTOR 

ANY ERROR ? 

NOPE 

NAX "* 

YES - TRY SQNE RECOVERY 
INC RETRY COUNT 
00 RETRY 

GET CURRENT ERROR RECOVERY LEVEL 
IF NEGATIVE THEN FRIED 
IS THERE ONLY RECOVERY LEVEL 0 ? 
YES - NO NEED TO ISSUE IT - JUST RETRY 
TRY RECOVERY 
:FOR INIT 
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UOAFN > UOA FORMATTER DHACR X04.01 23>AU6-82 U:02:32 PAGE 90>1 



FCT WRITE OVERLAY (F9) 












S8 0031 S3 


117400 


001 50? 






DEC 


DFCTMP 


59 0031 S5 


003115 








BR 


UNITES 


60 003156 














61 003156 


115405 










R5 


62 003157 


115400 






r wyuwir • 


INC 


NEXTI 


63 003161 


114000 


001 SOI 








TMPTRY 


64 003163 


104300 


001 500 


001 502 

WW 1 ^wc 




MOV 

nv w 


DPrnv RFCTMP 


65 003166 


104204 


001257 






MOV 

n V w 


fFCTCNT R4 


66 003170 


104203 


001241 






MOV 


fFCTFHT R3 


67 003172 


021503 








CALL 


DADD 


68 003173 


106300 


001245 


001246 




CMP 


FCTCPY NEXT1 

rwlV* ■ #WbAI 1 


69 003176 


053040 










FCTRLP 


70 003177 


106305 


001245 

WW 1 






CMP 


FCTCPY RS 


71 003201 


013223 








Ob w 


FCUERR 


72 003202 


104303 


001246 

WV 1 b~ W 




FCFXLP: 


MOV 

nw w 


MFXTI R3 

f«b A 1 1 # n ^ 


73 0O320A 


013215 








Ob V 


r w 1 www 


74 003205 


104204 


001257 






NOV 

nv w 


#FCTCMT R4 


75 003207 


104203 


001241 






MOV 


#FCTFMT R3 


76 003211 


021521 








CALL 


V4WO 


77 003212 


117400 


001246 

VV 1 b • V 






DEC 

Vb W 


NEX11 

■vb n < 1 


78 003214 


003202 






BR 


FCFXLP 


79 003215 








FUTDON: 


DUBINC 


FCTCNT 


80 003222 


000000 








RETURN 




81 003223 


104012 






FCUERR: 


MOV 


R1,R2 


82 003224 


104201 


000017 






MOV 


#15. .R1 


83 003226 


022542 








CALL 


ERRMNT 



; DECREMENT IT 
; RE TRY 

;YUP - INCREMENT COUNTER 
:INCREMf:NT IT 
;FOR RESET 

:6ET RECOVERY LEVELS 
;FOR ADD 
;FOR ADD 

.•POINT TO NEXT COPY 

;DONE THIS SECTOR ? 

;N0 • URITc NEXT FCT COPY 

: ERROR ON EVERY WRITE ? 

:YUP -BIG TROUBLE 

;ANY REAPEATS ? 

:N0 

: TO GET IT BACK 
.•DITTO 

:SUB IT 
.•REPEAT 

;PUT BACK THE WAY IT WAS 

;XFC ERMOR CODE 
;RCT WRITE ERROR 
.ERROR RETURN 



UOAFN > UOA FORMATTER DHACR X04.01 23-AUG-8? 14:02:32 
PBN>>D,X,L,RBN CONVERSION OVERLAY (GS) 



1 










.SBTTL 


2 


003227 








DMOVLY 


J 
4 








* 


CONVERT 


5 
6 


003023 


103200 


170000 001112 


PCON: 


BIC 


7 


003C26 


104203 


001155 




MOV 


8 


003030 


104204 


001 1 1 1 




NOV 


9 


003032 


021623 






CALL 


10 


003033 


033117 






BPL 


11 


003034 


021521 






CALL 


12 


003035 


104203 


001140 




NOV 


13 


003037 


021623 






CALL 


14 


003040 


013042 






BEQ 


15 


003041 


033073 






BPL 


16 


003042 


104204 


001111 


DBNfNO: 


NOV 


17 


003044 


104203 


001140 




NOV 


18 


003046 


021521 






CALL 


19 


003047 


023250 






CALL 


20 


003050 


104203 


001130 




NOV 


21 


003052 


104204 


001111 




NOV 


22 


003054 


021537 






CALL 


23 


003055 


104203 


000731 




NOV 


24 


003057 


021503 






CALL 


25 


003060 


104641 


000001 




NOV 


26 


003062 


105301 


001326 




ADD 


Z'f 


003064 


103201 


170000 




BIC 


26 


003066 


101201 


140000 




BIS 


59 


003070 


104010 


001112 




NOV 


50 


U03072 


003241 






BR 


31 


003073 


023250 




XBNFND: 


CALL 


32 


00307<» 


104203 


001130 




NOV 


33 


003076 


104204 


001111 




NOV 


34 


003100 


021537 


000731 




CALL 


35 


003101 


104203 




NOV 


36 


003103 


021503 






CALL 


37 


003104 


104641 


000001 




NOV 


38 


003106 


105301 


001325 




ADD 


39 


003110 


103201 


170000 




BIC 


40 


003112 


101201 


120000 




BIS 


41 


003114 


104010 


001112 




NOV 


42 


003116 


003241 






BR 


43 








'. 




44 
45 


003117 


023250 




LRBN: 


CALL 


46 


003120 


104205 


001053 




NOV 


47 


003122 


104653 


000011 




NOV 


48 


003124 


103203 


177400 




BIC 


49 


003126 


104201 


000731 




NOV 


50 


003130 


104114 






NOV 


51 


003131 


106043 






CNP 


52 


003132 


073205 






BNI 


53 


003133 


104653 


000004 




NOV 


54 


003135 


105203 


177600 




BIC 


55 


003137 


104030 


000736 




NOV 


56 


003141 


114000 


000737 




CLR 


57 


003143 


104203 


000736 




NOV 



K 12 

91 



SEO 361 



PBN->D,X,L,RBN CONVERSION OVERLAY (G5) 
G5. START 



FRON PBN TO D,XA,RBN 

m.CLR,CURPBN4-1 

«H6HPBN,R3 

«CURPBN,R4 

DCNP 

LRBN 

DSUB 

«XBNSEC,R3 

DCNP 

DBNFND 

XBNFND 

«CURPBN,R4 

#XBNSEC,R3 

DSUB 

CONGRP 

#SECTRK,R3 

#CURPBN,R4 

DNUL 

fDDUNNY,R3 

DADD 

1(R4),R1 

ST.0BN«R1 

#H0.CLR,R1 

«HD.DBN,R1 

RI.CUR^N^I 

PDONE 

CONGRP 

fSECTRK.R3 

fCURPBN.R4 

DNUL 

fDDUNNY.R3 

DADD 

1(R4),R1 

ST.XBN,R1 

#H0.CLR.R1 

#HD.XBN,R1 

RI.CURPBN^I 

POONE 



CLEAR THE HEADER 

HIGHEST PBN IN LBN AREA 

CURRENT PBN 

IS IT LBN OR RBi4 ? 

YUP - 60 CONPUTE IT 

SUBTRACT HIGH LBN PBN 

TOTAL XBN SECTORS 

IS IT AN XBN ? 

NOPE - THE FIRST DBN 

YUP - 60 FIXIT 

ELSE DBN - GET VALUE 

TOTAL XBN SECTORS 

SUBTRACT TO GET RELATIVE DBN 

CONPUTE THE 'tJFFSET" SECTOR 

SECTORS/TRACK 

TRACK 

NULTIPLV TO GET STARTING PBN ON TRACK 

SECTOR ON TRACK 

ADD TO GET ACTUAL PBN 

GET HIGH ORDER 

ADD TO GET ABSOLUTE DBN 

CLEAR THE HEADER 

NARK AS DBN 

STORE BACK 

CLEAN UP AND RETURN 

COMPUTE THE 'TV FSET" SECTOR 

SECTORS/TRACK 

TRACK 

NULTIPLV TO GET STARTING PBN ON TRACK 

SECTOR ON TRACK 

ADO TO GET ACTUAL PBN 

GET HIGN ORDER 

ADD TO GET ABSOLUTE XBN 

CLEAR HEADER 

NARK AS XBN 

STORE BACK 

CLEAN UP AND RETURN 



CONGRP 

#SCR,RS 

LBNTRK(R5),R3 

fHIBVTE,R3 

#DDUNNY.R1 

(R1).R4 

R4,R3 

LBNFND 

RBNTRK(R5),R3 

fHI1BYTE,R3 

R3.TENP 

TENP*1 

fTENP.R3 



CONPUTE THE OFFSET SECTOR 

POINT TO CHARACTERISTICS 

GET LBN/TRK 

CLEAR HIGH BYTE 

POINT TO REMAINDER 

GET IT 

COMPARE 

IF NINUS THEN LBN 
GET RBN/TRACK 
CLEAR OUT GARBAGE 
STORE IT 
FOR STORE 
FOR MULTIPLY 
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UDAFH - UDA "ORNATTER OHACR X04.01 23-AU6-82 U:02:32 PAGE 91-1 
PBN->D«X,L.RBN CON«/ERSI(M OVERLAY (65) 



S8 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 



003145 
003147 
003150 
003152 
003154 
003156 
003160 
003162 
003164 
003165 
003167 
003171 
003172 
003174 
003176 
003200 
003202 
003204 



003205 
003207 
003211 
003213 
003215 
003217 
003221 
003222 
003224 
003225 
003227 
003231 
003233 
003235 
003237 
003241 
003244 
003247 





nni 111 

V/V 1 1 1 1 




Uc 1 3 J' 




CALL 




UUU r J 1 


MOV/ 


1 UhOj J 


Uv UU 1 1 


MOW 




1 77^00 

Iff "f Uw 


Dl 




yjw f jv 


MOV 


1 1 HUW 


UUUr J f 






Uvwr jD 


MOW 






CALL 




001111 


MOV 


10^703 


300731 


MOV 


021503 




CALL 


104641 


000001 


MOV 


105301 


001324 


ADD 


103201 


170000 


BIC 


101201 


060000 


BIS 


104010 


001112 


NOV 


003241 




BR 



«CURPBN,ft4 
DHUL 

fDDUPWY«R4 

LBNTRK(R5>,R3 

fHIBYTE«R3 

R3,TEMP 

TEMP*1 

«TEHP«R3 

DSUB 

«CURPBN,R4 

#00UNNY,R3 

DAOD 

1(R4>,R1 

ST.RBN«R1 

«HD.CLR«R1 

«HD.RBN,R1 

R1,CURPBN«1 

POONE 



104204 


001111 




LBNFND: 


MOV 


«CURPBN,R4 


104653 


000011 






MOV 


LBNTRK(R5>,R3 


103203 


177400 






BIC 


«HI8YTE,R3 


104030 


000736 






MOV 


R3.TENP 


114000 


000737 






CLR 


TENP*1 


104203 


000736 






MOV 


«TENP,R3 


021537 








CALL 


ONUL 


104203 


000731 






MOV 


#DDUNNY,R3 


021503 








CALL 


DADD 


104207 


001053 






NOV 


«SCR,RO 
1(R4),R1 


104641 


000001 






NOV 


105301 


001323 






ADD 


ST.LBN.RI 


103201 


170000 






BIC 


#HD.CLR«R1 


101201 


000000 






BIS 


fHD.LBN,R1 


104010 


001112 






NOV 


R1 .CURPBN^I 


104300 


001111 


001114 


POCNE: 


NOV 


CURPBN«CUR8N 


104300 


001112 


001115 




NOV 


CURPBM^I ,CUR6N^1 


000000 








RETURN 





.•DITTO - NUN OF TRACKS 

;NULTIPIY BY TRACK NUNBER 

;FOR SUBRACT 

;GET LBN/TRK 

.-CLEAR HIGH BYTE 

.•STORE IT 

.-FOR CLEAR 

.•POINT FOk SUBTRACT 

.•SUBTRACT TO GET RESIDUE RBN 

;T0 GET RBN- NUNBER 

.•DITTO 

.•GIVES RELATIVE RBN 

.-GET HIGH ORDER 

;ADD TO GET ABSOLUTE RBN 

.-CLEAR TH EHADER 

;SET AS A RBN 

; STORE BACK 

; CLEAN UP AND RETURN 



NULT NUN OF TRACKS 

GET LBN/TRK 

CLEAR HIGH BYTE 

STORE IT 

FOR CLEAR 

POINT FOR NULT 

GET LBN'S 

PLUS RESIDUE 

GIVES LBN NUNBER 

POINT TO CHARACTERISTICS 

GET HIGH ORDER 

ADD TO GET ABSOLUTE LBN 

CLEAR HEADER 

SET AS LBN 

STORE BACK 

GET LOU ORDER 

HIGH ORDER 
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UDAFn - UDA FORMATTER DNACR X04.01 23-AUG-82 14:02:32 PAGE 92 
PBN->D.X,L,RBN CONVERSION OVERLAY (G5) 



1 
2 
3 
A 
5 
6 
7 
8 
9 
10 
11 
12 
13 
U 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
^6 
Z7 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



003250 

003253 

003255 

003257 

003261 

003262 

003263 

003264 

003266 

003267 

003270 

003271 

003272 

003273 

003274 

003275 

003277 

003301 

003303 

003304 

003305 

003306 

003307 

003311 

003312 

003314 

003316 

003320 

003321 

003322 

003323 

003324 

003326 

003330 

003331 

003333 

003334 

003335 

003336 

003337 

003341 

003342 

003343 

003344 

0033A5 

003346 

003347 

003351 

003353 

003354 

003356 

003357 

003360 

003362 



104300 
114000 
104203 
104204 
021565 
104141 



001130 
000732 
000731 
001111 



104642 000001 

115001 
053273 
115002 
013357 
104131 



104207 
104671 
103201 
100131 
021565 
104141 
053312 
104641 
013365 
104207 
104671 
103201 
100131 
021565 
104131 
013365 
104207 
104672 
110702 
103202 
115002 
013365 
100142 
114002 
100642 
021537 

104145 
105025 
100145 
114002 
100642 
104301 
100131 
100632 
021565 



001053 
000003 
177400 



000001 

001053 
000002 
177400 



001053 
000011 

177400 



000001 



000001 
001130 

000001 



000731 



COMPUTE TRACK NUMBER AND SEC 



1$: 



3S: 



100641 000001 



5$: 



NOV 


SECTRK,DOUNHY 


CLR 


DDUNNY^I 


MOV 


#DDUMMY,R3 


MOV 


#CURPBN,R4 


CALL 


DDIV 


MOV 


(R4),R1 


PUSH 


R1 


MOV 


1(R4),R2 


PUSH 


R2 


TST 


R1 


BNE 


1$ 


TST 


R2 


BEQ 


5$ 


MOV 


(R3),R1 


PUSH 


R1 


NOV 


fSCR.RO 


NOV 


TRKGRP(R0),R1 


BIC 


#HIBYTE«R1 


MOV 


R1,(R3) 


CALL 


DDIV 


NOV 


(R4),R1 


BNE 


3S 


NOV 


1(R4)«R1 


BEQ 


4$ 


NOV 


fSCR.RO 


NOV 


GRPCYL(R0),R1 


BIC 


«HIBYTE«R1 


NOV 


R1,(R3) 


CALL 


DDIV 


NOV 


(R3).R1 


BEQ 


4$ 


NOV 


fSCR.RO 


NOV 


0FFS(R0),R2 


SUAB 


R2 


BIC 


«HIBYTE,R2 


TST 


R2 


BEQ 


4S 


NOV 


R2,(R4) 


CLR 


R2 


NOV 


R2,1(R4) 


CALL 


DNUL 


POP 


R2 


NOV 


(R4),R5 


ADD 


R2,R5 


NOV 


R5,(R4) 


CLR 


R2 


NOV 


R2J(R4) 


NOV 


SECTRK.R1 


NOV 


R1,(R3) 


NOV 


R2J(R3) 


CALL 


DDIV 


POP 


R1 


NOV 


R1,1(R4) 


POP 


R1 



NUNBER INCLUDING OFFSET 

:GET SECTORS/TRAcK 
.CLEAR HIGH ORDER 
.'FOR DIVIDE 
.•DITTO 

:DIVIDE PBN/SECTRK TO GET TRACK » 
.■GET CURRENT TRAC< 
.•SAVE IT ON STACK 
.•DITTO HIGH ORDER 
.SAVE AGAIN 

;IS LOU ORDER TRACK 0 ? 

;NOPE - TRACK « CAN'T BE 0 

:IS HIGH ORDER TRACK 0 ? 

;YES - NO OFFSET OR NEED TO GO UN 

:6ET CURRENT SECTOR NUNBER 

;SAVE IT 

.POINT TO CHARACTERISTICS BLOC^C 

;LOAD TRACKS/GROUP 

.-CLEAR our HIGH GARBAGE 

: STORE TRACK/GROUP IN DDUNNY 

.•DIVIDE TO GET GROUP NUNBER 

.GET ABSOLUTE GROUP NUMBER 

; CAN'T BE 0 - CONTINUES 

:6ET HIGH ORDER 

;6R0UP IS 0 - NO OFFSET 

;POINT TO CHAAACTERISTICS 

:6ET GROUPS/CYLINDER 

.CLEAR OUT GARBAGE 

: STORE GROUPS/CYLINDER 

;DIVIDE TO GET RELATIVE GROUP 

;GET GROUP NUPCeR 

;IF ZERO THEN DONE - NO OFFSET 

.•POINT TO CHARACTERISTICS 

:GET GROUP OFFSET 

;GET INTO LOUBYTE 

.CLEAR HIGH GARBAGE 

.-ANY OFFSET ? 

:N0 - NO NEED TO FIX UP 

.•STORE FOR NULT 

.'CLEAR FOR STORE 

.-CLEAR HIGH ORDER 

; NULT I PLY GROUP^OFFSET 

.•RESTORE ORIGINAL SECTOR 

.•GET TOTAL OFFSET 

;ADD TO GET SECTOR NUNBER 

.•STORE IT 

.•FOR STREO 

; CLEAR HIGH ORDER 

.•SECTOR'S/TRACK 

;FOR NOD FUNCTION 

.•CLEAR HIGH ORDER 

;RENAINDER IS NEW SECTOR NUNBER 

.•RESTORE TRACK NUNBER LOW 

.STORE IT 

.•RESTORE TRACK NUNBER HIGH 



y£^/"rv~ fORMAfTER 0«ACR X04.01 25-AU6-82 14:02:32 PAGE 92-1 
PBN->D.X.L.RBN CONVERSION OVERLAY (65) 



58 003363 

59 00336A 

60 003365 

61 003366 

62 003367 

63 003370 

64 003372 
65 



100141 
000000 

100131 
114001 
100631 
003357 



4S: 



000001 



NOV 

RETURN 

POP 

NOV 

CLR 

NOV 

BR 



R1,(R4> 
R1 

R1,(R3) 
R1 

R1,1(R3) 
5$ 



.•STORE IT 

; SECTOR NUMBER 
.■STORE IT 
;FOR STORE 
.•CLEAR HIGH ORDER 
;ANO EXIT 
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UDAFH > UOA FORMATTER DHACR X04.01 
ERROR MESSAGE OVERLAY (G6) 



003373 



23-AUG-82 14:02:32 PAGE 93 



SEQ 365 



7 003C23 


104207 


001264 




8 003025 


104671 


000001 




9 003027 


104172 






10 003030 


117402 






11 003031 


110202 






12 003032 


105202 


003441 




13 003034 


104127 






14 003035 


104621 


000001 




15 003037 


060016 






16 003040 


000000 






17 








18 








19 003041 


050001 






20 003042 


107 


105 


124 


21 








22 003054 


050002 






23 003055 


123 


104 


111 


24 








25 003065 


050003 






26 003066 


125 


156 


163 


27 








28 003103 


050004 






29 003104 


123 


104 


111 


30 








31 003115 


050005 






32 003116 


125 


116 


111 


33 








34 003127 


050006 






35 003130 


106 


157 


162 


36 








77 003150 


050007 






38 003151 


116 


157 


156 


39 








40 003166 


050010 






41 003167 


104 


102 


116 


42 








43 003214 


050011 






44 003215 


106 


103 


124 


45 








46 003225 


050012 






47 003226 


123 


105 


105 


48 








49 003234 


050013 






50 003235 


122 


103 


124 


51 








52 003245 


050014 






53 003246 


114 


102 


116 


54 








55 003271 


050015 






56 003272 


106 


103 


124 


57 









.SBTTL ERROR MESSAGE OVERLAY (66) 
ERROR MESSAGE OVERLAY 
DMOVLY G6, START 



MOV 
MOV 
MOV 
DEC 
ROL 
ADD 
MOV 
MOV 
XFC 

RETURN 



«DnBUF,RO 

1(R0),R1 

(R0),R2 

R2 

R2 

«ERRTBL«R2 
(R2),R0 
1(R2},R1 
MAINTR 



.•POINT TO BUFFER 

;6ET SUB CODE 

;6ET ERROR NUMBER 

:HAKE RELATIVE TO 0 

.-MULTIPLY BY 2 

.•OFFSET TO MESSAGE ADDRESS 

.•MESSAGE TO SEND 

.•LENGTH OF MESSAGE 

.-SEND IT 

;60 BACK AND DIE 



M.ER1 



.ENABL LC 
.WORD 50001 

.asciz 'XiET STATUS failure" 
********•**********•************************;.********** 

I.ER2: .WORD 50002 

.ascfz "SDI send error" 



.ER3: 
A.ER4: 

.ER5: 
M.ER6: 

.ER7i 

.ER8: 
M.ER9: 



.yORD 50003 

.asciz 'Unsuccessful SDI conMand" 



.WORD 50004 

.asci'2 "SDI receive error" 



.WORD 50005 

.ascfz '\iNIBUS I/O error" 



.yORD 500G6 

.asciz 'Toriatter Initialization error" 



.yORD 50007 

.asciz '>ion'^x1stant unit nuMber" 



.yORD 50010 

.asciz 'DBN/XBN fordat error (FORMAT XFC failed)" 



.yORD 50011 
.asciz *TCT check error" 
******************************************************* 

I.ER10: .yORD 50012 

.asciz "SEEK error" 



N.ER11: .WORD 50013 

.asciz "RCT check error" 



H.ER12: .yORD 50014 

.asciz 'IBN foraat error (FORMAT XFC faHed)' 



N.ER13: .yORD 50015 

.asciz 'TCT write error 



J 



f. 13 
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58 


003302 


050016 




59 


003303 


122 


103 


60 








61 


003313 


050017 




62 


003314 


122 


103 


63 








64 


003324 


050020 




65 


003325 


122 


103 


66 








67 


003332 


050021 




68 


003333 


106 


103 


69 








70 


003343 
003344 


050022 




71 


106 


103 


72 








73 


003355 


050023 




74 


003356 


106 


103 


75 








76 


003406 


050024 




77 


003407 


104 


162 


78 








79 


003421 


050025 




80 


003422 


111 


156 


81 








82 


003441 






83 









124 
124 
124 
124 
124 
124 
151 
166 



M.ER14: .WORD 50016 

•asciz "RCT read error" 

.ER15: .UORD 50017 

.asciz "RCT write error" 

M.ER16: .WORD 50020 

.asciz "RCT full" 



.ER17: .yORD 50021 

.stsciz 'TOT read error" 



.ER18: .UORD 50022 

.asciz 'TCT non-existant" 



.ER19: .UORD 50023 

.asciz 'TCT Down Line Load error (FCT block not avbl.)" 



.ER20: .UORD 50024 

.asciz "Drive init tineout" 
********************************************; ********** 

I.ER21: .UORD 50025 

.asciz "Invalid response to question" 



N.ER22: 



.DSABL LC 



D 13 
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SEQ ^67 



1 
2 
3 

4 003441 

5 003442 

6 003443 
r 003444 

8 00344S 

9 003446 

10 003447 

11 003450 

12 0034S1 

13 003452 

14 003453 

15 003454 

16 003455 

17 003456 

18 003457 

19 003460 

20 003461 

21 003462 

22 003463 

23 003464 

24 003465 

25 003466 

26 003467 

27 003470 

28 003471 

29 003472 

30 003473 

31 003474 

32 003475 

33 003476 

34 003477 

35 003500 

36 003501 

37 003502 

38 003503 

39 003504 

40 003505 
003506 
003507 
003510 
003511 

45 003512 

46 003513 
47 



41 

a 

44 



003041 
000013 
003054 
000011 
003065 
000016 
003103 
000012 
003115 
000012 
003127 
000021 
003150 
C00016 
003166 
000026 
003214 
000011 
003225 
000007 
003234 
000011 
003245 
000024 
003271 
000011 
003302 
000011 
003313 
000011 
003324 
000006 
003332 
000011 
003343 
000012 
003355 
000031 
003406 
0C0013 
003421 
000020 

000001 



ERRTBL: 



ERROR MESSAGE POINTER TABLE 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
DNEND 
.END 



n.ERI 

H.ER2-M.ER1 
N.ER2 

N.ER3-N.ER2 
N.ERi 

N.ER4-N.ER3 
n.FR4 

n.ERS-N.ER4 
n.ER5 

N.ER6-N.ER5 
n.ER6 

n.ER7-n.ER6 
H.ER7 

H.ER8-H.ER7 
N.ER8 

n.ER9>N.ER8 
n.ER9 

H.ER10-H.ER9 
n.ERIO 

H.ER11-H.ER10 
n.ERII 

N.ER12-H.ER11 
n.ERIZ 

H.ER13-H.ER12 
n.ERIS 

H.ERU-H.ER13 
n.ERK 

H.ER15-H.ER14 
N.ER15 

N.ER16-N.ER15 
N.ER16 

N.ER17-N.ER16 
N.ER17 

n.ER18-H.ER17 
N.ER18 

N.ER19-N.ER18 
N.ER19 

n.ER20-N.ER19 
n.ER20 

N.ER21-n.ER20 
N.ER21 

N.Eft22-n.ER21 



MESSAGE 1 

LEN3TH OF MESSAGE 1 
MESSAGE 2 

LENGTH OF MESSAGE 2 
MESSAGE 3 

LENGTH OF MESSAGE 3 
MESSAGE 4 

LENGTH OF MESSAGE 4 
MESSAGE 5 

LENGTH OF MESSAGE 5 
MESSAGE 6 

LENGTH OF MESSAGE 6 
MESSAGE 7 

LENGTH OF MESSAGE 7 
MESSAGE 8 

LENGTH OF MESSAGE 8 
MESSAGE 9 

LENGTH OF MESSAGE 9 
MESSAGE 10 
LENGTH OF MESSAGE 10 
MESSAGE 11 

LENGTH OF MESSAGE 11 

MESSAGE 12 

LENGTH OF MESSAGE 12 

MESSAGE 13 

LENGTH OF MESSAGE 13 

MESSAGE 14 

LENGTH OF MESSAGE U 

MESSAGE 15 

LENGTH OF MESSAGE 15 

MESSAGE 16 

LENGTH OF MESSAGE 16 

MESSAGE 17 

LENGTH OF MESSAGE 17 

MESSAGE 18 

LENGTH OF MESSAGE 18 

MESSAGE 19 

LENGTH OF MESSAGE 19 

MESSAGE 20 

LENGTH OF MESSAGE 20 

MESSAGE 21 

LENGTH OF MESSAGE 21 
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ALt 


UU lUe? 


ri CI D 


UU^UO 1 


ri "' VQAI 


oniiiA 
uu 1 1 10 






ri CI d9 




ri ne 


001 ?7A 


ktik I ki 






noTi 1 7 
UU J 1 1 1 


ruT - 


nnno?o 
yjyjwcv 


Ai 1 nuo 

ALLUVN 




n cuDT 




rUTCDD 
LV 1 CNN 


003731 
UUc f c 1 


ALLUV 1 




fi UCDC 

ILncKc 




ruTCir 


003AA5 
vUc003 


Am IT 


Uvc j30 


ILNDUr 




rvi — 


OOOOOA 
UvvUUO 


ATTM - 




ri Bl D 


nn^A59 


rvi OM — 


000000 
UvUvvv 


ATTMl 

1 1 H 1 






00^1^0 


rVI MIIM 


001 1 3A 
vU 1 1 cO 




1 f 






f 51? 


00001 A 
Uvvv 1 D 


PAnpBfti 


OAI 

Uv 1 cC*i 




0071 5^ 




001 507 

Uv 1 3U3 


QAftDBU 


UUJO ID 


mnDiiF— 
unuDur — 


00AA91 
UUOOc i 


l/nUU 1 


001513 

UU 13 1c 


OA — 


UcUUUU 




uuuuuo 




000055 


Pf>UI> — 
OVIW — 




rui D 




nATA — 


000005 
UUUUV3 


OUIIfL 1 


UU*» IV 1 


rui Dl 


00 A 0^1 


nATACM 
I/A 1 AUM 


007A35 
UU^0c3 


Dm — 


vvOOe 1 


ruT 

V.N 1 


001 750 


hATQI IF 
l/AIDUr 


0073^7 

UUJCH3 


DU 191 — 


V Ivvwv 


TklTr VI 


001 
vU 1 




007AAA 


Rl TO - 


vWW 1 




vUHcO 1 


nATF 
I/A 1 C 


001 709 
UU 1 JVC 


Rt T1 - 




rnAini ir 


001 L^L 

VV 1 •♦t"! 


nATFBP 

UA 1 Cnn 


007703 




UvCWV 


rruunnAi 


ooZi 1 t 


nATi p 

I/A 1 


007A7A 


RIT11 - 
Ol 111 — 




rnkinni 


00A115 

UvH 1 U 


RATI PI 

I/A 1 Lr 1 


0075A7 

UUJ30f 


RTT17 - 
Dl lie — 


nionon 

V 1 wwVIV 


rnkiFDD 


00A1 1 A 
UUH i 1 0 


nATI P? 
UA 1 Lrc 


007A13 
UU30 1 c 


Dl 1 1 ^ *" 


uewiv 


rnkiCBl 
buncn 1 


00A191 
WH 1 c 1 


nATBFT 

I/A 1 nC 1 


007A37 


Dl 1 1 H — 




rnucvT 


UvHC f C 


nATDTI 
I/A 1 N 1 1 


n07A3A 


Dl 1 1 3 — 


lUvvUU 




{JVJCJV 


nATUCD 
l/AI VCN 


007A7A 


BIT? — 
Ol 1 C " 




rnuTtiT 




nATl/l 1 
UA 1 VL 1 


007A73 
UU^Or c 


D I IX — 
Dl 1 J — 


vUW 1 U 


rnAii nu 

tUrlLUW 


00^107 

UvH lUi 


l\ATUI 7 
UA 1 VLc 


007701 
UUOr U 1 


Dl 1 H — 




LUNUIV 


007A97 


nAVC — 
l/ATd — 


07A071 
U30U3 1 


Rl T^ - 
Dl 1 ^ 






00^975 


ARBAn 
UOOAU 


00171 5 
UU 1 J 1 3 


RI = 

Dl lO 


ooniAA 

vwU 1 l/V 


rniiMT 


001 ^7A 


ARAIIFPs 
i/oour 


An 7/, 70 


Dl I • 


l/WCwV 




OOlOiLO 
VV 1 w*»v 


DRI FM = 


noooT^ 

www JH 


RT Tft 

Dl 1 O 




fp ktt 


0007AA 
vvUr 00 


ARM s 
won 


0A001A 

UVUU lU 


RI TQ - 

Dl 1 7 ~ 


VV 1 l/W 


TP n p 


000773 

VVV> r e 




00O033 

UUvUcc 


Rl Auun- 




TP HT C 


0007 5A 

VUVf JW 


l/Dnrlw 


0070^3 


Rl KTMb 


vvJ 1 y « 


TQ PPV 


00100A 

vU 1 vvO 


nn R 


001097 

UU iUcr 




007775 


rp nrp 


0007£A 

vvv» HO 


nmp 


001 A37 

UU IDc J 


DU 1 1 \^ 


00^P7A 


rp /;cp 


000757 

vvv' JC 


nrMPi 

l/VHr 1 


001 A^A 
UU io**o 


ncRM 

DnCHV 




fR fi^T 


00074? 

vvvf Ht 


nrMP? 


001 A^l 
UU lot 1 




000000 
www 


TR OMI 


001017 

V V 1 V 1 £ 




001 A 5£ 
UU 10 J*t 


Dd 1 


00?000 
wcwv 


TR Rri 


00106? 

w 1 wc 




001 A^ 

VV 1 OJH 




007777 


rp RllN 


00076? 

vWf OC 




001 5A5 

uv 1 JOJ 


RtlFPNT 






000774% 
vvvr w V 


i/i/urwiF 


000711 
vwr J 1 


DV* i •* 




f S 


0041^0 

WvH I 


OFAb s 

l/CMI/ 


0000?0 
vvuvcu 




00515? 
w^ 1 


rsKiP 


001454 


AFrAI P 


001AA£ 

WwOO*l 


RIIF^ r 


005 5A7 

W^ JO* 


rciTTPi 


00746A 

VVJHWO 


l/C VASv 


007AA0 
UU jdou 


Dur 


nOAPOA 
v/vvc v** 




007^415 


vim 1 — 


000011 

UUUU 1 i 


RIIFS s 


wvoc 1 




0077?A 

vvJ' CO 


l>15 

1/19 


001 0?? 
UU 1 vcc 


DWt Q • 


0073?1 

W f i 


rciriPA 


00l67? 

VV JO f C 


1/1 9VUIV 


00971 5 
uvc J 1 J 


fRIIF 


001A41 

VV 1 •••t 1 


r^KiP7 

Ld^lr f 


0077i^ 

vvJr J J 


til FPP 
l/LCnn 


0070A9 




00^777 


1 


00^714 

VV*f J IH 


l>l FRT 
l/LCn 1 


007^^7 






rilRRM 


001 11^ 

W 1 1 1 *t 


ni 1 = 

l/LL 


OOOAOO 

UUU*tUW 






ri/RCRP 


00144^0 

VV 1 *tOv 


ni 1 nki 


00777A 

UUJr fO 


CHRDNE- 


010000 


CURLBN 


001116 


DLLDN1 


003777 


CKR 


004166 


CUROVL 


001154 


DLLFLE 


003762 


CKR1 


004352 


CURP8N 


001111 


DLLNO 


004000 


CLBUF = 


007321 


CURPNT 


001471 


OLLRET 


003421 


CLEAR 


002234 


CURRBN 


001107 


DLLRTl 


003405 


CLEDM 


003147 


CURTRK 


001113 


OMBUF 


001264 



OMBUFL= 


000016 


FCTAVL= 


000001 


DHUL 


001537 


FCTBADs 


000004 


D0L6N 


AA9 A W 

003033 


FCTCK 


003032 


DONDLL 


AAV i '\ i 

003424 


FCTCKD 


003267 


DONE = 


A A A A 4 

000021 


FCTCKE 


003316 


DONFCT 


003643 


FCTCLP 


AA9 a 4 

003112 


DONONE 


003547 


FCTCLI 


AA9 <t 4 P 

003115 


DPdN 


003277 


FCTCNT 


AA4 1P^ 

001257 


DPREA 


AA4 

001 32c 


FCTCPY 


A A 4 1 4 P 

001245 


DSUB 


AAl C 14 

001 S2i 


FCTEHT= 


AAAA A1 

000002 


OUPOvL* 


OOrrrA 


FCTFLG= 


AAA A1P 

000025 


DURD 


AA1 y / c 

001445 


FCTFHT 


001241 


DXBN 


AA9A VC 

003035 


FCTNOT 


0032^0 


DXCH 


AA9i 91 

003432 


FCTNPO 


AA4 1^4 

001261 


DXCHEC 


003431 


FCTPTR 


A A 4 £ 

001256 


DXERR 


003340 


FCTRCT 


AA94 M. A 

003166 


DXFCPG 


003341 


FCTREV 


AA4 9 4 1 

001312 


DXFCPl 


003360 


FCTRLP 


aaya^ a 

003040 


DXFORn 


003070 


FCTSKP 


AAT/ T7 

003437 


DXTRK 


AAVAIZ^ 

003026 

AA1/.A^ 

00260* 


FCTSKl 


AA9i 94 

003431 


cAGAIN 


FCTSLP 


AA9^ 4 f 

003615 


ECC = 


AAAA4 C 

00001 5 


p p V pn 

FCTSP 


003733 


ECCCK 


AA9AAA 

003000 


P P VP V _ 

FCTSZ = 


AAAA 4 A 

000010 


ECCF = 


AI A AAA 

010000 


FCTUSO 


003204 


ECHO = 


AAAA4 A 

000010 


FCTWRT 


AA9A19 

003023 


EDC 


AA4 i i £. 

001446 


FCUERR 


AA911V 

003223 


EInAGE 


AA4 

001232 


FOAT s 


A A_AA 4 

000012 


EnAX 


AA4 11^ 

001226 


pm ■ 

FDLL 


003246 


cNTRY 


AAA74 / 

000714 


FERR 


003330 


EURCT 


003147 


p ff n A&AP 

F I DANS 


AA/ 11A 

004220 


ERCV ~ 


AAAAA1 

000002 


FICNUL 


004233 


cRDN = 


AAAA1 A 
000010 


P f 1 1 ff ▼ 

FILLIT 


003637 


ERtCOV 


AA1 1 AY 

001103 


FINCtK 


AATAIY 

003023 


ERF LAG 


AA1 111 

001222 


FINDOM 


004216 


ERLEN = 


000002 


P ff U ff • 

FIMI = 


A « AAAA 

040000 


cRPWT 


AA1 ^CY 

001253 


P V *»A 

FINLEN 


AAy 1A4 

004201 


CUB 
cRR 


001 £cr 


FINLNl 


004203 


cRRoUr 


001225 


FIlftSG 


AAY4 91 

003172 


cRRCNI 


AA1ZCA 

001450 


P ff WBl to 

FIwLK 


AAV/ / C 

003445 


cRRHND 


0025 fi 


C f HP y^ T 

FIXFCT 


003766 


cRRPiiT 


00c5hc 


C ff W t T 

r IXIT 


AA/ AA4 

004001 


cRRUR 


003440 


ff HI fk 

FIXLP 


00S462 


CRRSTPIS 


AAAAA9 

OUVOOc 


rKIPl 


004051 


cRRT 


AAIA?? 

0020/3 


P to ff n4 A 

FKIPIO 


AA/ AW 

004075 


ERRTdL 


003441 


p to ff Bl 

FICIP2 


AAZ A^C 

004035 


CRT 


AA17A^ 

003706 


FICIP9 


004420 


EXTFCT 


AAl ^td. 

004236 


FKPl 


004066 


cXTRcT 


00425f 


FLAG 


001220 


EXTRTl 


AA/ 'l^A 

004260 


FLAG1 


001221 


FBDHO = 


A1 AAAA 
010000 


FLIP 


003112 


FBEGIN 


003252 


FLIPONs 000400 


r Dcuc 


007 3A5 


FLKIP1 


004374 


FCFXLP 


003202 


FLKIP2 


004360 


FCLR * 


177760 


FLKP1 


004411 


FCnSG 


001317 


FUSTL = 


000010 


FCNT 


001240 


FMTSTA 


003224 


FCP6 


003573 


FODONE 


003206 
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FOLOOP 

FORERR 

FORHAT= 

FPRIN = 

FRCPV = 

FRDONE 

FR^KP 

FSER = 

FT,BUF= 

FT. HI = 

FT, LOW* 

FUGOOO 

FWRO 

FUTDON 

F1 = 

F2 

F3 

F4 = 
F5 = 
F6 = 
F7 
F8 

F9 = 
GCR 

GOBLK = 
GOECC 
GOONE 
GEMCON 
GETUNT 
GOBAO = 
GOVER 
G0VER1 
GRP = 
GRPCNT 
GRPCYLs 
r'KIP 
XIP1 
6SKIP2 
6SKIP3 
GSR 
GST 

6STATS 
GTFLAG-s 
61 s 
62 
G3 

G4 s 

G5 

G6 

67 

GS 

HASH 

HO.BAlr: 

HO.CLR= 

HO. CUR 

HO.DBN= 

HO. LBN: 



003034 
003366 
000001 
020000 
000001 
003721 
003715 
000002 
000000 
000002 
000001 
003157 
001442 
003215 
000000 
000003 
000006 
000011 
000014 
000017 
000022 
000025 
000030 
001017 
005567 
003022 
004274 
004015 
004134 
000020 
004147 
004143 
000010 
001461 
000002 
004252 
004167 
004205 
004224 
001020 
001016 
001657 
002000 
000060 
000033 
000036 
000041 
000044 
000063 
000047 
000052 
003024 
110000 
170000 
001457 
140000 
000000 



HD.PRV= 

HO.RBN= 

HD.REV: 

HD.XBN: 

HEAD ' 

HERE 

HGHPBN 

HIByTE= 

HIIBVTs 

HI2BYTS 

HKIP 

HKIP1 

HOLD 

HOLDBN 

HOLDPN 

HOLRBN 

HPREA 

HSLin 

HSTHI - 

HSTLO = 

HI = 

H2 

IMAGE = 
IHLEN = 
INSTAR 
INDSEC: 
INI 

INIRCTs 

INITDD 

INITIT 

INITL 

INITPT 

INITP1 

INIT5 

INPEL = 

INPERR 

INST s 

IRECAL 

ISEEK 

ISKIP 

LAGAIN 

LAST = 

LBNBAD 

LBNCYL 

L6NFND 

LBNHOS« 

LBNLBN 

LBNPCY 

LBNTRK= 

LBUFE = 

LCHEC 

LDONE 

LEN = 

LERR 

LER1 

LER2 

LER3 



050000 

060000 

030000 

120000 

000005 

003602 

001155 

177400 

177600 

177700 

003031 

003055 

001230 

coil 20 

001124 

001122 

001321 

000727 

000002 

000001 

000055 

000066 

007321 

000003 

001320 

000013 

001247 

020000 

002377 

002331 

004330 

002362 

G02367 

002340 

000007 

003234 

000001 

001102 

001076 

003603 

003443 

100000 

001313 

001144 

003205 

000012 

001134 

001146 

000011 

003300 

003377 

004323 

000000 

003515 

003656 

003665 

003653 



LFCTNT= 

LFCTUS= 

LFERR 

LFINMS= 

LFIXIT 

LFORM 

LHERE 

LKIP10 

LKIP12 

LKIP2 

LKIP20 

LKIP21 

LKIP22 

LKIP23 

LKIP24 

LKIP25 

LKIP27 

LKIP28 

LKIP29 

LKIP30 

LKIP31 

LKIP33 

LKIP4 

LK1P5 

LKIP7 

LKIP8 

LKIP9 

LLEN 

LHORE 

LNOERR 

LO 

LOAD 

LOADER 

L0AD2 

L0A03 

L0AD4 

LOADS 

LOQL - 

LOBVTEr 

LOK 

LONGTO: 

LOOP 

LOOPP 

L00PP2 

L00P1 

L00P2 

L00P3 

LOVER 

L0VER1 

L0VER2 

L0VER3 

L0VER4 

LP3N 

LRBN 

LREDO 

LSKIP 

LSKIP1 



000012 

000014 

003376 

000012 

004324 

003023 

003547 

003520 

003330 

003051 

003137 

0C3146 

003263 

003237 

003247 

003343 

003273 

003523 

003507 

003556 

003561 

003541 

003500 

003444 

003540 

003131 

003115 

000015 

004340 

003532 

007777 

002152 

002222 

002177 

002203 

002217 

002157 

000040 

000377 

004163 

000001 

003120 

003201 

003153 

002012 

002036 

003431 

004223 

004320 

004264 

004255 

004243 

003160 

003117 

004407 

003421 

003433 



LSKIP2 

LSKIP3 

LSKIP4 

LSKIP6 

LSKIP7 

LSKIP8 

LSKIP9 

LSND 

LTO 

LTRK 

HAINTRs 

HAINTWs 

HANU : 

NARBAD 

BASK = 

HAXTRYs 

KNTLN- 

HLEN 

PWCNT 

MORE 

HS6L0P 

P1S6LP2 

HS6LP3 

NS6LP4 

HSGOFFa 

nSGTBL 

nSGI 

HS61LN> 

HS62LNS 

NS64LNS 

nSGSLNs 

HSG6LNS 

nSG7LN- 

NULDN 

NULERR 

fWLERI 

flULPC 

NULT10 

NULT2 

M.ER1 

M.ER10 

M.ER11 

M.ER12 

M.ER13 

n.ERU 

M.ER15 

n.ER16 

H.ER17 

n.ERIS 

H.ER19 

H.ER2 

n.ER20 

H.ER21 

H.ER22 

N.ER3 

N.ER4 

N.ER5 



003432 

004166 

003170 

003641 

004173 

003565 

004153 

004130 

001251 

003023 

000016 

000017 

000200 

003465 

000000 

000010 

000002 

003246 

001263 

004015 

003352 

003414 

003421 

003412 

000001 

003024 

002030 

000016 

000022 

000022 

000026 

000035 

000016 

004136 

004137 

004176 

000733 

004142 

004126 

003041 

003225 

003234 

003245 

003271 

003302 

003313 

003?24 

003552 

003343 

003355 

003054 

003406 

003421 

C03441 

003065 

003103 

003115 



n.ER6 

M.ER7 

n.ER8 

H.ER9 

H512 = 

H576 ^■ 

N 

NDLL - 

NEXT 

NEXT1 

NEXT5 

NGD 

NGD1 

NN1 

NO 

NOCERR 

NOCRY 

NODLL 

NOERR 

NOFCT = 

NOGOOD 

NOINC 

NOLBN 

NOSEK 

NOTHER 

NOTR 

NOTY 

Nun 

NUHD6N 
NUMLBN 

NUnXBN 
N1 

OCDONE 

OCLOOP 

OERR 

0ERR2 

OFATAL 

OFFS = 

OFFSET 

OK 

OLDONE 

ONE 

ONLIN 

ONLINE 

OQUIT 

ORFTAL 

OVCNT = 

OVER 

0VER1 

0VER2 

0VE.F1= 

0VE.F2= 

0VE.F3= 

0VE.F4= 

0VE.F5= 

0VE.F6S 



003127 

003150 

003166 

00321 4 

126736 

074161 

001452 

004000 

002403 

001246 

U>2410 

003224 

003234 

001454 

003322 

004063 

002621 

003070 

003565 

100000 

003265 

003120 

003461 

003332 

004307 

003202 

004234 

001440 

003355 

003060 

003120 

003405 

001453 

003207 

003062 

002417 

002426 

003331 

000011 

000736 

003723 

003326 

001463 

002323 

001105 

003352 

003331 

000023 

003500 

003774 

003743 

003023 

003023 

003023 

003023 

003023 

003023 
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0VE.F7= 

0VE.F8= 

0VE.F9S 

0VE.G1= 

0VE.G2- 

0VE.63= 

0VE.G4: 

OVE.GSs 

0VE.G6» 

0VE.G7= 

0VE.G8= 

OVE.Hls 

0VL.ri2= 

OVE.m- 

OVLBLK 

OVLEN = 

OVLTBL 

OVL.Fls 

OVL. F2s 

0VL.F3= 

0VL.F4= 

0VL.F5= 

0VL-F6= 

0VL,F7= 

0VL.F8= 

0VL.F9= 

OVL.GIs 

0VL.G2= 

0VL.G3= 

0VL.G4= 

OVL.GSs 

0VL.G6- 

0VL.G7= 

0VL.G8= 

0VL.H1= 

0VL.H2S 

OVL.P«i> 

OVL...S 

OVRLAY 

OVS.FIs 

OVS. F2= 

0VS.F3= 

0VS.F4= 

0VS.F5= 

0VS.F6= 

OVS. F7= 

0VS.F8= 

0VS.F9= 

OVS. 61= 

0VS.G2- 

0VS.G3= 

0VS.G4: 

0VS.G5- 

0VS.G6- 

0VS.G7= 

0VS.G8= 

OVS. His 



003023 
003023 
003023 
003023 
003023 
003023 
0O3C23 
003023 
003023 
003023 
003023 
003023 
003023 
000714 
0OU20 
000003 
001327 
001057 
001402 
000422 
0006S2 
001202 
000334 
000450 
000573 
000205 
001317 
000045 
000225 
001667 
000351 
000471 
000364 
000224 
000313 
001337 
003540 
022147 
002510 
013176 
016304 
023346 
024412 
026764 
032510 
031370 
021310 
042640 
010340 
033400 
033512 
034164 
043252 
044174 
015334 
022676 
026136 



0VS.H2= 

OVS.MNs 

OV... = 

PAERR 

P AGAIN 

PAGE 

PAGER 

PALPI 

PALP2 

PALP3 

PALP4 

PARITY= 

PARIT1= 

PARMTB 

PBNBUF= 

PBUFE = 

PCNT 

PCON 

PDONE 

PERR 

PHYSA = 

PLEN = 

PNGBLK 

PNGPG 

PNGPNG 

PNGRD 

PRET 

PRIH = 

PRIMRB 

PRMBUF= 

PRHY = 

PROO = 

QUESDN:: 

RBNBUFs 

RBNLBN 

RBNPCY 

RSNRPTs 

RBNTRKs 

RBNURT 

RB.cno= 

RB.HI = 

RB.IM = 

R8.L0U= 

RC8UFE= 

RCD 

RCFIX 

RCFXLP 

RCINONs 

RCINER 

RCINIT= 

RCINLP 

RCL 

RCLEN = 

RCLP 

RCLP2 

RCLP3 

RCLP4 



037742 
001040 
022567 
002501 
003073 
002435 
002463 
002445 
002452 
002500 
002473 
000200 
000400 
003163 
005152 
003317 
0J1475 
003023 
003241 
003162 
001000 
000021 
003070 
003571 
003066 
003125 
003161 
001000 
002730 
006204 
100000 
000000 
000200 
006621 
001136 
001150 
000200 
000004 
004175 
000002 
000001 
000003 
000000 
003372 
004563 
003421 
004204 
000100 
003441 
000040 
003157 
004436 
000034 
003033 
003162 
003431 
003372 



RCLP6 

RCTBAD 

RCTBUF* 

RCTCK 

RCTCKO 

RCTCKE 

RCTCIP 

RCTClI 

RCTCNT 

RCTERR 

RCTF«T 

RCTINI 

RCTLBN 

RCTNGO 

RCTRLP 

RCTS2 = 

RCTTOT 

RCTUPO 

RCTWLP 

RCTURT 

RCTWT 

RCV = 

RCVNNT 

RCVROY- 

RCUERR 

RCXLP 

RC.FREs 

RC.NUL- 

RC.PRVs 

RC.SNOs 

RC.UNUs 

RDBLK 

ROBUF = 

RDCW) ' 

RDLEN = 

RDONE 

RD0NE1 

RD0NE2 

READ » 

REA01 

READ10 

REA011 

REA02 

REA03 

REA04 

READ7 

READ8 

REA09 

REBUFE= 

RECAL 

RECIR s 

RECOV 

RECT«P 

REDO 

RELEN = 

REPEATS 

RESTAB 



003377 

001314 

006621 

003323 

003554 

003577 

003357 

003362 

001474 

003565 

001243 

003023 

001262 

003523 

004034 

000014 

001236 

003023 

003402 

004027 

003375 

000005 

002532 

000001 

004220 

003550 

000000 

100000 

020000 

030000 

040000 

000721 

004535 

100000 

000004 

003214 

003220 

003233 

000002 

003525 

Q03445 

003115 

003651 

003472 

003620 

003112 

004471 

003164 

003524 

002146 

040000 

001500 

001502 

004064 

000025 

001 OOC 

003272 



RE TAD 

RETRY 

R£V8UF= 

REVCNT 

REVECT= 

REVLEN= 

REVRBN 

REVSEC- 

RFTL 

RLD 

RLDOI«E 

RLOOP 

RL00P1 

RNUHER 

ROVER 

R0VER1 

RPRIM = 

RPT 

RPT1 

RQUIT 

RRC 

RRERR 

RRPL 

RSER = 

RTDON 

RTRY = 

RTY = 

RTYCNT 

RTYDN = 

RUN 

RyCHD = 

RU6D 

RV600D 

RMRDY s 

RUTDON 

RU.BUF- 

RU.CWs 

RW.DATs 

RW.DUHs 

RV.EDCs 

RW.ER1= 

Ry.ER2- 

RU.HI » 

RU.LOy- 

RW.STAs 

SBUFE « 

SCR 

SECCNT 

SECNDV 

SECSI6: 

SECSiSs 

SECTCY 

SECTRK 

SEEK 

SEEKER 

SEEKO 

SEEK1 



003374 

001477 

006204 

001255 

000100 

000004 

001152 

000007 

004705 

004676 

003322 

003131 

003164 

004236 

003055 

003072 

000004 

003423 

003745 

003243 

004373 

003550 

003540 

000000 

003563 

000001 

100000 

001470 

000002 

001024 

013400 

003525 

004161 

100000 

004217 

000001 

000004 

000000 

000005 

000400 

000000 

000401 

000003 

000002 

000000 

003342 

001053 

001451 

003256 

000400 

000440 

001132 

001130 

002242 

003372 

002244 

002253 



SEEK2 

SEEKS 

SEEi(4 

SEEKS 

SEEK6 

SEEK? 

SEND = 

SERBD 

SERCON 

SERNim 

SEROK 

SERRT 

SETOVL 

SFTRPT 

SHORTO= 

SIP - 

SKERR 

SKIP1 

SKIP19 

SKIP3 

SKIP4 

SKIPS 

SKIP6 

SKIP7 

SKPCNT 

SLAS - 

SLEEK 

SLEEK2 

SLEN = 

SLOOP 

SND 

SNDCNT 

SNDLP 

SNOMNT 

SNORES 

SRCK 

ST 

STACK 

STARIT 

START 

START2 

START3 

STASEC 

STATFR 

STATRE 

STATRT 

STATST 

STATUS* 

STATVL 

STCKSV 

STCLR = 

STCVL = 

STD6N - 

STDIAG 

STFLAGs 

STFORM 

STLBN s 



002301 

00231? 

002273 

002300 

002272 

002267 

OOJOOA 

003736 

003723 

001306 

003745 

003761 

003437 

004271 

000000 

000012 

003334 

003154 

003135 

003230 

003140 

003071 

003264 

003233 

001234 

000057 

003164 

003201 

000026 

003456 

004116 

001467 

003607 

002522 

003546 

001740 

001031 

001216 

001233 

003023 

003166 

003344 

001120 

002661 

002645 

002660 

001661 

000007 

0C2642 

001217 

170377 

000001 

000003 

001752 

004000 

001745 

000002 
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STO 


0012*?2 


TALKP 


002070 


TKIP9 


003140 


STPNIC 


00200S 


TALKRT 


002062 


T«PTRr 


001501 


STRBN = 


000003 


TATTN1 


002141 


TOTRCT 


001472 


STSC = 


000012 


TBLK 


001235 


TRK = 


000011 


STSKP 


002002 


TBUFF 


003247 


TRKCNT 


001462 


STSK1 


001677 


T8UFFL= 


000051 


TRKCYL 


001142 


STWLK 


001757 


TCLEAR 


002075 


TRKGRPs 


000003 


STXBN = 


000002 


TEHP 


000736 


TUO 


003575 


ST. OB = 


001000 


TE«P2 


000733 


TUOB « 


000006 


ST.OBN 


001326 


TERR 


002135 


TVOC 


001465 


ST. OF = 


000020 


THREB = 


000011 


TURD 


001444 


ST. OR = 


000040 


TILOP 


004027 


UDAFM = 


001000 G 


<:t,fRB= 


000002 


TIL0P1 


004034 


UERR 


002432 


ST.ERR= 


000374 


TIMER 


002627 


UHASH 


003333 


ST.FO = 


002C00 


TIHLOP 


003767 


UHKIP 


003340 


ST. IN = 


000004 


TIHL01 


003763 


UHMP1 


003364 


ST. LBN 


001323 


TIMLP 


002632 


UID - 


000000 


ST. PS = 


000002 


TIHTBL 


003330 


UNIT 


000740 


ST.RBN 


001324 


TIUVAL- 


100000 


UNITBO 


003714 


ST.RU = 


000001 


TKIPI 


003045 


UNITCN 


003705 


ST.SR = 


000020 


TKIP11 


003242 


UNIfRT 


003713 


ST.UC = 


000010 


TICIP12 


003165 


UNNO 


000741 


ST.yp = 


170000 


TK1P13 


003272 


UNSEC s 


000175 


ST.XBN 


001325 


TKIP14 


003267 


UN.ERI 


000717 


SUAP 


003231 


TK1P2 


003046 


UN.ERR 


000715 


SURO 


001443 


TKIP3 


003252 


UN.ERT 


000716 


TALI PI 


Wc 111 






UN.acK 


UUU rcO 


TALK 


002010 


TKIP5 


003154 


UPDATES 


000022 


TALKON 


002052 


TKIP7 


003212 


UPDPNT 


001471 


TALK IP 


002107 


TKIP8 


003130 






. A6S. 


045356 


000 










000000 


001 
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3 



SfQ 3^1 



UREAD = 
USDFCT 
UWRITE= 
VAXTNE 
VERHO 
VLO s 
VLD1 s 
VI 

X! 

V4 

VLOOP 
WP 

WRBLK 

WRCMD = 

URFLG 

WRITE = 

URITE1 

URITE2 

WRITE3 

URITE4 

URITE5 

WRITES 

URITE9 

WRIT10 

WRIT12 

WRIT13 

WRN 

WRNLN = 



000013 
003636 
000014 
004277 
003604 
000004 
000010 
000000 
000002 
000004 
000005 
003770 
000001 
000721 
122400 
001223 
000003 
003260 
003465 
004117 
003225 
003115 
003260 
004057 
004630 
003254 
Q043Q5 
003232 
000040 



XAGAIN 

XBBAO 

XBaUFE* 

XBLEN > 

XBNCYL> 

XBNFND 

XBNIT 

XBNSEC 

XDONE 

XEORCT 

XFLIP 

XNGBLK 

XNOINC 

XP6N 

XPERR 

XPNGRO 

XPRET 

XSKIPI 

XSKIP2 

XSKIP3 

XSKIP4 

XSKIP5 

XSKIP6 

XSLEEK 

XSLEK2 

XYZ 

XVZ1 

Y ! 

YES 



003577 

001316 

003466 

000034 

000021 

003073 

003145 

001140 

003353 

003654 

003616 

003574 

003624 

003331 

003670 

003631 

003666 

003035 

003137 

003154 

003211 

003237 

003234 

003071 

003105 

003670 

003671 

000131 

003243 
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SEO 372 



ACC 


5-53 


5-73* 


44-77* 










ACCESS 


12-A2 


12-50 


12-54 


12-59 


13-119* 






AGAIN 


A7-70# 


47-106 












ALL0V1 


17-19 


17-21# 












ALLOVR 


17-9 


17-17# 












AOUT 


13-m 


13-196 


13-199# 










ATTN 


3-1 63# 


13-143 












ATTN1 


13-193# 


13-198 












BAOEOC 


6-20# 


54-236 


56-50 








56-101 


BADPBN 


5-U5# 


46-41* 


47-8* 


49-64 


49-80* 


51-8* 


BAORBN 


71-72 


71-167# 












BD 


3-307# 


47-98 


47-100 


47-113 


54-50 


54-52 


54-65 


BOND 


3-2«2# 
5A-112 


54-108 


54-150 


54-185 


54-194 


54-204 


54-218 


BOIRCT 


54-187# 


54-195 










BDLST 
BOTST 


3-3A6# 


88-9 


88-99 


88-160 






88-151 


3-249# 


88-52 


88-59 
3-170 


88-61 


88-76 


88-144 


BITO 


3-1 00# 


3-164 


3-216 


3-237 






BIT1 


3-101# 


3-163 


3-171 


3-220 


3-238 


44-50 




BIT10 


3-1 10# 


3-176 


3-226 


3-247 








BIT11 


3-111# 


3-227 


3-248 










BIT12 


3-1 12# 


3-150 


3-173 


3-230 


3-249 


3-302 




BIT13 


3-1 13# 


3-173 


3-228 


3-250 


3-307 


63-58 




BITU 


3-1 U# 


3-173 


3-229 


3-309 


3-231 






BIT15 


3-1 15# 


3-149 


3-162 


3-173 


3-281 


3-308 




67-102 


72-40 


73-78 


75-39 


75-104 


82-48 


83-42 


BIT2 


3-1 02# 


3-130 


3-177 


3-223 


3-239 


44-53 




BIT3 


3-1 03# 


3-131 


3-178 


3-217 


3-240 


44-56 




BITA 


3-1 04# 


3-174 


3-179 


3-221 


3-241 






BITS 


3-1 05# 


3-172 


3-222 


3-242 


34-16 






BIT6 


3-106# 


3-218 


3-243 










B1T7 


3-1 07# 


3-132 


3-224 


3-244 








BITS 


3-1 08# 


3-133 


3-225 


3-245 


66-10 


70-9 




B1T9 


3-1 09# 


3-175 


3-219 


3-246 








BLANUD 


3-316# 


80-8 












BLKFNO 


77-61 


77-64# 












BHAX 


3-354# 


41-14 












BOTTOM 


63-59 


63-71 


63-85 


63-1 07# 








BRBN 


54-116 


54-1 52# 












BREAK 


3-48« 












62-21 


BSTGS 


3-226# 


29-18 


46-36 


49-61 


52-75 


54-8 


BUF1 


3-329f 
3-330# 


3-338 












BUF2 


3-339 












BUF3 


3-331# 


3-340 












BUF4 


I'lW 


3-341 


3-342 


3-345 


3-346 






BUF5 


3-333# 


3-343 


3-344 






BUF6 


3-334f 


3-347 


3-348 










BUFMSK 


3-1 29# 


54-144 


54-168 


54-249 








BUFPNT 


5-171# 


57-7* 


63-39* 


66-39* 


67-8 


70-37* 


71-21* 


71-244* 


75-29 


75-50 


75-90 


77-13* 


77-46* 


77-52* 


Cil2 


3-278# 


46-42 


46-43 


71-25 


77-29 






CBUF 


6-1 2# 














CDONE 


47-110 


47-170 


47-1 89# 










CEDC 


18 •6f 
90-28 


47-150 


54-148 


56-153 


62-71 


65-24 


67-52 


CHAR 


12-58 


12-61# 












CHRONE 


3-?30# 


12-61 


12-67 











56-151* 56-164* 56-171* 77-81* 



88-153 



47-82 
84-41 



47-134 
84-103 



54-34 
86-53 



54-87 
87-48 



62-98 
83-45 



63-27 
88-137 



67-40 
90-43 



62-21 62-127 75-131 77-89 79-146 86-94 



71-36* 71-61* 71-126* 71-199* 71-208* 71-213* 71-236* 
86-6* 86-12* 90-13 



72-25 73-64 75-51 82-33 84-53 86-65 87-60 
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SEQ 373 



CKR 

CKR1 

CLBUF 

CLEAR 

CLEDON 

CLELP 

CLELP2 

CLESKP 

CLEURT 

CLHERE 

CLRBUF 

CLRLP 

CLSICP2 

CLSKP3 

CLSICP4 

CHOBUF 

C«POAT 

CNLP 

CNLP1 

CNT 

CNTCYL 
C0N1EX 
CONBAD 
CONBLK 

C0ND01 

CONDON 

C0NER1 

CONERR 

CONEXT 

CONGRP 

CONINT 

COM.OU 

CONON 

COUNT 



CR 

CR.ACC 

CR.CLR 

CR.OIS 

CR.ERV 

CR.GCR 

CR.GSR 

CR.6ST 

CR.ONL 

CR.RCL 

CR.RUN 

CR.SEK 

OS 

CS1 

CSKIP 

CSKIP1 

CSKIP2 

CSICIP3 

CSICIP6 



82-85 
89-19 
3-3^7# 
12-22 
78-50 
78-24# 
78-20# 
78-27 

78- 51 
82-7# 

79- 136 

80- 9# 
78-42 
78-14 
78-40 

3-343# 
3-54# 
30-1 6# 
30-1 5# 

5- 1 67# 

6- 30* 
36-11 

22- 37 
6-6# 

84-10 

30-48# 

30-14 

30-18 

30-30 

36-9 

91-19 

38-21# 

30-35 

23- 20 

6-4ar 

62-139* 
87-14* 
5-49 
5-53# 
5-54f 
5-51# 
5-57# 
5-49# 
5-50* 
5-4a« 
5-58# 
5-56# 
5-52# 
5-55# 
82-26 
86-34 
47-57 
47-66# 
47-61 
47-161 
47-143 



82-'»7# 

89-21 # 

82-10 

13-1274f 

78-55# 

78-46 

78-49 

78-43# 

78-57 

82-63 

80-6# 

80-11 

78-51 # 

78-56 

78-5 7# 

47-69 

47-92 

30-43 

30-45 

18- 8 

46- 35* 
36-1 3# 
36-6# 

19- 5 

86- 21 
30-53 
30-32 
30-20 
30-49<f 
36-1 2# 
91-31 
45-11 
30-44# 
23-40# 
44-7* 
73-43* 

87- 92* 
5-78* 

13-120 

13-128 

13-171 

17-26 

12-63 

12-65 

12- 14 

13- 179 
13-80 
13-87 
13-138 
82-71# 
87-28 

47- 62# 
47-108 
47-65# 
47-164* 
47-1 47# 



82-32 
46-91 



78-54 
82-4# 



78-58* 

48-7 
54-44 



47-184 52-58 54-265 



54-21 
54-104 



55-7 



46-53* 46-107* 46-112* 52-15* 52-17* 52-'8* 52-107 52-114 52-116 88-105* 88-106^ 88-157* 



19-21 
87-20 

30-46* 
30-51* 



62-13 
89-5 



65-10 
89-22 



67-13 
90-15 



72-9 



73-45 75-13 82-19 82-71 82-88 83-8 



83-67 



91-45 92-4* 



44-29* 
73-118* 
87-96* 
21-6 



44-30* 
73-131* 
87-100 
39-6 



44-33* 
73-132* 

40-4 



44-83* 
73-135* 



47-7* 
78-16* 



49-72* 
78-38* 



49-81* 
78-41 



41-27 41-46 41-70 43-4 



51-7* 
78-52* 

62-142 



62-8* 62-57* 62-132* 62-136* 
78-55* 82-6 82-61* 82-62* 



44-12 



84-22 
89-5* 



84-84 
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SEQ 374 



CSKIP7 
CURBN 



CUR6RP 

CURLBN 
CUROVL 

CURPBN 



CURPNT 
CURRBN 

CURTRK 



CURXBN 



CUTOF 
CVT 

CVTERR 

CVTSK 

CYL 

CYLBN 

CYLNUM 



OAOD 



0A001 

OASH 

DATA 

OATAGN 

OATBUF 

OATCON 

DATE 

OATERR 

OATLP 

0ATLP1 

0ATLP2 

OA TRET 

DATRT1 

DATVEP 

DATVLl 

DATVL2 

DAYS 

DBBAD 

DBBUFE 



47-114 

5- 97# 
56-20 

62- 74 
71-170 
86-32 
91-93* 

6- 33# 

63- 121 
5-99# 

5- 1 24# 
76-11* 

^-94# 
56-177* 
91-92* 

6- 42# 
5-92# 

78- 43* 
5-96# 

62- 82 
82-29 
89-13* 

5-1 00# 
86-98* 
88-128 
5-1 59f 
3-64# 
19-18 
19-5# 
3-259# 
3-78# 
5-1 09# 

63- 14 
88-24 

7- 1 9# 
61-27 
84-73 

7-24 
22-77# 
3-93# 

25- 21 
22-66# 
22-13 

5-1 82# 

26- 13 
25-9# 
25-29# 
25-4 5# 
25-41 
25-54# 

25- 38 

26- 31 
26-36 
22-80# 

5-1 87# 

79- 79 



47-118 
46-56* 
56-25* 

62- 87 
71-178 
86-42 
91-94* 
46-62* 
71-224 
73-40* 
15-10 
77-11* 
49-66* 
71-41* 
91-93 
88-9* 
52-100* 

19-12* 

63- 12 
82-79* 
90-24 
62-9* 
86-99 
88-154* 
39-15 
19-11 
19-20# 

62- 79 
19-13 
38-65 
38-151* 

63- 16 
88-25 

9-23 
62-122 
86-88 

7-26f 
25-12 
41-91 
25-40 
25-6 
25-4# 

25- 51 

26- 14 
25-17 
25-31 
25-47 
25-53# 

25- 60 

26- 1 2# 
26-33# 
26-39# 
37-6 
46-16* 
79-82# 



47-1 66# 

46-58* 

56-25* 

62- 89 
71-180 
86-44 

46-63* 

73-145 

73-42* 

15-29* 

78-9* 

49-70* 

71-42* 

91-94 

88-65 

52-101* 

46-75* 

63- 118* 
83-25 

62-11* 
86-100 
88-154* 



65-17 

19-14 

38-66 

38-152* 

63-112* 

88-115* 

24-13 

63-38 

87-85 



25-55# 

25- 19 

62-59 

26- 16 
25-34 



46-100* 

56-136 

62-120 

73-39* 

86-86 

46-66 

88-13* 

73-128* 

46-10* 

85-10* 

49-89* 

91- 6* 

92- 7 
88-74* 
56-54 

46-81 
65-20 
84-34 

62-133* 
88-5* 



82-78 89-12 



67-21 

19-22 

38-85 

46-64 

63-115* 

88-115* 

38-136 

65-62 

88-82 



46-101* 

58-12* 

62-134* 

73-41* 

86-99* 

46-104* 
84-26 
73-128* 
49-11* 

90- 7* 
49-89* 

91- 8 



56-56 

46-96* 

67-33 

84-87 

62-133* 
88-6* 



67-83 

82-80 

38-86 

46-65 

71-11 

88-116 

38-143 

66-38 

88-111 



25- 26 25-32 

26- 18 26-20 



49-23 

58-14* 

62-135* 

73-56 

86-^00* 

49- 40* 
88-70 
73-129 
52-8* 

50- 19* 
91-16 



47-131 

67-86 

86-37 

62-134 
88-34 



72-18 

82-81 

38-127 

46-109 

71-13 

88-117 

38-162 

67-72 

90-67 



26-21 



49-25 
61-5 
71-45 
73-67 

87- 10* 

49-44 

88- 89* 

73-130 
56-6* 

50''20* 
91-21 



49- 30* 
61-6 
71-49 
73-69 

87- 12* 

52-29* 

88- 102* 
87-11* 
58-9* 

50- 40* 
91-29* 



49- 30* 

61- 23 
71-53 
73-100 

87- 27 

52-30* 

88- 118 
87-13* 

62- 7* 

50- 41* 
91-33 



47-174 
71-9 

87- 31 

62-135 

88- 36 



73-57 

82-89 

38-128 

46-118 

71-217* 

38-183 

70-36 

91-24 



48-27 

7>223* 

88-18* 

71-90* 
88-62* 



75-19 

89-14 

38-129 

52-14* 

71-220* 

38-223 

71-60 

91-36 



26-34 26-40# 



52-42* 

72-21 

88-41 

71-91* 
88-62* 



75-84 
89-15 
62-15 

40-24 

71-125 

91-69 



50-15 

61-24 

71-75 

73-129* 

87-36 

52-33 

87-93* 
63-11* 

56-95* 
91-41* 



56-61* 56-61* 58-17* 58-18* 78-17* 



52-48 
73-21 
88-72 

71-93 
88-83* 



83-22 
89-23 
62-17 
52-19 
73-25 

50-12 
72-64 
91-86 



62-10* 
71-77 

f J- 1 jU* 

87-38 


JC-Vl * 

62-12* 
71-114 

8/-83 


5c-Vc* 

62-43 
71-116* 

oO-1t* 

87-94* 


50- lO 

62-73 
71-118 

oO-Jl 

87-95* 


52-104* 


54-266 


56-74* 


56-78 


87-93* 

o» » " 


87-94 

71 .A* 

f I— O" 


8?-95 

' J— O" 


7^-7* 


56-96* 
91-58 


56-103* 
91-67 


56-107* 
91-74* 


56-177* 
91-78 


78-18* 


78-34 


78-36 


78-43* 


52-82* 

73-60 

88-77* 


54-85 

73-144* 

88-94* 


54-255 

75-32 

88-103* 


55-27 
75-87 
88-133 


f I — 

88-84* 


oo— lO* 
88-113* 


OO— lO" 

88-114* 


OO TfO" 

88-126 


90-21 








86-22 
52-31 
73-138* 


86-24 
52-32 
73-Ul* 


88-19 

52-111 

88-20* 


88-21 

52-133 

88-22* 


50-14 
73-33 


50-16 
73-102 


50-35 
75-72 


50-37 
84-21 



26-41 
79-127 
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S£Q 375 



DBLEN 


79^78 






DBNCYL 




DfiNFM 


91-14 


DCLR 




OCNP 


11-1Af 


DCNP1 


11-19 




11-20 


DCHPS 


11-itO 


0CHP4 


11-''*f 


DOIV 


10-1# 


OOUHNV 


5-31 # 




37-80* 




38-UO* 




38-182 




A1-59* 




5A-126* 




61-14* 




64-10* 




71-93* 




75-23 




84-18* 


DEAD 


3-241 # 


DECALP 


81 -8# 


OECASC 


79-140 


DINIT 


3-57# 


DIS 


5-51 


OISCON 


13-170# 


OLERR 


76-20 


OLERT 


62-1 59f 


DLL 


3-225# 


OLLON 


29-10 


0LLDN1 


29-13# 


OLLFLE 


22-31 


OLLNO 


29-7 


OLLRET 


62-128 


0LLRT1 


62-130 


OMBUF 


5-1 79« 


OMBUFL 


3-269# 


DNUL 


9-1 # 




41-8 




92-44 


0OL8N 


38-8 


OONDLL 


62-48 


DONE 


3-65# 


OONFCT 


79-151 


OOMONE 


25-11 


0P6N 


49-18 


OPREA 


5-1 92# 




83-39 


OSUB 


8-2« 




52-109 




75-83 


OUPOVL 


3-31 4# 


OWRO 


6-1 6# 




38-10 



79-84# 

46- 11 
38-137 
91-16# 

5-75# 
71-51 
11-29# 
11-25# 

1:-35f 

11-37 
20-18 
20-15* 

37- 83 

38- 141* 
38-184* 
41-61 
54-129 

61- 15 
64-11* 
71-94* 

75- 25 
84-19 
14-25 
81-27 
81 -7# 
13-61 

5-66# 
17-16 

76- 28# 

29-9 
29-1 2# 
29-24 
29-4# 
29*8 

62- 147# 
62-141* 
16-17 

16- 18 
20-24 

47- 24 

38-11* 
62-149* 

17- 21 
79-155* 
25-13 
50-8* 
41-91* 
84-100 
10-27 
52-113 
84-83 
24-5 
38-198 
38-12* 



46-19 
46-32 

12-21* 
73-114 

11-36 



38-166 

20-16* 

38-24* 

38-142 

38-185* 

49-44* 

56-78* 

61-19* 

64-12 

72-7 

75-70 

91-23 

17-18 



13-191 
78-62 



46- 30 49-16 

47- 17 



77-60 77-71 91-9 



38-178 

20-17 

38-25* 

38-158* 

38-186 

49-45* 

56-79* 

61-20* 

65-6 

72-62 

75-81 

91-35 



13-210 



38-187 

20-21* 

38-30 

38-159* 

58-188* 

49-47 

56-81 

61-21 

65-60 

72-71 

75-92 

91-49 



41-62 

20-22* 

33-74* 

38-161 

38-189* 

49-49* 

56-83* 

61-23* 

65-69 

73-30* 

75-94 

91-60 



91-13 



61-16 

20-23 

38-75* 

38-163* 

38-190 

49-51* 

56-85* 

61-24* 

66-32 

73-31* 

81-10* 

91-68 



64-14 

24-6* 

38-76 

38-164* 

38-220* 

52-87* 

59-16* 

61-25* 

69-10* 

73-32 

81-11* 

91-85 



69-14 

24-7* 

38-107* 

38-165 

38-221* 

52*88* 

59-17* 

61-26 

69-11* 

73-1 1C 

81-13 

92-4* 



81- 14 
24-8 
38-108* 
38-174* 
38-222 
52-89 
59-18 
63-25* 
69-12 
73-111* 

82- 43* 
92-5* 



92-8 

37- 12* 

38- 109 
38-175* 
41-16* 
52-96* 
60-16* 
63-26* 
70-31 
73-112 
82-59 
92-6 



92-23 

37- 13* 

38- 133* 
38-177 
41-17* 
52-97* 
60-17* 
63-27* 
70-33* 
75-8* 
83-20* 



92-32 

37- 17 

38- 134* 
38-179* 
41-19 
52-98 
60-18 
63-30* 
71-90 
75-9* 
83-62 



92-54 

37- 78* 

38- 135 
38-180* 
41-58* 
54-121* 
61-13* I 
63-31 
71-91 
75-11 
84-17* 



47-56 


49-U 


71-82 


71-159 


71-185 


71-197 


71-206 












29-18* 
























16-28 
16-29 
37-19 
47-41 


17-11 

37-85 
49-48 


44-6 

38-32 
49-56 


62-40 

38-44 
56-82 


76-12 

38-56 
56-90 


78-10 

38-71 
59-10 


79-121 

f3-91 
60-10 


79-123 

38-111 
61-22 


93-7 

38-120 
91-22 


38-191 
91-34 


38-219 
91-59 


39-14 
91-84 


78-64 
























25-15 


25-18* 






















41-92* 

90-40 

24-9 

56-208 

87-9 


46-78 


47-171 


52-45 


54-252 


62-95 


65-36 


67-99 


72-37 


73-76 


75-101 


82-45 


58- 77 

59- 19 
90-12 


38-150 

60-19 

90-76 


40-26 
63-22 
91-11 


41-20 
65-71 
91-18 


46-99 
67-82 
91-66 


46-111 
71-17 


47-29 
71-31 


47-46 
71-235 


52-21 
72-73 


52-90 
73-38 


52-99 
73-113 


47-147 


54-101 


54-225 
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SEQ 376 



DXCH 


47-54« 


47-188 










DXCHEC 


46-95 


47-53* 










DXERR 


46-117 


46-120* 










DXFCP1 


49-84 


51-4* 










DXFCPG 


46-40 


46-46 


47-4* 








DXFORH 


46-12 


46-20 


46-29* 








DXTRK 


49-1 2# 








EAGAIN 


18-9« 


i: 16 










ECC 


3-61* 


21-13 










ECCCK 


21-6* 


47-144 


54-97 


67-48 


75-47 


84-49 


ECCF 


3-302* 


47-89 


47-142 


54-41 


54-95 


67-46 


ECHO 


3-56* 










EDC 


6-19* 


38-209 


56-13 


83-3 






E IMAGE 


5-152* 


38-224* 


48-31 


48-34 


49-58 


49-86 


EHAX 


5-147* 


41-23* 


52-62 


ENTRY 


5-4* 










EORCT 


70-14 


70-41* 










ER1 


47-140 


47-146 


47-148 


47-154* 






ERCV 


3-75* 


41-28 






ERDN 


3-240* 


17-8 


17-10 








EkECOV 


5-57 


5-85* 


17-25* 








ERFLAG 


5-143* 


47-55* 


47-159* 


47-169* 


54-7* 


54-199* 


ERLEN 


3-297* 


54-174 


63-108 




ERPNT 


5-170* 


41-13* 


52-69* 


5A-171 


54-200 


54-210* 


ERR 


5-149* 


47-54* 


47-102* 


47-109* 


47-165* 


47-167* 


ERRBUF 


5-146* 


41-12* 


52-69 


63-23 


ERRCNT 


6-25* 


46-15 


46-17* 


46-23 


46-25* 


47-160* 


ERRHND 


17-25* 


62-111 


65-51 


67-63 


67-115 


72-53 




90-56 






ERRMNT 


12-72 


13-49 


13-72 


13-115 


13-221 


14-30 




62-159 


65-78 


66-54 


67-127 


70-52 


72-79 




89-24 


90-83 






ERROR 


62-126 


62-157* 










ERRSYN 


3-74* 


21-7 


43-5 


43-7* 






ERRT 


13-48* 


13-57 


13-59 






ERRTBL 


93-12 


94-4* 








EXTFCT 


22-25 


35-6* 










EXTRET 


35-9 


35-23* 










EXTRT1 


35-20 


35-24* 










F1 


3-192* 


38-9 


46-10 


75-133 


77-86 




F2 


3-193* 


38-11 


52-8 


62-147 




F3 


3-194* 


46-26 


62-7 






F4 


3-195* 


52-66 


52-121 


63-11 






F5 


3-196* 


52-80 


71-8 


73-6 






F6 


3-197* 


57-8 


71-22 


71-37 


71-214 


71-237 


F7 


3-198* 


52-77 


71-32 




F8 


3-199* 


52-43 


56-6 








F9 


3-200* 


71-200 


71-209 


71-245 


77-47 


86-13 


FBOHO 


3-150* 


56-158 




FBEG2 


71-41* 


71-205 










FBEGIN 


71-36* 


71-198 


71-202 








FCFXLP 


90-72* 


90-78 








FCLR 


3-127* 


40-7 


41-48 


41-72 


62-145 




FC«S6 


5-189* 


62-41 


76-13 




fCNT 


5-161* 


46-14 


46-18 


46-22 


46-42* 


49-73* 


FCPG 


56-180 


57-4* 





86-61 
75-45 



49-94 



87-56 
84-47 



55-31 



86-59 
55-34 



87-54 
56-92 



56-174 56-m 



54-6* 54-55* 54-61* 54-217* 54-220* 



52-124 
73-91 

17-8* 
73-161 



54-152* 54-212* 88-4* 
75-62 75-117 83-55 



19-23 
75-138 



30-50 
76-30 



31-15 
77-94 



88-75* 
84-64 

32-32 
82-90 



88-97* 
84-116 



88-161* 
86-76 



87-71 



44-88^ 46-120 52-135 
84-128 86-106 87-101 



77-14 77-53 



86-7 
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SEO 377 



FCTAVL 

FCTBAD 

FCTCK 

FCTCKO 

FCTCKE 

FCTCL1 

FCTCLP 

FCTCNT 

FCTCPV 

FCTEHT 

FCTFLG 

FCTFHT 

FCTNOT 

FCTNPO 

FCTPTR 

FCTRCT 

FCTREV 

FCTRLP 

FCTSK1 

FCTSKP 

FCTSLP 

FCTSP 

fCTSZ 

FCTUSD 

FCTWRT 

FCUERR 

FDAT 

FOLL 

FERR 

F I DANS 

FIDNUL 

FILLIT 

FINCNK 

FINDON 

FINI 

FINLEN 

FINLM1 

FINMSG 

FIXBLK 

FIXFCT 

FIXIT 

FIXLP 

FKIP1 

FKIP10 

FKIP2 

FKIP9 

FKP1 

FLAG 



FLA61 



3-21 6# 
3-223# 

85- 12 

86- 85 
86-93 
86-30« 
86-28# 

5-1 74# 
76-29 
5-1 64# 

84- 70 
3-220# 
3-280« 
5-1 62# 

79-22* 
5-1 76# 
5-1 73# 

71 -8# 
5-1 84« 

90-1 4# 

71-89 

71-83 

71-160 

71-35 
3-91 # 

79-1 6# 

90-7# 

90-71 
3-279# 

62-5# 

46- 89 

29- 5 
34-15 
71-70 

85- 1 0# 
33-14 

3-229# 

30- 6 
33-1 2# 
79-1 0# 

73- 117 
71-92 

47- 65 

74- 1 5# 

48- 21 
48-39 
48-15 

55- 39 
48-33 

5-141# 
46-19* 
52-120* 

56- 118* 
71-206* 

5-142* 
25-16* 



35-10 

75-131 

86-4« 

86-94# 

86-1 04# 

86-92 

86-102 

46-39* 

77-12* 

40-8* 

86-91 

46-48 

62-38* 

40-10* 

79-24 

38-192* 

71-39* 

46-13 

90-69 

71-96# 

71-95 

71-166# 

71-207 

40-10 

79-18 

90-81 « 
62-63 

46-1 15# 
34-1 2# 
34-20* 
71-178# 

33-18 

52-120 

33-1 0# 

33-20 

79-12 

74-6# 

71-233* 

48-6* 

74-18 

48-30* 

48-42* 

48-17 

55- 42* 
48-36 
12-61* 
46-30* 
54-8* 

56- 120* 
73-107* 
12-39* 
25-16* 



38-7 
77-89 



46-45* 

77-51* 

62-123 

87-88 

49-61 

77-26 

40-11* 

79-148 

38-193* 

71-40 



52-9 



56-97 62-141 75-152 77-16 77-55 77-90 



49-83* 

86-4* 

62-125 

90-68 

49-75 



71-15 

86-15* 

62-138* 

90-70 

56-99 



62-121 62-139 



62-136 
71-84 



86-5* 
71-161 



47-182 

35-7 

34-22 



33-21* 
63-119 



79-114 



36-7 



48-22* 

48-38* 

12-67* 

46-36* 

54-109* 

56-127* 

74-19* 

12-41* 

25-16* 



13- 25* 
46-48* 
54-119* 
57-5* 
75-129* 

14- 25* 
25-25* 



13-42* 

47-56* 

54-122* 

62-21* 

75-131* 

17-8* 

25-59* 



71-20* 
86-97* 
62-146* 

56-112 

67-81 

86-101 
71-187 



46-18* 46-21 46-43* 77-82* 

71-100* 
71-211* 
79-152 



13-50* 

49-14* 

54-153* 

62-127* 

75-132* 

17-10* 

27-12* 



71-212* 
86-101* 
65-63 

57-5 

75-71 



13-52* 

49-16* 

54-186* 

62-129* 

77-16* 

17-18* 

28-17* 



71-233 
86-105 
65-65 

77-32 

75-82 



71-192* 71-203 



13-74* 

49-61* 

54-191* 

62-141* 

77-32* 

23-7* 

28-24* 



71-247* 71-247* 75-8 
90-10 90-65 90-74 
67-69 72-65 72-67 



75-125* 75-127* 76-15 
90-79* 90-79* 
73-103 73-105 75-68 



84-82 86-87 90-66 90-75 



29-9* 

49-75* 

56-15* 

62-155* 

77-55* 

23-19* 

29-M* 



29- 18* 
52-9* 
56-26* 
63-119* 
77-84* 
23-21* 

30- 7* 



35-10* 

52-71* 

56-30* 

71-82* 

77-89* 

25-7* 

30-34* 



36-10* 

5?-73* 

56-97* 

71-159* 

77-90* 

25-9* 

30-42* 



38-7* 

52-74* 

56-99* 

71-185* 

79-146* 

25-9* 

30-44* 



46-11* 

52-75* 

56-112* 

71-197* 

86-94* 

25-9* 

36-12* 



1 
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CROSS REFERENCE 


TABLE (CREF V04.00 


* 
) 




1 WW* 


54-123* 


54-150* 


54-172* 




7i-1 ?6* 


73-157* 


79-138* 


81-17* 




88-160* 








n IP 


70-10 


70-1 7# 

r W 1 r W 






Fl IPfiN 




30-7 


30-34 

WW W^ 


30-42 


FLICIPI 


55-21 


55-30# 


55-22# 






55-15 


55-17 






55-33 


55-36 


55-38# 








23-41 






FMTSTA 


22-53# 


22-55 


23-40 






75-77# 


75-124 






FQLOOP 


75-1 i/r 


75-75 


54-263 




FQRFRR 


52-56 

^W 


52-1 30# 


5«-5 1 


FORMAT 


3-49# 


46-84 


47-177 




3-250# 


54-172 


S6-129 

WW 




FRCPY 


3-71# 


40-5 


62-143 

W& I ^w 




F RDONE 


71-194 


71-206# 






FRSKP 


71-196 


71-203# 


77-39 




FSER 


3-276# 


62-28 




FT.BUF 


3-1 4# 


54-143 


54-146* 


54-167 




3-1 6# 


47-115 


47-155 


4r-l58* 




54-190* 


54-197* 


54-203 




FT LOU 


3-1 5# 


54-126 


54-201 


56-1 T* 




90-47 


90-62f 






FURD 


6-1 3# 


38-201 

WW WV I 


54-228 

W^ WW 




CUT DON 


90-73 


90-79f 






W 1 


3-208# 

^ K WO>v 


23-43 




ro-ll 


G2 


3-201 # 


47-5 


51-5 


G3 


3-202# 


52-11 


77-11 




G4 


3-203# 


52-127 


78-9 




G5 


3-204f 


71-43 






G6 


3-209# 


17-14 






G7 


3-205# 


46-76 


49-11 




G8 


3-206# 


52-23 


58-9 




GCR 


5-49 


5-63# 






GDBLK 


3-340f 


38-197 


49-21 


5h-100 


GDECC 


21-17 


21-19' 






GDONE 


44-41 


44-71 # 




30-5f 


GENCON 


25-20 


27-5 


28-5 


GETUNT 


44-6# 


45-7 




f f — 


G06AD 


3-221 # 


36-10 


75-129 


COVER 


44-1 2# 


44-22 


44-32 




G0VER1 


44-9# 


44-85 






GRP 


3-260# 


19-15 


82-82 


89-16 


GRPCNT 


6-34# 


46-60* 


46-61 * 


46-62 


GRPCVL 


3-894r 


38-26 


46-60 


52-26 


GSKIP 


44-51 


44-54 


44-57 


44-59# 


GSiClPI 


44-18 


44-23# 






GSK I P2 


44-28 


44-33# 






GSKIP3 


44-39 


44-42# 






GSR 


5-50 


5-64f 


12-36 


HH-r6* 


GST 


5-48 


5-62* 


13-162 




GSTATS 


12-12# 


13-73 


7 


GTFLAG 


3-247# 


25-7 


25-9 


25-9 


HI 


3-207# 


63-40 


66-40 


67-7 


H2 


3-21 Of 


78-59 


85-10 





54-184* 
81-20* 



54-185* 
81-25* 



54-194* 
81-28* 



54-204* 
88-52* 



54-218* 
88-59* 



54-238* 
88-61* 



56-128* 
88-76* 



56-129* 
88-144* 



56-184* 
88-151* 



SEO 378 



56-186* 
88-153* 



30-42 30-44 79-138 81-17 81-20 81-25 81-28 



54-170* 54-248 

49-76 49-79* 

56-23* 56-59* 
56-55* 



54-251* 56-17* 
54-67 54-113 
56-114 56-130 



56-53* 
54-117 
56-133* 



56-150* 
54-125* 
56-160 



56-189* 

54-156 

56-163* 



54-162 
56-167 



54-165* 
56-170* 



54-187 



56-16 56-44 56-188 83-2 



83-28 



46-105* 52-28* 
88-11 92-29 



52-105* 88-11* 88-12* 88-95* 



25-9 
70-38 



71-62 71-127 



C 14 
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CPCSS REFERENCE TABLE (CREF V04.00 ) 



SEQ 379 



HASH 
HO. BAD 
HD.CLR 



HO. CUR 

HO.OBN 

HO. LBN 

HO.PRV 

HD.RBN 

HD.REV 

HO.XBN 

HEAD 

HERE 

HGHPBN 

HIIBYT 

HI2BYT 

HIBYTE 



HKIP 

HKIP1 

HOLO 

HOLOBN 
HOLOPN 
HOLRBN 
HPREA 

HSLIM 

HSTHI 
HSTLO 
IMAGE 



IMLEN 

IHSTAR 
INOSEC 
INI 

INIRCT 

INIT5 

INI TOO 

INITIT 

INITL 

INITP1 

INITPT 

INPEL 

INPERR 

INST 

IRECAL 

I SEEK 



69-4t 
3-U4# 
3-U6# 

54-206 

63-104 

89-9 
6-32# 
3-1 47# 
3-141# 
3-1 45# 
3-1 42# 
3-1 43# 
3-1 48# 
3-94# 

*7-112# 
5-T25# 
3-1 25# 
3-1 24f 
3-1 22# 

41-92 

61-12 

91-80 

69-8# 

69-5 
5-1 50# 

73-37 
5-1 03# 
5-1 07# 
5-1 05# 
5-1 91 # 

84-99 
5-29f 

83-36 
3-1 91 # 
3-1 90f 
3-348# 

48-8 

56-11 
3-306# 

56-173 
5-190# 
3-263# 
5-166# 
3-228# 

13-190f 

13-213 

13-186# 

38-6 

13-212# 

13-158 

22-61* 

22-59# 
i'2779 
5-56 
5-55 

63-121* 



71-54 

47-157 

38-67 

56-21 

71-79 

91- 6 
46-49* 
46-49 
54-69 
54-124 
54-71 
54-164 

46- 52 
41-93 

47- 163 

40- 29* 
20-20 

41- 37 

12- 18 
41-95 
65-9 

92- 21 
69-23 
69-20# 
63-18' 
73-39 

46- 55* 
56-95 
52-93 
41-96* 
90-39 

47- 80 
84-24 
16-8 
16-7 
32-12* 

48- 35 
56-67 
41-4 
56-195 
46-80 

18-7 
52-71 

13- 201 
13-215 
45-6 
45-5# 
13-217 
13-209# 
23-24 
22-61 
62-36* 

5-84# 
5-80« 
71-218* 



71-119 

49-78 

38-87 

56-57 

71-108 

91- 27 

46- 52* 
48-16 
55-14 
54-158 
54-115 
54-181 
48-U 

47- 168 
40-30* 
38-51 

20-14 

43-6 

67-18 

92- 30 



34-1 OT 


56-1 6V 


63-*tO 


fifi_C7 

oo-3f 
















A4-JO 




Z7— 1 C/L 


*»T-tO 


hV-Ot 


ZQ_77 


C5-1 B 


IB 

3«i-1 lO 


CAPIAT 


5<i- lOU 


5<i— lOo 


56-1 06 


50-151 


CiL_1 ill 

50"lOl 


50-1 OO 


CQ_7 

5V-r 


ilA— 7 
OU-f 


0j-3U 


03-5c 


03-00 


03— Oic 


03-T£ 


r 1-1 15 


71 _1 XL. 


f 1 — \ Hc 


f 1 - 1 30 


f 1 — 1 f "1 


f 1 loc 


f f -00 


f 0-3 1 


ft3-7C 


ftft.Cil 
OO— >0 


flft^lAft 

OO— i*»o 


▼1— 3y 


yi-f C 


Q1 _OA 
T I— tU 


















47-117 


49-27 




















Vl-cO 






















56-22 


65-31 


71-47 


72-32 


73-71 


87-40 


91-91 










3h— 1 f f 


30-1 JC 


Oj ' t 


















54-134 


54-244 


55-16 


56-58 


56-116 


56-142 


71-112 


82-9 


83-34 


91-73 




54-196 


54-207 


56-162 


78-32 


So— do 


OO— 1 3M 












6t-W 


7C_97 


7C_aii 
r 5— TO 


oO-h3 




Tl— 








77-S9 


77-70 


91-7 


















38-98 


52-95 


56-41 


60-15 


61-18 


83-7 


91-54 










25-9 


30-16 


33-13 


34-14 


38-23 


38-27 


38-39 


38-100 


38-139 


39-9 


41-29 


46-34 


46-61 


46-72 


47-19 


49-36 


52-27 


52-59 


52-86 


56-9 


56-71 


59-15 


72-11 


73-47 


82-18 


83-11 


84-15 


87-19 


88-12 


88-16 


88-92 


91-48 


91-62 


92-38 























63-19* 


63-21 


63-37 


66-37 


70-35 


71-27* 


71-28* 


71-30 


71-59 


71-124 


73-34* 


73-35* 


73-40 


73-41 


73-42 


84-20 


87-5* 


87-6* 


87-8 


87-10 


87-11 


87-12 


87-13 




46-57* 


46-97 


46-100 


46-101 


52-83 


52-91 


52-92 


58-13* 


58-15* 


71-50 






56-96 


56-206 


61-28* 


61-29* 


















52-100 


52-101 


58-19* 


58-20* 
















83-38 


46-79 


47-172 


52-46 


54-253 


62-94 


65-35 


67-98 


72-36 


73-75 


75-100 


82-44 


47-122 


54-32 


54-76 


62-92 


65-33 


67-23 


67-96 


72-34 


73-73 


75-21 


75-98 


82-41 


84-97 


86-47 


87-42 


88-43 


88-135 


90-37 














24-12 
























32-13* 


32-14* 


32-15* 


32-18 


32-21 


32-24 


32-27 


38-220 


41-10 


46-83 


47-111 


47-176 


48-37 


49-13 


49-37 


49-88 


52-50 


54-63 


54-155 


54-240 


54-257 


55-8 


55-35 


55-37 


56-176 


71-236 


71-239 


71-244 


















47-166 


48-40 


49-53 


49-85 


49-95 


54-160 


54-219 


54-246 


55-40 


56-24 


56-60 


56-87 


47-173 


49-60* 


49-93 


49-102* 


52-47 


54-254 


56-94* 


56-193 


56-202* 









52-74 
13-219# 

46-90 

23-23 
77-35 

19-13* 
71-221* 



56-30 



47-183 52-57 54-264 



77-37* 

19-14* 
71-224* 



19-15* 
73-139* 



46-64* 
73-142* 



145* 



46-66* 52-31* 52-32* 52-33* 54-266* 63-113* 63-116* 
82-80* 62-81* 82-82* 88-24* 88-25* 88-26* 68-116* 



J 



0 14 
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CROSS REFERENCE TABLE (CREF V04.00 ) 



SEO 380 





88-1 17* 


88-118* 


89-14* 


89-15* 


89-16* 


ISKIP 


39*1 y 


39-22* 








L AGAIN 


54-22* 


C/ CO 

54-58 








LAST 


3-308# 


49-104 


CA OA/ 

56-204 


56-31* 


/^y-i 1 7 


LBNBAO 




C^ < 

52-125 


CO_1 oz^ 
52-126* 


LBNCYL 


5-!l9# 
90-17 


38-127* 


7B «9Aa 

38-1 30* 


CO_1Z 

52-14 


52-15 


LBNFND 


91-52 










LBNHOS 


3-88# 


38-7<» 


38-75 


/A- OA 
hO-20 


hO-2 I 


• Bui bu 

LBNLoN 


5-1 15# 


38- f 2* 


38- r 3* 


B7_C 
Of-5 


8»-0 








LBNPCY 


5-120* 


3B-*5* 


38-hO* 


38- fO 


CO.O 
j7— 7 


LBNTRK 


3-o4f 


20-13 


38-38 


38-77 


52-85 




Of-lO 


Qi — /.7 
7l -Hf 


71—01 


7 1 — r 7 


1 Bl IC C 


79-38 


f y— hi# 








LCHEC 


52-70 


C/ _A« 


C/ _07A 
5H-2f 0 






LDONE 




CZ_OOT 

5h-223 


5H-2f 1* 






LEN 




1 A_0 
16-T 








LcRl 


54-99 


C/_i AO 

54-102 


CZ_1 A7 

5H-10r 


5^-107* 




LcRc 


C/ _1 Irt 


5h-1 1 3w 








LcR3 




CA_1 AfliI 








LERR 


5<i-3t 


C/-.AO 

5*-^2 


CA_A yjl 






Lf CTNT 


7V-2h# 










LFCTUS 


rv-10# 


70_1 CT 

f 7-153 








LFERR 


CI 1 YO 

52-132 


CO 47C« 

52-1 35# 








LFINPS 


79-1 2# 


70_i i c 
77-115 








Lr IXiT 


C/ 4 7 

54-17 


CC AM 

55-o# 








Lf ORn 


52-0* 




54-221 






LHcRc 


C/ —t^LM 


C£_01C 
5*»— A 15 






1 W TBI A 


50-1 fV 


50-lOlw 








1 W f Dl O 


50-l 1 1 


50—1 1 J* 








1 V f 

LKIr2 


CiL_1 Ail 

50-1 0# 


50-3* 








LKIr20 


50-hOw 


50-^7 








1 V t B^4 


50-52# 


56-63 


<A«0£* 
50 7W 








50- f 3 


50— f 5 








50"O3» 


CA— fiA 

50— OO 








1 V f DO/ 


CA_SZ 

50-o4 


CA_A7il 

50"Of * 








LKIr^3 


CA_1 1 7 

50-1 1 f 


50—120* 








LKIrir 


50-y'» 


50—1 02 








LKIr<5 


50-to 


CA.1 AA 
50— 1 00 


CA— 1 SZif 
50 1 OHW 






LKIPgy 


50-1 f 5 


CA_1 77JI 
50-1 f fm 










50-1t» 


CA.OAOA 

30— cUe* 








LKIrjl 


50-2vl 


30—203* 








1 V t DTT 

LKIrjj 


50- IW 


CA»10X« 
50 I7J* 




30—103 


CA«173 
30 1 ' 2 


1 V r DA 


CA_1 AA 

50-1 w 


CA.1 Aft 
30— 1 OO 


50-135 


1 V ff DC 


50-120 


50-1 50* 








LKIPf 


CA— ISC 

50-105 


50-172* 








LKIP8 


CA_/ tji 
56-43* 










LICIP9 


56-27 


56-29 


56-32# 






1 1 CM 

LLcN 




rT— h3* 












55-43 




54-56# 




LNOERR 


54-24 


54-46 


54-51 




LO 


3-1 26# 


38-146 


44-43 


47-116 


48-13 


63-75 
84-9 


65-13 
87-23 


66-13 


67-12 


70-12 


LOAD 


12-46 


13-85# 









52-16 52-17 59-5 59-6 60-5 60-6 



75-12 75-15 90-14 



50-11 
56-8 



50-31 50-32 63-18 63-19 71-27 71-28 73-34 75-35 
59-14 61-11 65-8 67-17 72-10 73-46 82-17 85-10 



54-68 
71-46 



54-114 54-157 54-176 54-243 55-13 
71-68 71-133 71-144 72-14 73-50 



56-115 63-47 63-54 
78-25 82-22 83-14 



E U 
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SEQ 381 



L0AD2 

LOADS 

LGAOA 

LOADS 

LOADER 

LOBL 

LOBVTE 

LOK 

LONGTO 

LOOP 

L00P1 

L00P2 

L00P3 

LOOPP 

L00PP2 

LOVER 

L0VER1 

L0VER2 

L0VER3 

LOVERA 

LPBN 

LRBN 

LREDO 

LSKIP 

LSKIPI 

LSKIP2 

LSICIP3 

LSKIP4 

LSKIP6 

LSICIP7 

LSKIP8 

LSICIP9 

LSNO 

LTO 

LTRK 

H.ER1 

n.ERIO 

H.ER11 

M.ER12 

M.ER13 

N.ERU 

N.ER15 

n.ER16 

H.ER17 

N.ER18 

n.ER19 

M.ER2 

n.ER20 

n.ER21 

N.ER22 

n.ER3 

N.ER4 

H.ER5 

n.ER6 

H.ER7 

n.ERS 



13-9A 

13-1 Git 

13-106 

13-81 

13-9? 
3-31 5# 
3-1 23# 

54-106 
3-73# 

62-23 

13-15# 

13-26 

62-1 52# 

62-58 

62-39 

54-231 # 

54-260 

54-239 

54-245 

54- 242# 
58-21 
91-10 

55- 32 
54-9 
54-1 8f 
54-13 
54-193 
52-53 
54-96 
54-66 
54-70 
54-205 
54-151 

5-1 68# 

56- 6# 
93-1 9# 
93-46# 
93-49# 
93-52f 
93-55f 
93-58# 
93-61« 
93-64# 
93-67# 
93-70# 
93-73# 
93-22f 
93-76# 
93-79# 
93-82f 
93-25f 
93-28# 
93-31 f 
93-34f 
93-37# 
93-40# 



l3-99# 

13-108 

13-110# 

l3-88# 

13-109 

81-31 

21-8 

54-21 4# 

41-47 

62-40# 

13-75 

13-28# 

62-154 

62-70# 

62-55# 

54-235 

54-269# 

54-252* 

54-248# 

54- 247 
61 -5# 
91-45# 

55- 37# 
54-1 4# 
54-60 
54-1 7# 
54-213 
52-61 # 
54-1 00# 
54-72 
54-73# 
54-209# 
54-192 
13-100 

94-4 

94-21 

94-23 

94-25 

94-27 

94-29 

94-31 

94-33 

94-35 

94-37 

94-39 

94-5 

94-41 

94-43 

94-45 

94-7 

94-9 

94-11 

94-13 

94-15 

94-17 



13-98 
13-113# 

33-17 
62-140 



62-124 
62-156 



54-268 



54-21 6# 



54-21 8# 



54-1 99f 
41-63* 

94-5 

94-22 

94-24 

94-26 

94-28 

94-30 

94-32 

94-34 

94-36 

94-38 

94-40 

94-6 

94-42 

94-44 

94-8 

94-10 

94-12 

94-14 

94-16 

94-18 



41-64* 



94-23 

94-25 

94-27 

94-29 

94-31 

94-33 

94-35 

94-37 

94-39 

94-41 

94-7 

94-43 

94-45 

94-9 

94-11 

94-13 

94-15 

94-17 

94-19 
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SEO 382 



H.ER9 

H512 

H576 

HAINTR 

HAINTU 

HANU 

HARBAO 

MASK 

MAX TRY 

MENTLN 

HLEN 

HNCNT 

MORE 

nsGi 

MSG1LN 

nSG2LN 

MSGALN 

nSGSLN 

nS66LN 

MSG7LN 

MSGLOP 

nSGLP2 

MSGLP3 

MS6LP4 

MSGOFF 

MSGTBL 

nULON 

WJIER1 

nULERR 

«ULPC 

nULTIO 

HULT2 

N 

N1 

NOLL 
NEXT 
NEXT1 

NEXT5 

NGD 

NG01 

NNI 

NO 

NOCERR 

NOCRY 

NODLL 

NOERR 

NOFCT 

NOGOOO 

NOINC 

NOLBN 

NOSEK 

NOTHER 

NOTR 

NOTY 

Nun 



93-4 3# 
3-3 !0# 
3-31 1# 
3-62# 
3-63# 
3-224# 

56-119 
3-322# 
3-31 3# 

22"70# 

22-69# 
5-1 78# 

48-1 2# 

13- 21 
22-14 
22-20 
22-44 
22-26 
22-38 

22- 32 

23- 7# 
23-26 
23-31 # 
23-22 
22-71 # 
22-1 2# 

31- 11 

32- 29 
31-12 

5- 34# 

30- 33 

31 - 6# 

6- 27f 
6-28# 
3-227# 

14- 8# 

5- 1 65# 
73-55* 
U-llf 
77-17 
77-28 

6- 29# 
62-102 
30-23 
18-13 

62- 22 
47-72 

3-281 f 
73-82 

70- 20 

71- 48 
65-120 
44-11 

63- 49 
34-18 

6-1 If 



94-19 
77-20 
77-22 
16-19 
16-30 

47- 56 
56-123 
44-42 
82-53 
25-58 
23-9* 
71-25* 

48- 43 

13- 25# 
22-17* 
22-23# 
22-47* 
22-29* 
22-41* 

22- 35* 

23- 36 
23-28* 
23-33 
23-27* 

29- 21 
23-5 

31- 13* 

32- 31* 

31- 14* 
9-18* 

32- 11* 
32-11 
47-58* 
47-59* 
62-129 
23-44 
62-56* 
73-97* 

14- 20 
77-25 
77-89* 
47-60* 
62-117* 

30- 25 
18-15* 
62-24* 
47-94 

62- 37 
73-97* 

70- 22* 

71- 112* 

63- 123* 
44-21 
63-72* 
34-21* 
47-91 



94-20 
86-10 

23-11 
23-14 
49-14 
56-159 



27-11 
23-27 
71-34 



94-21 

23-25 23-42 79-116 79-142 79-150 79-154 88-166 93-15 



56-166* 



28- 16 29-22 

29- 20 29-23* 
71-193* 



35-18 
30-52* 



35-16 35-19* 



35-17 



9-19* 


9-20 




32-16 


52-17 




47-62* 


47-107* 


54-10* 


47-60 


47-65* 


47-64 


62-155 




52-128 


38-12 


46-27 


62-117* 


62-125* 


65-5* 


73-103* 


86-29* 


86-85* 


77-56 


77-84* 




47-64* 


47-164 


54-12* 


50-27 


30-29 


50-51* 


47-99 


47-104* 




77-27 






44-51 


44-58 


44-61 


54-45 


54-105 





54-14* 54-59* 

47-162* 47-164* 54-11* 

62-148 75-134 77-87 

65-57* 65-63* 65-67 

86-91* 87-16* 87-78* 



54-16* 54-216 



54-12 54-15* 54-16 54-214* 54-216* 



65-72* 
87-88* 



72-6* 
90-9* 



72-59* 
90-62* 



72-65* 
90-68* 



72-69 
90-72 



72-74* 
90-77* 
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SEQ 38. 



NUMDBN 
NUNLBN 
NUMRBN 
NUnXBN 

OCOONE 

OCLOOP 

OERR 

0ERR2 

OFATAL 

OFFS 

OFFSET 

OK 

OLDONE 

ONE 

ONLIN 

ONLINE 

OQUIT 

ORFTAL 

OV... 



OVCNT 

ove.Fi 

0VE.f2 

0VE.F3 

0VE.F4 

0VE.F5 

0VE.F6 

0VE.F7 

0VE.F8 

0VE.F9 

0VE.G1 

OVE.62 

0VE.G3 

0VE.64 

0VE.G5 

0VE.G6 

0VE.67 

0VE.68 

0VE.H1 

0VE.H2 

OVE.MN 

OVER 

OVERT 

0VER2 

OVL... 



0VL.F1 
OVL. F2 
0V> .F3 
OVL. FA 
0VL.F5 



46-50 
58-11 
58-16 
A6-5A 
67-77# 
67-20# 
U-13 
U-18 
75-69 
3-77# 

5- 36# 
A7-153 
75-80 

6- 36# 
13-T78# 

5-58 
75-128 

67- 70 
5-3 

49-10* 
62-5 

68- 7« 
77-7 
90-2# 

3-187* 

46- 8* 
52-5* 

62- 5* 

63- 2* 
68-7* 

75- 2* 
73-2* 
56-2* 

90- 2* 
38-5* 

76- 7* 

77- 7* 

78- 5* 

91- 2* 
93-5* 
49-10* 
58-6* 
67-2* 
85-2* 

5-3* 
38-201* 

47- 179 
47-171* 

5-3 

62-5 

77-7 
5-205 
5-208 
5-211 
5-214 
5-217 



47-17* 

59- 5* 

60- 5* 
47-37* 
67-122 
67-75 
14-17* 
14-24* 
75-127* 
49-34 
63-43 
47-162* 
75-125* 
38-149 

45- 8 
5-87* 

75- 130 
67-125* 

5-3 
52-5 

62- 5 
73-2 
77-7 
91-2 
24-4 
49-10 
56-2 

63- 2 

67- 2 
73-2 

76- 7 
75-2 
58-6 
91-2 

46- 8 

77- 7 

78- 5 
85-2 

93- 5 

94- 46 
52-5 
62-5 

68- 7 
90-2 
38-5 
38-208 

47- 187* 
47-186 

5-3* 

62- 5* 
77-7* 
49-10 
56-2 

63- 2 
67-2 
73-2 



15-40 

56-69 
66-7 



92-36 
66-36* 



40-25 46-110 



75-136* 

5-3* 
52-5 
62-5* 
73-2 
77-7* 
91-2 



38-5 

63-2 

78-5 

49-10 

56-2 

63-2 

67-2 

73-2 



38-5 
52-5 
63-2 
73-2 
78-5 
91-2 



38-5* 

63-2* 

78-5* 

49-10* 

56-2* 

63-2* 

67-2* 

73-2* 



70-6 
52-20 



38-5 

52-5* 

63-2 

73-2* 

78-5 

91-2* 



46-8 
67-2 
85-2 



70-34* 
52-108 



38-5 
56-2 
63-2 
75-2 
78-5 
93-5 



71-65 
52-112 



38-5* 

56-2 

63-2* 

75-2 

78-5* 

93-5 



71-130 
71-16 



46-8 
56-2 
67-2 
75-2 
85-2 
93-5 



46-8* 
67-2* 
85-2* 



49-10 

68-7 

90-2 



49-10* 

68-7* 

90-2* 



90-11 



46-8 

56-2* 

67-2 

75-2* 

85-2 

93-5* 



46-8 
58-6 
67-2 
76-7 
85-2 
94-46 



46-8* 

58-6 

67-2* 

76-7 

85-2* 

94-46* 



49-10 

58-6 

68-7 

76-7 

90-2 



49-10 

58-6* 

68-7 

76-7* 

90-2 



49-10 

62-5 

68-7 

77-7 

90-2 



52-5 
73-2 
91-2 



52-5* 
73-2* 
91-2* 



56-2 
75-2 
93-5 



56-2* 
75-2* 
93-5* 



58-6 
76-7 
94-46 



58-6* 
76-7* 
94-46* 
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SEQ 38^ 



0VL.F6 

OVL. F7 

0VL.F8 

0VL.F9 

0VL.G1 

OVL. 62 

0VL.G3 

0VL.G4 

OVL, 65 

0VL.G6 

OVL. 67 

OVL. 68 

OVL, HI 

0VL.H2 

OVL.PM 

OVLBLK 

OVLEN 

OVLTBL 

OVRLAY 

0VS.F1 

OVS. F2 

0VS.F3 

OVS.FA 

0VS.F5 

0VS.F6 

0VS.F7 

0VS.F8 

0VS.F9 

OVS. 61 

OVS. 62 

OVS. 63 

OVS. 64 

OVS. 65 

OVS. 66 

OVS. 67 

0VS.G8 

0VS.H1 

0VS.H2 

OVS.FW 

PAERR 

PA6AIN 

PAGE 



PA6ER 

PALPI 

PALP2 

PALP3 

PALPA 

PARIT1 

PARITY 

PARMTB 

P6NBUF 

PPUFE 
PCNT 



5-220 
5-223 
5-226 
5-229 
5-253 
5-232 
5-235 
5-238 
5-241 
5-256 
5-24A 
5-2A7 
5-250 
5-259 
5-3 

5-262# 
3-1 88# 
5-205* 
U-11 
5-206 
5-209 
5-212 
5-215 
5-218 
5-221 
5-224 
5-227 
5-230 
5-254 
5-233 
5-236 
5-239 
5-242 
5-257 
5-245 
5-248 
5-251 
5-260 

5- 5# 
15-18 
70-7# 
15-10# 
66-41 
77-48 
15-21 
15-15* 
15-17 
15-35 
15-33# 

3-1 33# 
3-132* 

79-4* 
3-339* 

77-57 

79-48 

6- 47* 



76- 7 
75-2 
58-6 
91-2 
46-8 

77- 7 

78- 5 
85-2 

93- 5 

94- 46 
52-5 
62-5 
68-7 
9C-2 

5-3 
62-49» 
24-14 

14- 8 

15- 15 
46-8* 
52-5* 

62- 5* 

63- 2* 
68-7* 

75- 2* 
73-2* 
56-2* 

90- 2* 
24-6 

76- 7* 

77- 7* 

78- 5* 

91- 2* 
93-5* 
49-10* 
58-6* 
67-2* 
85-2* 

15-36 
70-23 

17- 15 
70-39 

7r'-54 

15-28* 

15-19 

15-20* 

15-38* 

15-37 

18- 48 

79- 118 
46-41 
77-65 
79-51* 
46-38* 



76-7 


76-7* 




75-2 


75-2* 




58-6 


58-6* 




91-2 


91-2* 




46-8 


46-8* 




77-7 


77-7* 




78-5 


78-5* 




85-2 


85-2* 




93-5 


93-S* 




94-46 


94-46* 










62-5 


62-5* 




68-7 


68-7* 




90-2 


90-2* 




38-5 


38-5 


38-5* 


62-50* 


62-51* 


62-52 


15-12 


15-30 


24-12 


15-33 


16-7* 


62-54 



38-5* 



15-39* 

46-77 
71-23 
78-60 



47-6 

71-33 

86-8 



76-21* 76-22* 76-23* 76-24 



76-26 



51-6 

71-38 

86-14 



52-12 
71-44 



52-24 
71-63 



52-44 
71-128 



52-67 
71-201 



52-78 
71-210 



52-81 
71-215 



52-122 
71-238 



57-9 
71-246 



63-41 
77-15 



79-133 

46-42 46-43 47-8 



51-8 



57-7 



71-213 76-25 77-13 77-18 77-38 77-46 77-52 



56-109* 56-178* 57-10* 77-64* 77-74* 
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SEQ 385 



PCQN 

POONE 

PERR 

PHYSA 

PLEN 

PNGBLK 

PtiGPG 

PNGPNG 

PNGRD 

PRET 

PRin 

PRIPWiB 

PRHBUF 

PRRY 

PROD 

QUE SDN 

RB.CND 

RB.HI 

RB.IN 

RB.LOU 

RBNBUF 

RBNLBN 

RBNPCY 

RBNRPT 

RBNTRK 

R8NURT 

RC.FRE 

RC.NUL 

RC.PRV 

RC.SND 

RC.UNU 

RCBUFE 

RCO 

RCFIX 

RCFXLP 

RCINON 

RCINER 

RCINIT 

RCINLP 

RCL 

RCLEN 

RCLP 

RCLP2 

RCLP3 

RCLP* 

RCLP6 

RCTBAO 

RCTBUF 

RCTCK 

RCTCKO 

RCTCKE 

RCTCLl 

RCTCLP 

RCTCNT 



«»1-6t 
91-30 
70-A2 
5-3 
79-A7 
70-5# 
63-61 
70-A# 
70-30# 

70- 16 
3-21 9# 

20-7# 
3-3A1# 

88-1 2A 
3-U9# 
3-9# 
3-244« 
3-43« 
3-42# 
3-44« 
3-41« 
3-345# 
3-1 16# 
5-121# 
3-303# 
3-85f 

82-64 
3-1 5A# 
3-1 58# 
3-1 55# 
3-1 56# 
3-1 57f 

79-68 

84- 78f 
73-133 

72- 69# 
3-243# 

73- 106 
3-222f 

73-54# 
8A-22f 
79-67 
73-1 0# 
73-56# 
73-1 53# 
73-1 3«f 
73-127 

5- 1 86« 
3-344f 

71- 168 

85- 13 
87-82 
87-90 
87-1 7f 
87-1 5# 

6- 46# 



91-A2 
70-50# 
5-3 
79-53# 

70- AO 
63-97 

71- 101 
70-45 
70-A8# 
54-119 
54-130 
54-135 

56-125 
5-67 
23-19 
47-71 
47-76 
47-96 
47-74 
54-224 
38-92* 
38-57* 
54-136 
20-19 

83- 1 # 
63-76 
66-14 
63-83 
63-69 
63-53 
79-71# 

84- 123 
73-1 48# 

72- 75 

73- 126 
73-159* 
73-107 
73-136 
84-76 
79-riM 
73-12 
73-104 
73-156 
73-158 
73-137* 
54-111* 
63-42 
72-24 
87-4« 
87-91# 
87-99# 
87-8V 
87-97 
63-36* 



91-75 
5-3 



66-4« 
71-149 



73- 157 

74- 19 



91-93* 
5-3 

71-167 



5-3* 



54-122 


54-153 


5^-1 oO 


50-1 5 


56-137 


64-7 


69-7 


56-149 


54-142 


54-147 


56-143 


71-86 


71-98 


71-164 


71-189 


28-24 


29-11 






48-19* 


54-23 






54-28 








54-48 








54-26 








56-43 


56-52 




38-172 


38-93* 


38-156 


38-157 


38-58* 


38-90 


60-9 




56-144 


82-11 






38-50 


38-97 


52-94 


56-40 


66-16 


70-15 


71-69 


71-134 


70-13 


73-152 


74-9 




63-93 


71-80 


71-183 


71-175 


63-105 


71-109 


71-157 


71-71 


71-137 


71-143 





56-122* 79-125 
63-62 63-98 
78-23 84-31 



65-23 
84-52 



56-118 56-127 
56-152 86-6 
71-242 



86-9 



86-40 86-64 87-34 87-59 



88-3? 



50-13 
83-6 



50-34 73-27 73-28 



91-53 



78-26 



66-12 
84-90 



67-30 67-51 67-89 70-11 71-64 71-102 71-129 71-150 



66-30* 66-31 66-45* 70-29* 70-30 70-43* 71-58* 71-123* 78-19* 78-21 78-47* 78-48* 
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SEO 386 



RCTERR 

RCTFHT 

RCTINI 

RCTLBN 

RCTMGO 

RCTRLP 

RCTS2 

RCTTOT 

RCTUPO 

RCTWLP 

RCTWRT 

RCTWT 

RCV 

RCVHNT 

RCVROY 

RCWERR 

RCXLP 

ROBLK 

ROBUF 



RDCm 

ROLEN 

RDONE 

RD0NE1 

RD0NE2 

READ 

REA01 

READIO 

REAOn 

REA02 

REA03 

REA04 

REA07 

READS 

REA09 

REBUFE 

RECAL 

RECIR 

RECOV 



RECTHP 



REDO 

RELEN 

REPEAT 

RESTAB 

RE TAD 

RETRY 

REVBUr 
REVCNT 



65-66 

5-163# 
73-6# 

5-1 77# 
87-68 
72-8t 

3-92# 

5-1 58# 
63-1 1# 
65-7# 

71- 100 
63-60 

3-53# 
16-28f 
3-1 64# 

72- 68 
65-67# 

5- 20# 
75-20 

3-338# 
62-70 

73- U9 
3-301 # 
3-296# 

77-72 
77-50 
77-88# 

3-50# 
«7-82# 
87-A4# 
67-36* 
A7-134# 
54-3*# 
54-87* 
75-35* 
84-37* 
86-49* 
79-99 
13-79* 

3-309* 

6- 50* 
73-99 

86- 90 
6-52* 

67-117* 

87- 67 
48-32 
79-98 

3-246* 
79-33* 
23-15 

6-49* 
62-103 

3-342* 

5-172* 



65-76* 
40-1 2* 

38-167* 

87-78* 

72-66 

40-12 

52-22* 

65-64 

71- 148 
63-95 
13-31 
62-46 
13-68 

72- 77* 
65-73 
21-12 
75-35 

6-12 
62-85 
74-10 
47-83 
47-104 
77-78 
77-82* 
77-91 
47-85 

87-66 
67-58 



75-57 
84-59 

86- 71 
79-102* 
13-163 
49-99 
4>30* 
75-60* 

87- 69* 
17-25 
67-121* 
83-51 
87-73* 
48-37* 
79-104* 
23-7 
79-117 
23-19* 
13-56 
65-43 
78-15 
52-63 



40-13* 
38-168* 

56-28* 



71-191 

63-107 

13-104 

76-18 

13-197 



65-61 
73-132 



65-70 
87-4* 



67-71 
87-96 



72-63 72-72 73-101 73-135 78-48 84-72 



87-74 
67-66 



75-65 
84-67 

86- 79 

45-10 
49-102 
62-109* 
75-74 

87- 80 
41-31* 
72-49 
83-57* 
87-80* 



72-5* 
65-4* 
44-26 

13-216 



47-70 


47-82 


47-88 


47-121 


47-134 


54-22 


54-34 


54-40 


84-23 


84-37 


86-35 


86-49 


87-29 


87-44 


88-31 


88-45 


47-78 


47-128 


47-147* 


47-149 


47-151 


54-30 


54-82 


54-101* 


62-150 


71-21 


71-24 


71-36 


71-39 


71-88 


71-199 


71-208 


47-135 


54-35 


54-88 


67-37 


75-36 


84-38 


86-50 


87-45 


48-20 


54-56 


55-20 










77-80* 
















47-138 


54-37 


54-91 


67-42 


75-41 


84-43 


86-55 


87-50 



56-199 

62-119 

75-78 

87-87 

62-107 

72-55* 

83-61* 

87-87* 



56-202 

65-49* 

75-115* 

90-54* 

62-113* 

72-61* 

84-60 

90-52 



23-21 25-59 27-12 



13-58 
67-55 
78-53 
52-68* 



13-96 
67-107 
82-5 
52-118 



13-160 
72-45 
83-1 
54-211* 



65-59 

75-123 

90-64 

62-119* 

73-87 

84-66* 

90-58* 



28-17 



14-17 
73-83 

63-109* 



67-61* 

83- 53* 

65-47 
73-93* 

84- 75* 
90-64* 



15-39 
75-54 



67-74 

83- 61 

65-53* 
73-99* 

84- 79* 



67-78 
84-62* 

65-59* 

75-58 

84-112 



41-39* 
75-109 



44-20 
83-47 



54-75 
88-54 
62-24 
73-9 



8^-84 



67-113* 67-121 

84-75 84-79 

67-59 67-65* 

75-64* 75-74* 

84-118* 84-122* 



44-30 
84-56 



46-88 
84-108 



54-87 67-22 67-36 

88-123 88-137 88-146 

62-35 62-53 62-60 

73-14 73-63 73-121 

88-138 



88-141 



72-51* 72-61 
84-114* 84-122 



67-74* 
75-78* 
86-72 



67-78* 
75-113 
86-78* 



73-89* 
86-74* 

67-111 

75-119* 

86-90* 



47-181 
86-68 



52-55 
87-63 



54-262 
90-48 
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SEQ 387 



REVECT 
REVLEN 
REVRBN 

REVSEC 

RFTL 

RLD 

RLDONE 

RLOOP 

RL0OP1 

RNWHER 

ROVER 

R0VER1 

RPR IN 

RPT 

RPT1 

RQUIT 

RRC 

RRERR 

RRPL 

RSER 

RTDOM 

RTRY 

RTY 

RTYCNT 

RTYOM 

RUN 

RU.BUF 

RU.CMO 

RW.DAT 
RU.DUPf 

RU.EOC 

RU.ER1 
RW.ER2 
RW.HI 

RW.LOU 

RW.STA 

RWCND 

RUGD 

RUGOOD 

RURDY 

RUTOON 

SBUFE 

SCR 



SECCNT 
SECNOY 



3-2 18# 
3'298# 

5- 1 22# 
69-20* 

3-76# 
8A-71 
8A-81 
67-80 
77-52# 
77-66# 
83-18# 
63-24« 
63-28 

3-239# 
56-U5# 
54-1 37# 

77- 85 

78- 22 
47-87 

71- 135 
3-288f 

65-68 
3-72# 
3-231 # 

6- 41# 
3-238# 

83-29* 
3-30f 

83-27* 
3-31# 
3-26# 

83-37* 
3-32# 

86-66 
3-25# 
3-33# 
3-29# 

83-35* 
3-28# 

83-31* 
3-24# 
3-299# 

65-42 

72- 44 
3-1 62f 

72-70 

79- 58 

5- 30 
49-33 
67-10 
89-11 

6- 26# 
56-33* 
63-73 



52-73 

82- 60 
20-25* 
69-21* 
39-7 
84-1 26# 
84-1 24« 
67-123# 
77-63 
77-79 

83- 66 
63-110 
63-30# 
54-123 
56-148 
54-140 
77-92# 

84- 5# 
47-90 
71-140# 
73-15 
65-74# 
41-32 
13-25 
47-103* 

5-72# 
47-79* 
84-32* 
47-73* 
84-36* 

47-81* 
84-25* 
47-152 
87-61 



47-77* 
84-30* 
47-75* 
84-27* 
47-84* 
47-130 
65-57# 
72-59# 
13-145 
72-76# 
79-61 # 
5-50 
52-13 
69-6 
91-46 
47-68* 
56-42* 
63-97# 



54-109 
83-63 
20-26* 
69-22* 



54-191 
54-131 



56-26 
54-132 



56-120 
56-139 



13-42 
54-54* 



47-129* 
84-91* 
47-133* 
84-89* 

47-123* 
84-98* 
54-149* 
90-29* 



47-127* 
84-96* 

47- 125* 
84-93* 
54-36* 

48- 26 



5-79# 

52-25 

72-8 

91-87 

47-105* 

56-62* 



13-50 
79-131 



54-31* 
86-41* 
54-25* 
86-39* 

54-33* 
86-48* 
56-14* 



54-29* 
86-46* 
54-27* 
86-43* 
86-51* 
54-84 



19-10 
52-37 
73-44 
92-19 
48-6* 
56-66* 



13-52 13-74 



54-83* 
87-35* 
54-86* 
87-33* 

54-77* 
87-43* 
56-154* 



54-81* 
87-41* 

54- 79* 

87- 37* 

88- 47* 

55- 26 



38-21 

52-84 

82-16 

92-28 

48-42* 

56-181* 



62-86* 
88-33* 
62-84* 
88-42* 

62-93* 
88-44* 
62-72* 



62-91* 

88-39* 

62-88* 

88-35* 

88-139* 

67-32 



38-64 

54-128 

82-77 

92-35 

49-12* 

71-26* 



56-140 64-10 64-11 64-20* 64-21* 64-22* 69-10 69-11 



54-184 54-238 56-128 56-184 56-186 



47-95# 



65-26* 
88-125* 
65-22* 
88-134* 

65-34* 

88-136* 

65-25* 



65-32* 
88-55 
65-28* 
88-127* 



67-31* 
90-30* 
67-35* 
90-26* 

67-24* 
90-38* 
67-53 



67-29* 
88-58* 
67-26* 
90-32* 



67-90* 
67-88* 

67-97* 
72-26* 



72-27* 
72-23* 

72- 35* 

73- 65* 



73-66* 75-30* 75-91* 82-35* 
73-62* 75-34* 75-89* 82-31* 



73-74* 
75-52 



75-22* 
82-34* 



67-95* 72-33* 
88-131* 88-147 
67-92* 72-29* 



73-72* 75-28* 
88-150* 90-36* 
73-68* 75-24* 



75-99* 
83-4* 

75-97* 
75-93* 



75-31 84-33 86-36 87-30 88-40 88-132 



38-84 

56-7 

83-5 

49-31* 
71-195* 



38-126 

56-39 

84-7 

49-63* 
78-20* 



40-9 

56-68 

86-20 

49-90* 
78-45* 



41-90 
56-135 

87- 17 

54-20* 

88- 23* 



42-4 

58-10 

88-10 

54-57* 
88-63* 



46-29 
62-14 
88-14 

55-6* 
88-85* 



82-42* 
84-54 

82-40* 
82-57* 



46-59 

64-6 

88-90 

55-42* 
88-112* 



46-70 

65-7 

88-104 

56-10* 
e8-155* 



L 14 
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SEQ 388 



'ECSI6 


3-304# 


5-167 


56-45 


62-149 


66-23 


70-22 


73-7 






















cer Try 
dec I V I 


^•11 X# 

J 1 1 


JO lit" 


Xft-111* 


H 1 CJ 




88-107 

oo 1 Uf 








1 1# 

J— 1 1 1 w 


JO lUc" 


jO— 1 1/3" 


jO t w ' 


i8-108 
jO I uo 


JO C 1 J 


JT 1 J 


A1-7 

H 1 f 






Ht J 1 


Ht^OJ 


JC OH 


3H Cw 


3* o 


JO oo 


S6-81 

JO O J 




oo • o 


oo O J 


RA-1 1 7 

oo 1 1 c 




Q1-70 

T 1 Cw 


Q1-37 

T 1 JC 


TC H 


Q7-S1 

▼C J 1 




13-135# 


19-16 

1 T 1 0 


£6-67 

•tO^I' 


^6-97 

HO TC 


47-185 

■if 1 OJ 


57-34 

JC WH 


57-59 

JC J~ 


54-767 

JH— CO' 




1 ^-1 ?7# 


1^-164 


















1 1-1 57 
















13-144 


1 3-1 59tf 
















1 J 1 "lO 


1 J 1 W i 


11-16S# 

1 J 1 w3w 












SFFK4 




1 J iww 
















1 ^-1 
















1 J 1 "tU 


1 














SFEK7 


1 ^-l ^Ot 


































SFM& 


3-^?# 


13-19 


13-97 

1 J 7c 


44-16 










ccDon 




78-1 5# 


















CO "tw 
















S-1R^ 




78-70* 
CO cw" 


78-71* 

CO C I 


CO CC" 


67-77 

OC Ci 


73-11 

r J 1 J 


77-40 




CO o 


PA* 10 


78-17 
cO 1 c 


78-1^ 

CO IH 


78-1 9# 

CO 1 








78>18 


CO CJw 
















73-4 


Ct ••'r 














I fir 1 


















wffUn 1 w 




41-71 














SIP 


3-S8tf 


47-67 


47-170 

f ■ I Cv 


54-19 


54-74 

J^ 1 H 


67-99 

OC ~» 


65-19 

OJ Jr 


67-41 
o» 1 




83-43 


84-42 
o~ "tc 


84-104 


86-54 

OO 


87-49 

o« ~ W 


88-48 

OO "to 


88-140 

OO 1 *tw 


90-44 




46-69 


46-1 18# 

■f W 1 1 ow 


88-79 

oo C7 


88-121 

OO 1 C 1 










SKI PI 




46-55# 














SKIP19 


46-44 


46-48# 

^ W ~ WW 
















46-76# 


46-103 
















46-37 


46-47 


46-49# 














49-31# 
















SKIP6 


46-86 


46-94# 














SKIP? 

Art 


46-78# 


46-93 














SKPCNT 


S-154# 


39-18* 


39-21 * 


48-9 

^ w y 


55-9 








SLAS 


22~7S» 

fcb ■ W™ 


25-14 














SLEEK 


46-59f 


46-113 

^w 1 * ^ 














SLEEK? 


46-64# 


46-106 














SLEN 


79-57 


79-63# 














SLOOP 


24-1 3# 


24-16 














SND 


54-120 


54-1 94# 
















6-40# 


54-183* 

I w.^ ^ 


54-198* 


54-208* 


56-157* 


78-11 


78-39* 




SNDLP 


79-1 35# 


79-145 
















16-17# 


62-45 


76-17 












SNORES 


78-61 


79-1 14# 














SRCK 


12-37 


12-44# 














ST 


5-48 


5-51 


5-52 


5-53 


5-54 


5-55 


5-56 

^ JV 


5-57 


ST.DB 


3-1 75# 


12-52 












ST.DBN 


5-1 96# 


42-36* 


47-26 


50-18 


91-26 








ST. OF 


3-1 79f 


12-18 














ST. OR 


3-1 72# 


12-26 














ST.ERB 


3-181f 


12-17 














ST. ERR 


3-1 80# 
















ST.FO 


3-1 76# 


12-48 















46-98 
56-85 



47-28 
56-207 



47-45 
62-19 



47-68 
75-17 



48-6 
86-26 



49-12 
88-23 



63-122 71-225 73-146 82-83 88-27 88-119 



67-103 72-41 73-79 75-40 75-105 82-49 



5-58 



5-77# I 2-16 12-23 44-54 



n u 
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ST. IN 
ST. LBN 

ST.PS 

ST.RBN 

ST.RU 

ST.SR 

ST.UE 

ST.WP 

ST.XBN 

STACK 

STARIT 

START 



START2 

START3 

STASEC 

STATFR 

STATRE 

STATRT 

STATST 

STATUS 

STATVL 

STCKSV 

STCLR 

STCYL 

STDBN 

STOIAG 

STFLA6 

STFORH 

STLBN 

STO 

STPNIC 

STRBN 

STSC 

STSK1 

STSKP 

STULK 

STXBN 

SWAP 

SURD 

TALI PI 

TALK 

TALKDN 

TALKIP 

TALKP 

TALKRT 

TATTN1 

TBLK 

TBUFF 

TBUFFL 

TCLEAR 

TEWP 



3-1 77# 
5-1 93# 
71-181 
3-1 71 # 
5-1 94# 
3-1 70# 
3-1 74# 
3-1 78# 
3-1 73# 
5-195# 

90- 34 
5-1 34# 
5-1 53# 
5-4 

52-5 
73-2 

91- 2 
68-11 
22-5 

5-1 02# 
18-45 
18-43« 
18-52# 

12- 14# 
3-55# 

13- 62 
5-1 35# 
3-1 28# 
3-83# 
3-82# 

12-49 

3-248# 
12-45 

3-79f 

5- 1 69f 
12-27 

3-80# 
3-262# 

12-20 

12-62 

12- 53 
3-81 f 

63-77 

6- 1 4# 

13- 54 

12- 15 

13- 33 
13-51 
13-43 
13-38 
13-69 

5-1 55f 
22-72« 
22-750 
13-24 

5-37# 



20-11 

72-31 

12-32 

42-16* 

12-29 

12-44 

12-57 

42-26* 

91-38 

23-3 

48-11* 

14-10 

56-2 

75-2 

93-5 

71 -7# 

23-3# 

88-7* 

18-47 

18-49 

18-55 

12- 43 
18-43 

13- 66 
13-53* 
42-9 
38-145 
42-30 
12-52# 
25-7 

12- 48# 
42-8 

13- 140 
12-30 
42-14 

12-23# 
12-68# 

12- 56# 
42-20 
63-86f 

38- 203 

13- 56# 

12- 64 

13- 37# 
13-55f 
13-45# 
13-42# 
l3-73# 

39- 17* 

22- 75 

23- 13 
13-36 
20-8* 



40-28 42-10* 59-12 61-9 61-25 63-81 63-91 
73-70 82-39 84-29 84-95 87-39 91-89 

54-133 56-141 60-12 64-22 69-22 83-33 91-71 



48-38 

14-16 

56-2 

75-2 

93-5 



88-8* 
18-53# 



12- 47 

1^-141 

13- 55 
42-15 
65-12 



25-16 



41-83* 
12-33 



54-229 
12-66 



39-20* 

23-12 

23-29 

13-41 

20-10 



SEO 389 



63-103 65-30 67-28 67-94 71-78 



47-43 50-39 62-9 



48-41* 
15-14 
58-6 
76-7 



88-66 



13-193 
25-5* 
42-25 
67-11 



48-30 
23-28 

13-50# 
30-15* 



62-10 62-77 75-26 75-95 



55-11* 
15-23 
58-6 
76-7 



55-38 
15-32 
62-5 
77-7 



55-41* 
22-5# 
62-5 
77-7 



38-5 
63-2 
78-5 



38-5 
63-2 
78-5 



86-16 



46-8 
67-2 
85-2 



86-17 86-33 88-37 88-129 



46-8 
67-2 
85-2 



49-10 

68-7 

90-2 



49-10 

68-7 

90-2 



52-5 
73-2 
91-2 



88-68 88-81 88-83 88-84 88-100* 88-101* 88-110 88-113 88-114 



12-51 12-55 



13-212 
25-55 
42-35 
72-13 



12-60 

18-41f O4-10 

73-49 82-21 83-13 84-8 



87-22 



25-16 25-16 25-25 



12-40 12-71 f 



13-13# 13-121 13-129 13-139 13-172 13-180 17-27 



55-30 



30-16* 30-17* 30-19* 30-21* 30-22 30-36* 30-38 30-40* 37-14* 37-15* 



J 



N U 
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TEHP2 

TERR 

THREB 

TILOP 

TILOPI 

TIMER 

TI«L01 

TIHLOP 

TIHLP 

TIHTBL 

TlflVAL 

TKIP1 

TKIP11 

TKIP12 

TKIP13 

TKIPU 

TICIP2 

TICIP3 

TKIP4 

TKIP5 

TKIP7 

TRIPS 

TICIP9 

THPTRY 



TOTRCT 
TRK 

TRKCNT 

TRKCYL 

TRKGRP 

TWO 

TWOS 

TUOC 

TURD 

UDAFn 

UERR 

UHASH 

UHKIP 

UHKIP1 

UIO 

UN.ERI 



37- 18 

38- 54 

38- 157* 

40- 21* 
47-21* 
50-31* 
60-6* 
69-13 

86- 32* 
91-81* 

5- 33# 

83- 18* 
13-63 

3-295* 

41- 76# 
41-80# 

13- 64 
41-49 
41-53# 
18-27# 
22-98# 

3-312* 
49-17 
49-87 
49-64* 
49-101 
49-97 
49-15 
49-62 
49-67 
49-39 
49-74 
49-49* 
49-50 

6- 51* 
67-77* 
75-63* 

84- 58* 

87- 79* 
6-44* 
3-261* 
6-35* 

5- 118* 
3-90* 

39- 16 
3-294* 

6- 38* 
6-15* 
5-3* 

14- 29* 

63- 32 

64- 8* 
64-5 

3-323* 
5-12* 
47-187* 



37- 21 

38- 65* 

38- 160 

40- 22 
47-22 
50-32* 
60-7* 
73-27* 

86- 33* 
91-82* 

63- 50* 

83- 19* 
13-67 

39- 17 

41- 78 
41-82 
13-65 
41-51* 
41-55 
18-32 
26-22 

18- 26 
49-20* 
49-89* 
49-91 
49-103* 
49-102* 
49-19 
49-93* 
49-71 
49-41 
49-76* 
49-52 
49-53* 
41-40* 
67-107* 
75-73* 

84- 65* 

87- 86* 
38-78* 

19- 12 
46-73* 
38-33* 

38- 22 

39- 20* 
39-20 
71-234 
38-205 

16-12 

64- 4* 
64-23 
64-20* 
44-35 
13-86* 
52-54* 



37- 22 

38- 68* 
38-172* 
41-4* 
47-37* 
50-33 
60-8 
73-28* 
88-78* 
91-83 
63-51* 
83-21 
13-70* 



18-25* 



37-32 



49-21* 

49-82 
49-60* 



62-103* 

67-109* 

75-77* 

84-74* 

90-48* 

38-79* 

82-79 

46-102* 

38-34* 

46-71 



54-230 
16-21 



44-63 

13-95* 

52-55* 



37- 79* 

38- 69 
38-173* 
41-5* 
47-^8* 
56- '6* 
61-5* 
73-29 
88-79* 



37- 81* 

38- 85* 
38-176 
41-6 
47-39 
56-77* 
61-6* 
73-109 
88-80 



37- 84 

38- 88* 
38-181 
41-9 
49-42* 
56-80 
61-7 
74-8 
88-107* 



38-28* 

38-89 

38-216* 

41-14* 

49-43* 

56-87* 

62-73* 

81-8* 

88-108* 



38-29* 

38-117* 

38-217* 

41-15* 

49-46 

56-88* 

62-74* 

81-9* 

88-109 



38-31 

38-118* 

38-218 

41-18 

49-53* 

56-89 

62-75 

81-12 

91-55* 



38-40* 

38- 119 

39- 10* 
41-^: 
49-54* 
59-5* 
64-8* 
82-6* 
91-56* 



38-41* 

38- 128* 

39- 11* 
41-56* 
49-55 
59-6* 
64-9* 
83-64* 
91-57 



38-42 

38- 131* 

39- 12 
41-57* 
50-8* 
59-7* 
64-13 
83-65* 
91-63* 



38-52* 

38- 132 

39- 15* 
41-60 
50-9* 
59-8 
69-8* 
86-30 
91-64* 



SEQ 390 



38-53* 

38-156* 

40-20< 

47-20* 

50-10 

60-5* 

69-9* 

86-31* 

91-65 



63-58* 63-64 63-86* 63-87* 63-96 71-73* 71-74* 71-104 71-140* 71-141* 71-152 



49-32 
49-85* 



62-105* 

67-116* 

75-109* 

84-78* 

90-50* 

52-22 

89-13 

52-40* 

38-43 

52-38 



16-32 



13-96* 
52-61* 



62- 112* 
72-45* 
75-111* 
84-108* 
90-57* 

63- 20 

52-102* 

38-55 

88-15 



62-118* 

72-47* 

75-118* 

84-110* 

90-63* 

71-29 



65-43* 

72- 54* 
82-53* 
84-117* 

73- 36 
88-86* 



88-17* 
38-110 
88-91 92-20 



65-45* 
72-60* 
82-55* 

86- 68* 

87- 7 

88- 93* 



65-52* 
73-83* 
82-58* 
86-70* 



65-58* 
73-85* 
83-47* 
86-77* 



67-55* 
73-92* 
83-49* 
86-89* 



67-57* 
73-98* 
83-56* 
87-63* 



67-64* 
75-54* 
83-60* 
87-65* 



67-73* 
75-56* 
84-56* 
87-72* 



13-99* 44-19* 44-20* 
54-261* 54-262* 54-269* 



44-23* 44-82* 46-87* 46-88* 46-94* 47-180* 47-181 < 
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SEQ 391 



UN. ERR 
UN.ERT 
UN.SEK 
UNIT 



UNITBO 

UNITCN 

UNITRT 

UNNO 

UNSEC 

UPDATE 

UPDPNT 

UREAD 

USDFCT 

UWRITE 

VI 

V2 
V3 
VA 

VAXTHE 

VERHO 

VLD 

VLD1 

ULCX}P 

UP 

yRBLK 

WRCMD 

URFLG 

WRIT10 

URIT12 

URIT13 

WRITE 

URITE1 

URITE2 

URITE3 

MR I TEA 

WRITES 

WRITES 

WRITE9 

URN 

WRNLN 

XAGAIN 

XB8AD 

XB8UFE 

XBLEN 

XBNCYL 

XBNFND 

XBNIT 

XBNSEC 

XOONE 

XEORCT 

XFLIP 

XNGBLK 



5-10# 
5-11# 
5-1 3# 
5-4 3# 

46-82 

72-38 

27-6 

22-19 

27-9# 

5- 44# 
3-1 37f 
3-66# 

6- 4 3# 
3-59# 

79-147 
3-60# 
3-255# 

82-25* 
3-256# 
3-257f 
3-258# 

25-52 

85-11 
3-1 30f 
3-131# 

82-12# 
3-237f 
5-1 9# 

82- 47 
3-300# 
5-144# 

84-99# 
67-98# 

83- 38# 
3-514f 

62-94# 

65- 35# 

72- 36# 

73- 75# 

90- 39# 
75-1 00# 
82-44# 
79-28# 
79-30# 

66- 8# 
5-188# 

79-89 
79-88 
3-86# 

91- 15 
46-31 

5-1 17f 
52-119 
66-15 
66-11 
66>6# 



13-34* 

13-22* 

13-154* 

13-18 

47-66 

73-77 

27-1 0# 

27-4# 

27-13 

27-7* 

13-37 

46-108 

63-23* 

16-10 

79-1 52# 

62-16* 

83-15* 

19-7* 

62-20* 

83-12* 

37- 6# 
88-4« 
18-46 

82- 15 
12-39 
62-80 

83- 23 
62-81 

66- 5* 

84- 111 

67- 110 
83-50 
62-100 
62-106 

65- 46 

72- 48 

73- 86 

90- 51 
75-112 
82-56 
79-30 
88-165 

66- 24 
46-24* 
79-92# 
79-94# 

38- 117 

91- 31# 
46-52# 
38-121* 
52-123f 
66-43# 
66-1 8# 
66-42 



13-39* 

13-27* 

13-159* 

13-30 

47-119 

75-38 



52-110 
63-24 



62-18* 

83-17* 

19-9* 

65-11* 

83-69* 



13-44* 

13-56* 

13-160* 

13-60 

47-137 

75-102 



13-58* 14-14* 14-17* 14-19* 15-20* 15-39* 15-41* 



13-91 

47-175 

82-46 



13-103 

52-49 

83-40 



44-37 44-60 44-62 



62- 131 

63- 45 



65-14* 
84-11* 
82-73* 
67-19* 



65-74 
63-108* 



65-16* 
84-13* 
82-76* 
72-12* 



67-14* 
86-23* 
89-7* 
73-48* 



79-129 
38-133 
38-122* 



46-53 
50-8 



47-37 88-105 



50-9 



13-137 

54-18 

84-40 



13-209 

54-73 

84-101 



44-8* 
54-90 
86-52 



71-204 73-134 86-96 87-91 



67-16* 
86-25* 
39-10* 
75-18* 



12-41 










62-97 


65-18 


65-38 


67-84 


67-101 


83-41 


84-85 


84-102 


90-22 


90-42 


65-19 


67-85 


72-20 


73-59 


75-86 


66-43 


66-46* 


70-4* 


70-41 


70-44* 


84-119 










67-118 










83-58 










65-40 


67-104 


72-42 


73-80 


75-106 


62-114 










65-54 










72-56 










73-94 










90-59 










75-120 










88-164 











91-12 91-17 



72-15* 
87-24* 



72-17* 
87-26* 



44-9 

54-256 

87-47 



88-88 



73-51* 
90-16* 



44-15 
62-96 
88-30 



44-79 44-81* 
65-37 67-39 
88-122 90-41 



45-5 
67-100 



73-53* 
90-18* 



75-14* 75-16* 82-23* 



82-20* 83-9* 84-16* 86-27* 87-21* 90-20* 



72-19 
82-28 



72-39 
83-24 



73-58 
84-86 



73-78 
90-23 



75-85 75-103 82-27 



83-44 84-105 90-45 



] 
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CROSS REFERENCE TABLE (CRE^ V04.00 ) 

XNGINC 66-21 66-23# 

XPBN 49-20 50-31* 

XPERR 66-44 66-S2# 

XPNGRD 66-31# 66-47 

XPRET 66-17 66-50# 

XSKIPl 52-10 52-13# 

XSKIP2 52-45# 52-60 

XSKIP3 52-43# 52-103 

XSKIP4 52-65 52-70« 

XSKIP5 52-72 52-79 52-82# 

XSKIP6 52-76 52-80# 

XSLEEK 52-25# 52-115 52-117 

XSLEK2 52-31 « 52-106 

5Jii Vu\n 

Y 22-76# 34-17 

YES 86-73 86-83# 
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SEQ 392 
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SEQ 593 



DMCOOE 


1-3# 


5-3 


DWNO 


1-39# 


94-46 


OPTOV 


A-65# 


DPfOVLY 


1-25# 


5-3 




76-7 


77-7 


DUBINC 


4-106# 


49-30 




88-154 


90-79 


6ETB 


4-1 17# 


25-9 


NSC 


4-S6« 


5-48 


OVTERH 


5-3 


5-3f 




58-6# 


62-5 




76-7# 


77-7 


POP 


4-32# 


7-29 




13-45 


13-46 




18-17 


18-33 




28-23 


29-12 




56-138 


56-187 




73-143 


80-12 


POPA 


4-85# 


51-9 


PUSH 


4-9# 


7-19 




13-88 


13-119 




«j lO 


CJ— 1 f 




30-37 


33-10 




66-4 


71-10 


PUSHA 


4-74# 


51-4 


SToe 


4-1 33# 


25-16 


XOR 


4-97# 


18-10 



38-5 
78-5 
49-89 



5-49 

5-3# 
62-5f 
77-7# 

7-30 
13-110 
18-50 
29-19 
56-192 
81-33 
67-123 

7-20 
13-127 
25-4 
35-6 
71-12 
67-6 



46-8 
85-2 
56-25 



5-50 
38-5 
63-2 
78-5 

8-23 
13-111 
18-53 
30-41 
57-11 
92-45 
82-65 

8-14 
13-135 
25-18 
36-6 
71-14 
82-4 



49-10 

90-2 

56-61 



5-51 
38-5# 
63-2* 
78-5# 

9-25 
13-122 
20-27 
30-46 
63-111 
92-55 
84-124 

9-12 
13-136 
25-24 
37-16 
71-19 
84-5 



52-5 
91-2 
56-177 



5-52 
46-8 
67-2 
85-2 
10-36 
13-130 
25-23 
30-51 
63-114 
92-57 

10-17 

13-170 

25-42 

37-82 

73-22 



56-2 
93-5 
62-133 



5-53 

46- 8f 
67-2# 
85-2# 
11-21 
13-155 
25-35 
33-21 
63-117 
92-60 

11-14 

13-178 

25-45 

47- 4 
73-24 



58-6 
71-247 



5-54 
49-10 
68-7 
90-2 
11-22 
13-156 
25-36 
35-15 
66-50 



11-15 

13-186 

25-48 

47-53 

73-26 



62-5 
73-128 



5-55 
49-1 0# 
68-7* 
90-2* 
11-25 
13-173 
25-37 
35-23 
71-211 



12- 12 

13- 187 
25-49 
56-38 
80-6 



63-2 
78-43 



5-56 
52-5 
73-2 
91-2 
11-26 
13-181 
25-53 
36-13 
71-216 



12-13 

15-11 

25-50 

56-134 

81-7 



67-2 
86-98 



5-57 
52-5# 
73-2# 
91 -2# 
11-31 
13-202 
25-57 
37-20 
71-219 



13-13 

18-6 

27-4 

57-4 

92-10 



68-7 
87-93 



5-58 
56-2 
75-2 
93-5 
11-32 
13-203 
27-8 
37-88 
71-222 



13-14 

18-25 

28-4 

63-13 

92-12 



73-2 
88-62 



56-2# 

75-2# 

93-5* 

12-68 

14-15 

27-10 

47-9 

73-137 



13-79 

18-41 

29-4 

63-15 

92-18 



75-2 
88-115 



58-6 

76-7 

94-46 

12-69 

15-28 

28-15 

47-189 

73-140 



13-85 
20-7 
30-5 
63-17 



